R Notebook

library(gapminder)
gapminder

library(dplyr)
filter(gapminder, continent == "Oceania")

library(gapminder)
datos_oceania <- filter(gapminder, continent == "Oceania")
datos_oceania

glimpse(datos_oceania)

Observations: 24
Variables: 6
$ country   <fct> Australia, Australia, Australia, Australia, Australia, Australia, Australia...
$ continent <fct> Oceania, Oceania, Oceania, Oceania, Oceania, Oceania, Oceania, Oceania, Oce...
$ year      <int> 1952, 1957, 1962, 1967, 1972, 1977, 1982, 1987, 1992, 1997, 2002, 2007, 195...
$ lifeExp   <dbl> 69.120, 70.330, 70.930, 71.100, 71.930, 73.490, 74.740, 76.320, 77.560, 78....
$ pop       <int> 8691212, 9712569, 10794968, 11872264, 13177000, 14074100, 15184200, 1625724...
$ gdpPercap <dbl> 10039.60, 10949.65, 12217.23, 14526.12, 16788.63, 18334.20, 19477.01, 21888...

ggplot(datos_oceania) +
  geom_point(mapping = aes(x = gdpPercap, y = lifeExp, size = pop))