Skip to content

Instantly share code, notes, and snippets.

@yaojenkuo
Last active March 31, 2020 09:04
Show Gist options
  • Select an option

  • Save yaojenkuo/668b4bcbfbb84c0e4cfbc29a3a36b188 to your computer and use it in GitHub Desktop.

Select an option

Save yaojenkuo/668b4bcbfbb84c0e4cfbc29a3a36b188 to your computer and use it in GitHub Desktop.
library(dplyr)
library(ggplot2)
ttl_confirmed_by_date <- ts_long %>%
group_by(Date) %>%
summarise(Confirmed = sum(Confirmed)) %>%
ggplot(aes(x = Date, y = Confirmed)) +
geom_line() +
geom_point() +
ggtitle("Confirmed")
ttl_confirmed_by_date
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment