View source: R/geompointedline.R
1 2 3 |
1 2 3 4 5 6 7 8 9 | ggplot() +
geom_pointedline(
data = filter(LifeExpectancy, Country.Code == "WLD") %>% drop_na(),
aes(x = Year, y = Expectancy, color = Country.Code)
) +
geom_pointedline(
data = filter(LifeExpectancy, Country.Code == "USA") %>% drop_na(),
aes(x = Year, y = Expectancy, color = Country.Code)
)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.