wk3_3_14_reading_json

august <- seq(as_date("2018-08-01"), as_date("2018-08-31"), by = 1)

aug_rates <- map_dfr(august, getDay)


aug_rates_filter1 <- aug_rates %>% 
  filter(currency %in% c("AUD", "NZD", "JPY", "EUR", "GBP"))

aug_rates_filter1 <- aug_rates_filter1 %>% 
  filter(currency %in% c("AUD", "NZD", "EUR", "GBP"))

plot1 <- ggplot(aug_rates_filter1, aes(x = date, y = value, group=currency, colour=currency))+
  geom_line()+
  facet_wrap(~currency)

plot1

aug_rates_filter2 <- aug_rates %>% 
  filter(currency %in% c("JPY"))

ggplot(aug_rates_filter2, aes(x = date, y = value, group=currency, colour=currency))+
  geom_line()

plot2 <- ggplot(aug_rates_filter2, aes(x = date, y = value, group=currency, colour=currency))+
  geom_line()

ggarrange(plot1, plot2, 
          labels = letters[1:2], 
          nrow=2,
          ncol=1)