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

【问题标题】：custom values in slider input shiny滑块输入中的自定义值闪亮
【发布时间】：2014-05-07 05:07:05
【问题描述】：

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

有办法吗？

【问题讨论】：

目前不支持 github.com/rstudio/shiny/issues/1 。底层库github.com/egorkhmelev/jslider 可能能够通过规模和异质性属性来近似您想要的。

标签： r shiny

【解决方案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 以外的其他内容，您可能会更接近您的确切要求。

【讨论】：