Testing Google Mobility Data

library(ggplot2)
library(dplyr)
library(magrittr)
library(tidyr)

mob <- read.csv('/Users/kenwosu/Desktop/WHO AFRO/Global_Mobility_Report.csv')

#ghana only
ghana <- filter(mob, country_region== "Ghana")

#simpler names
names(ghana) <- c("code","country","region1","region2","isocode","censuscode", "date",
                  "retail and recreational areas", "groceries and pharmacies", "parks", "transit stations",
                  "workplaces", "residential areas")

#delete useless vars
ghana <- ghana[,7:13]

#reshape
ghanalong <- pivot_longer(ghana, cols = c("retail and recreational areas", "groceries and pharmacies", "parks", "transit stations", "workplaces", "residential areas"))

#filter and plot
ghanalong$date <- as.Date(ghanalong$date)
ghanalong %>% 
  filter(name %in% c("retail and recreational areas","groceries and pharmacies",
                     "workplaces", "residential areas")) %>% 
  ggplot() +
  geom_line(aes(x=date, y=value, color = name)) +
  labs(y="% change from baseline", x="", title="Mobility Changes in Ghana" ) +
  scale_x_date(date_labels = "%b %d") +
  theme(legend.title = element_blank(),
        legend.position = "bottom",
        panel.background = element_rect(fill = "transparent"),
        title = element_text(face = "bold"),
        plot.background = element_rect(fill = "transparent"),
        panel.grid.major = element_line(color = alpha("gray50", 0.2), size = 0.5),
        panel.grid.major.x = element_blank(),
        axis.line = element_line(color = "gray40", size = 0.5),
        axis.line.y = element_blank())