This is a simple theme that makes geom_timeline
look better.
1 |
1 2 3 4 5 6 7 8 9 | ## Not run:
getData() %>% eq_clean_data() %>%
filter(COUNTRY %in% c("USA"), YEAR > 2010) %>%
ggplot(aes(x = DATE, y = COUNTRY, color = as.numeric(TOTAL_DEATHS),
size = as.numeric(EQ_PRIMARY))) +
geom_timeline() + theme_timeline() +
labs(size = "Richter scale value", color = "# deaths")
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.