gapminder %>%
  select(country, year, lifeExp) %>%
  filter(year == 2007, country == "Poland")