我想使用滑块输入(带有动画)并在数据集中浏览年份(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
可能会更接近您的确切要求。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句