0

I have a dataframe with a date for the x axis and would like to plot the count as a barchart(vertical) and the mean,lower_conf, and upper_conf as horizontal lines. The following is my dataframe. 

   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

I have tried many different ways to accomplish this but I am having issues, this is one that I have tried:

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

Any help on tweaking this to get my desired output would be greatly appreciated!

sectechguy
  • 2,037
  • 4
  • 28
  • 61

1 Answers1

3

Using 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))
dave-edison
  • 3,666
  • 7
  • 19