Number of covid cases HCMC

library(readxl); library(ggplot2); library(gridExtra); library(ggthemes)

## Warning: package 'ggplot2' was built under R version 4.0.2

library(ggrepel)

df = read_excel("~/Dropbox/Bao chi/Khoa hoc & Y te/Mortality analysis VN/HCM cases.xlsx")

df$date = as.Date(df$Date)

ggplot(data=df, aes(x=date, y=Cases, col=Lockdown)) +  geom_point() +  geom_label_repel(aes(label = Cases)) + labs(x="Ngày", y="Số ca")  + theme(legend.position="none") + scale_x_date(date_breaks = "1 week")+ theme(axis.text.x = element_text(angle = 45, hjust = 1))