Столбец R 1 с гистограммой, остальные 3 в виде линий на том же графике

Question

У меня есть фрейм данных с датой для оси x, и я хотел бы построить график в виде столбчатой ​​диаграммы (по вертикали), а среднее значение, lower_conf и upper_conf - горизонтальные линии.Следующее - мой фрейм данных.

   Date        Count  Mean      X95_lower_conf  X95_upper_conf
0  2018-11-01  1      5.225806  1.494764        8.956849
1  2018-11-02  0      5.225806  1.494764        8.956849
2  2018-11-03  21     5.225806  1.494764        8.956849
3  2018-11-04  1      5.225806  1.494764        8.956849
4  2018-11-05  0      5.225806  1.494764        8.956849
5  2018-11-06  0      5.225806  1.494764        8.956849

Я пробовал много разных способов сделать это, но у меня возникли проблемы, я попробовал один:

plot_ly(df1, x = ~Date, y = ~Mean, name = 'Mean') %>%
  add_trace(y = ~X95_upper_conf, name = 'Upper Confidence', type = 'scatter', mode = 'lines') %>%
  add_trace(y = ~X95_lower_conf, name = 'Lower Confidence', type = 'scatter', mode = 'lines') %>%
  add_trace(y = ~Count, name = 'Count', type = 'bar',mode = 'lines')

Любая помощь по настройке, чтобы получить желаемоевывод будет принята с благодарностью!

Answer 1

Использование ggplot2:

library(ggplot2)

ggplot(df1) +
  geom_col(aes(Date, Count)) +
  geom_hline(aes(yintercept = Mean)) +
  geom_hline(aes(yintercept = X95_lower_conf)) +
  geom_hline(aes(yintercept = X95_upper_conf))