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

gm_eu <- gapminder %>%
  filter(continent == "Europe")
gm_eu