Data Visualization

Faceted Table of Histograms

Overview

Teaching: 5 min
Exercises: 15 min
Questions

  • What kind of scientific question does a faceted table of charts address?

  • How do I generate a faceted table with ggplot2?

Objectives

  • To generate a faceted table of histograms using ggplot2

Build student independence to walk through decision making steps from question to chart.

Implement faceted table of histograms.

Fix the Faceted Table Code Challenge

Fix the code to generate a faceted table of histograms.

ggplot(pop_2007, aes(year)) +
  geom_histogram(binwidth=0.5) +
  scale_x_log10(limits = c(0.1, 10))
  facet_grid(continent ~ .) +
  labs(x = Population [millions], y = Number of countries, 
       title = "2007") +
  theme_bw(base_size = 42, base_family = "Script") +
  theme(axis.title=element_text(size=36))

Output Solution

faceted histogram

Code Solution

ggplot(pop_2007, aes(population/1000000)) +             # Replace aes()
 geom_histogram(binwidth=0.5) +
 scale_x_log10(limits = c(0.1, 1000)) +                 # Add +
 facet_grid(. ~ continent) +                            # Reverse ~ .
 labs(x = "Population [millions]", y = "Number of countries", 
      title = "2007") +                                 # Add ""
 theme_bw(base_size = 24, base_family = "Helvetica") +  # Fix input vars
 theme(axis.title = element_text(size = 36))

Alternate Good Charts Discussion

This is another quality solution to addressing “How was the world population distributed among continents in 2007?”

Compare and contrast the two graphic representations addressing the research question.

grouped density

Grouped Density Chart Code

ggplot(pop_2007, aes(x = population/1000000, y = ..count.., fill = continent)) +
 geom_density(alpha = 0.6) +
 geom_histogram(data=filter(pop_2007, continent=="Oceania"), alpha = 0.6) +
 scale_x_log10(limits = c(0.1, 1000)) +
 labs(x = "Population [millions]", y = "Number of countries", title = "2007") +
 theme_bw(base_size = 24, base_family = "Helvetica") +
 theme(axis.title = element_text(size = 36))

Key Points