Как напечатать все значения между двумя выбранными диапазонами ползунка, а не только эти два значения? - PullRequest
Новая
       12

Как напечатать все значения между двумя выбранными диапазонами ползунка, а не только эти два значения?

0 голосов
/ 04 апреля 2019

Я пытаюсь использовать диапазон ползунка, который будет динамически изменять значения на оси X на моем ggplot. Я могу получить минимальное и максимальное значения (два выбранных значения) для отображения, но для печати требуется весь диапазон между этими выбранными значениями.

UI 

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]))

    }
````

1 Ответ

0 голосов
/ 04 апреля 2019

Почему бы и нет: 

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

Конечно, сначала вам нужно конвертировать date_start и date_end в формат даты.Я не могу идти дальше о преобразовании даты, потому что вы не указали формат даты.Надеюсь, это поможет.

...