Creates a theme for timeline visualization
1 |
1 2 3 4 5 6 7 8 9 10 11 12 | ## Not run:
data %>% eq_clean_data() %>%
filter(COUNTRY %in% c("USA", "CHINA")) %>%
ggplot(aes(x = DATE,
y = COUNTRY,
color = as.numeric(TOTAL_DEATHS),
size = as.numeric(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.