This is a function that makes some changes to visualize the eartquakes on the timeline
1 |
1 2 3 4 5 6 7 8 | ## Not run:
data %>% eq_clean_data() %>%
filter(COUNTRY %in% c("USA"), YEAR > 2000) %>%
ggplot(aes(x = DATE, y = COUNTRY, colour = TOTAL_DEATHS, size = EQ_PRIMARY)) +
geom_timeline() +
theme_timeline()
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.