search

etc5523-2020 / exercise2C

For students to submit their reproducible example in the issue
0 stars 0 forks source link

hh #11

Closed Sen101 closed 4 years ago

Sen101 commented 4 years ago 
Date <- c('13-04-2015', '13-05-2015', '13-06-2015', '14-04-2015', '14-05-2015', '14-06-2015', '15-04-2015', '15-05-2015', '15-06-2015',
          '16-04-2015', '16-05-2015', '16-06-2015', '17-04-2015', '17-05-2015', '17-06-2015', '18-04-2015', '18-05-2015', '18-06-2015',
          '19-04-2015', '19-05-2015', '19-06-2015', '20-04-2015', '20-05-2015', '20-06-2015', '21-04-2015', '21-05-2015', '21-06-2015',
          '22-04-2015', '22-05-2015', '22-06-2015', '23-04-2015', '23-05-2015', '23-06-2015', '24-04-2015', '24-05-2015', '24-06-2015',
          '25-04-2015', '25-05-2015', '25-06-2015', '26-04-2015', '26-05-2015', '26-06-2015', '27-04-2015', '27-05-2015', '27-06-2015',
          '28-04-2015', '28-05-2015', '28-06-2015', '29-04-2015', '29-05-2015', '29-06-2015', '30-04-2015', '30-05-2015', '30-06-2015',
          '31-05-2015', '4/1/2015', '4/10/2015', '4/11/2015', '4/12/2015', '4/2/2015', '4/3/2015', '4/4/2015', '4/5/2015', '4/6/2015', 
          '4/7/2015', '4/8/2015', '4/9/2015', '5/1/2015', '5/10/2015', '5/11/2015', '5/12/2015', '5/2/2015', '5/3/2015', '5/4/2015', 
          '5/5/2015', '5/6/2015', '5/7/2015', '5/8/2015', '5/9/2015', '6/1/2015', '6/10/2015', '6/11/2015', '6/12/2015', '6/2/2015', 
          '6/3/2015', '6/4/2015', '6/5/2015', '6/6/2015', '6/7/2015', '6/8/2015', '6/9/2015')

freq <- c(24, 12, 32, 23, 15, 16, 12, 12, 34, 20, 16, 29, 21, 7, 32, 8, 14, 47, 9, 12, 29, 20, 15, 16, 12, 17, 12, 22, 14, 30, 23, 12,
          190, 24, 7, 218, 16, 12, 98, 8, 27, 55, 25, 17, 39, 26, 26, 27, 22, 14, 51, 24, 9, 53, 10, 18, 21, 5, 15, 27, 15, 12, 6, 13,
          25, 28, 21, 12, 7, 12, 7, 7, 5, 12, 14, 14, 15, 15, 11, 25, 25, 21, 43, 25, 25, 12, 29, 11, 9, 24, 23)

count_date1 <- data.frame(Date,freq)
library(ggplot2)
ggplot(count_date1, aes(Date,freq)) + 
    geom_point() + 
    geom_line(aes(group=Date)) +
    xlab("Date") + 
    ylab("No. of Complaints")