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