Week 3 Lecture 2

ggplot

The following code is adapted from Kieran Healy’s Data Visualization, Ch. 3. Please see the readings for exaplanations.

First graph in ggplot

p <- ggplot(data = gapminder,
            mapping = aes(x = gdpPercap,
                          y=lifeExp))
p + geom_point()

p <- ggplot(data = gapminder,
            mapping = aes(x = gdpPercap,
                          y=lifeExp))
p +  geom_point() + geom_smooth(method="loess")

p <- ggplot(data = gapminder,
            mapping = aes(x = gdpPercap,
                          y=lifeExp))
p + geom_point() + geom_smooth(method="loess") + scale_x_continuous(labels=scales::dollar)

p <- ggplot(data = gapminder,
            mapping = aes(x = gdpPercap,
                          y=lifeExp))
p + geom_point() + geom_smooth(method="loess") + scale_x_log10()

p <- ggplot(data = gapminder,
            mapping = aes(x = gdpPercap,
                          y=lifeExp))
p + geom_point() + geom_smooth(method="loess") + scale_x_log10(labels=scales::dollar)