grafik_gapminder_part1.R

#install library gapminder dan tidyverse jika belum diinstall 
#install.packages("gapminder")
#install.packages("tidyverse)

library(tidyverse)
library(gapminder)

gapminder_subset <- gapminder %>%
    filter(year == 2007)

ggplot(gapminder_subset, aes(x = lifeExp, y = gdpPercap, color = continent, 
                             size = pop)) + geom_point() + scale_y_log10() + 
                            scale_x_log10() + labs(title = "Grafik data negara tahun 2007")