```r
p <- ggplot(gapminder, 
            aes(x=gdpPercap, 
                y=lifeExp,
                color=year))
p + geom_point() +
    scale_x_log10()
```

![](04__Plotting_basics_files/figure-html/unnamed-chunk-33-1.png)<!-- -->