You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 

13 lines
510 B

library(ggplot2)
a = read.csv("cases.csv")
cases = data.frame("day" = a$day, "number" = a$cases, "type" = "cases")
deaths = data.frame("day" = a$day, "number" = a$deaths, "type" = "deaths")
data = rbind(cases,deaths)
last <- tail(cases,1)
ggplot(data, aes(x = day, y = number)) +
geom_line(aes(color=type)) +
geom_point(color='royalblue') +
geom_point(data=last,color='red') +
geom_text(data=last, aes(x = day - 20, y = number, label = number)) +
ggtitle("Ohio COVID19 cases and deaths since mid March 2019")