data_visualization/COVID-19ggplotDeaths.R at master · AcademicDataCentre/data_visualization · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
# load the data
Deaths <- read.csv("time_series_19-covid-Deaths.csv")
View(Deaths)
# convert data from wide to long
Deaths<-Deaths[,c(-1,-3,-4)]%>%melt(id="Country.Region")
View(Deaths)
# Aggregate data by country and day
Deaths1<-Deaths%>%group_by(Country.Region,variable)%>%summarise(Cases=sum(value))
View(Deaths1)
#Rename columns
colnames(Deaths1)<-c("Country","Date","Cases")
View(Deaths1)
#Covert factors to date format
Deaths1$Date<-str_replace(Deaths1$Date,"X","")
Deaths1$Date<-gsub("[[:punct:]]","/",Deaths1$Date)
Deaths1$Date<-as.Date(Deaths1$Date,"%m/%d/%y")
#Select the country
Deaths1_subset<-Deaths1%>%filter(Country=="US"|Country=="Canada"|Country=="Italy"|Country=="Mainland China"|Country=="Iran"|Country=="South Korea")
View(Deaths1_subset)

# Create a static plot
lastDate<-max(Deaths1_subset$Date)
ggplot(Deaths1_subset, aes(x=Date, y=Cases, group=Country, color=Country)) +
  geom_line() +
  geom_point() +
  scale_y_log10("Number of Deaths", breaks = trans_breaks("log10", function(x) 10^x),
                labels = trans_format("log10", math_format(10^.x)))+
  scale_x_date("Day", date_breaks ="1 week", date_labels = "%b %d")+
  ggtitle(paste("Cumulative Deaths Over Time As Of ",lastDate)) +
  theme_classic() + scale_color_manual(values=wes_palette("IsleofDogs1", 6))
theme(legend.position = c(0.13, 0.75))
# Create an animation gif file

p<-ggplot(Deaths1_subset, aes(x=Date, y=Cases, group=Country, color=Country)) +
  geom_line() +
  geom_point() +
  geom_text(aes(x = max(Date)+.1, label = sprintf("%5.0f", Cases)), hjust=-0.5) +
  transition_reveal(Date) +
  view_follow(fixed_y = TRUE)+
  coord_cartesian(clip = 'off') +
  scale_y_log10("Number of Deaths", breaks = trans_breaks("log10", function(x) 10^x),
                labels = trans_format("log10", math_format(10^.x)))+
  scale_x_date("Day", date_breaks ="1 week", date_labels = "%b %d")+
  enter_drift(x_mod = -1) + exit_drift(x_mod = 1) +
  theme_classic() +
  theme(legend.position = c(0.13, 0.88),
        plot.margin = margin(5.5, 40, 5.5, 5.5))

animate(p, fps=5,renderer = gifski_renderer("COVID-19Deaths.gif"))