r - 滑块输入中的自定义值 Shiny

我想使用滑块输入(带动画)并在我的数据集中移动几年(1600-2013)。问题是我的数据严重偏斜，这就是为什么我想自定义滑块输入中的“步长”增量。这意味着，我想要类似的东西

sequence <- c(1600,1700,1750,1800,1850,1900,1930,1950,1960,1970,1980,1990,1995,
             2000,2001,2003,2005,2006,2008,2009,2010,2011,2012,2013)

代替

sequence <- seq(1600,2013,by=1)

如果步长 = 1。

有办法吗？

最佳答案

您可以使用类似 log 缩放的方法来确定从何处采样点，例如:

x <- log(seq(1,100,length.out=24))
scx <- scale(x,center=min(x),scale=diff(range(x)))
out <- round(scx * length(sequence))
out[1] <- 1

sequence[out]
# [1] 1600 1749 1802 1836 1860 1879 1895 1908 1920 1930 1939 1948 1955
#[14] 1962 1969 1975 1981 1986 1991 1996 2001 2005 2009 2013

这不完全是你所要求的，但它是近似的。如果您将函数更改为使用 log 以外的其他内容，您可能会更接近您的确切请求。

关于r - 滑块输入中的自定义值 Shiny ，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/23509154/