如何打印所选两个滑块范围之间的所有值，而不仅仅是这两个值？答案

【问题标题】：How to print all the values in between the two slider range selected, not just those two values?如何打印所选两个滑块范围之间的所有值，而不仅仅是这两个值？
【发布时间】：2019-04-04 23:37:59
【问题描述】：

我正在尝试使用一个滑块范围，它会动态更改我的 ggplot 上 X 轴上的值。我可以显示最小值和最大值（选择了两个值），但需要打印这些选定值之间的整个范围。

用户界面

sliderTextInput("slider", strong("Year and Quarter"),
choices = unique(mydata2$PERIOD),
selected = c(("2011-Q4"),("2017-Q3")),
dragRange=TRUE

服务器

图表的功能

shovegraphintofunction1 = function(input) {
CCGdata = mydata2[(mydata2$GEOG_NAME==input$GEOG_NAME),]
CCGrefdata = mydata2[(mydata2$GEOGRAPHYref==input$GEOGRAPHYref),]
CCGdata = mydata2[(mydata2$PERIOD==input$slider),]
CCGrefdata = mydata2[(mydata2$PERIOD==input$slider),]

date_start <- as.character(input$slider[1])
date_end <- as.character(input$slider[2])


lineplot = ggplot(data=CCGdata, mapping=aes(x=PERIOD, y=statistic, group=statistic.name)) +
geom_line(aes(color=statistic.name, size=statistic.name))+ scale_y_continuous(breaks=seq(0,100,10), labels=c("0%", "10%", "20%", "30%", "40%", "50%", "60%", "70%", "80%", "90%", "100%"), limits=c(0, 100))+ 
scale_x_discrete(breaks=CCGdata$PERIOD, labels=CCGdata$PERIOD, limits=c(input$slider[1], input$slider[2]))

    }
````

【问题讨论】：

标签： r shiny slider range

【解决方案1】：

为什么不这样：

mydata2 %>%
  filter(between(PERIOD ,date_start, date_end)) %>%
  select(PERIODE) %>%
  unique()

当然，您首先需要将date_start 和date_end 转换为日期格式。我无法进一步进行日期转换，因为您没有提供任何日期格式。希望对您有所帮助。

【讨论】：

谢谢！我试过但得到错误美学必须是长度 1 或与数据相同。不知道如何解决这个问题。