滑块输入中的自定义值闪亮

Question

我想使用滑块输入（带动画）并在我的数据集中移动年份（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。

有办法吗？

Answer 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以外的其他功能，则可能会接近您的确切请求。