```r
filtered_gapminder <- gapminder %>% 
  filter(year == 2007)
p <- ggplot(data = filtered_gapminder, 
            mapping = aes(x = gdpPercap, 
                          y = lifeExp,
                          color = continent))
p + geom_point() + 
    scale_x_log10(labels = scales::dollar,
                  breaks = c(300,3000,30000)) +
    facet_wrap(vars(continent))
```