Well, as I guess, you would like to have a look at the codes. This is what I am using
data <- data %>%
dplyr::mutate(date=lubridate::parse_date_time(date, "ymd"))
DailyDeaths <- (data$new_deaths/data$population)*100
PLOT2 <- data %>%
dplyr::mutate(seven_avg= ma(DailyDeaths, 7)) %>%
ggplot(aes(x=date, y=DailyDeaths)) +
geom_col(aes(x=date, y=DailyDeaths, fill="Daily New Deaths"))+
geom_line(aes(x=date, y = seven_avg, color = "7-days MA of New Deaths"),size = 1.5)+
labs(title="", x="", y="")+theme_classic()+scale_fill_manual(name = NULL, values = c("Daily New Deaths" = "#3f8dba")) +
scale_color_manual(name = NULL, values = c("7-days MA of New Deaths" = "red"))+theme(legend.position=c(0.005,0.83), legend.justification = c("left"),legend.key.width=unit(0.5, "lines"), legend.text=element_text(size=9),legend.box = "vertical",
axis.text.x = element_text(size = 9), axis.text.y = element_text(size =9),panel.border = element_rect(colour = "black", fill=NA, size=0.5))+expand_limits(y=c(-0.000, 0.0015))