Apple Mobility Data example

Apple_Mobility_example.R

library(readr)
library(dplyr)
library(tidyr)
library(lubridate)
library(ggplot2)
# from the downloaded apple mobiblity data of the day
mobl <- read_csv("applemobilitytrends-2020-05-03.csv")
# colums added for each day, so get number of coluns in current data
extant <- ncol(mobl)
# graph specific choices
wanted_regions <- c("New Zealand", "Australia")
wanted_modes <- c("driving", "walking")
mobl %>%
  filter(region %in% wanted_regions, transportation_type %in% wanted_modes) %>%
  gather(key=Date, value=usage, 5:extant) %>%
  mutate(Date = ymd(Date)) %>%
  ggplot(aes(x=Date, y=usage, colour=region, linetype=transportation_type)) +
  geom_line() + theme_minimal()