Установите значения начала и конца диапазона ползунка в ggplotly - PullRequest
Новая
       11

Установите значения начала и конца диапазона ползунка в ggplotly

0 голосов
/ 24 апреля 2020

У меня есть данные: 

head(ave_temp)
         date deadlift
5  2012-12-01       50
6  2013-01-01       62
7  2013-02-01       70
8  2013-03-01       70
9  2013-04-01       77
10 2013-05-01       83

, из которых я создаю гистограмму с ggplot2 . Чтобы сделать его интерактивным, я использую ggplotly и его функцию rangelider . Затем я хочу установить диапазон ползунка так, чтобы при загрузке графика интервал времени, который вы видите, был f. ех. несколько лет не все годы мои данные есть.

Результат, который я хочу:

pic2

Диаграмма, которую производит мой код:

pic3

И мой код : 

ave_temp <- ave[!is.na(ave$deadlift),]

g2 <- ggplot(data = NULL) +
  theme_light() +
  labs( y = 'Deadlift (kg)', x = 'Date') +
  geom_col(data = ave_temp, aes(x = date, y = deadlift, text = paste('Deadlift: ', deadlift)),  fill = "pink", alpha = 1, width =15) +
  scale_x_date(date_breaks = "years" , date_labels = "%Y") +
  scale_y_continuous(breaks=seq(0,150,25))

ggplotly(g2, tooltip = c("text"), dynamicTicks = T) %>%
  rangeslider(borderwidth = 1, start = ave_temp$date[5], end = ave_temp$date[14])
...