We don't support your browser anymore

Please choose more modern alternatives, such as Google Chrome or Firefox.

Example Landing Page

Example Landing Page



library(ggplot2)
library(dplyr)
library(gapminder)

myplot <- function(plot_year = 2007) {
  gapminder %>%
    filter(year == plot_year) %>%
    ggplot() + 
    geom_point(aes(x = gdpPercap, 
                   y = lifeExp, 
                   color = continent,
                   size = pop), alpha=0.7) +
    scale_size(range = c(0, 12)) +
    ggtitle("GDP per Capita vs Life Expectancy", plot_year)
}

myplot(2007)