r - slider 输入中的自定义值 Shiny

Question

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

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 以外的其他内容，您可能能够更接近您的确切请求。