Data Science Desktop Survival Guide
by Graham Williams |
|||||
Sub-Block Alignment |
20200105
Preferred
ds <- weatherAUS
names(ds) <- rattle::normVarNames(names(ds)) ds %>% group_by(location) %>% mutate(rainfall=cumsum(risk_mm)) %>% { ggplot(., aes(date, rainfall)) + geom_line() + facet_wrap(~location) + theme(axis.text.x=element_text(angle=90)) } %T>% print() -> plot_cum_rainfall_by_location
|