Data Visualization
with ggplot2
Joel Ross
Winter 2017
INFO 201
https://slides.com/joelross/info201w17ggplot2/live
Today's Objectives
By the end of class, you should be able to
 Describe visualizations using the Grammar of Graphics
 Use ggplot2 to draw beautiful data charts
 Organize data in the proper shape
Why create graphical visualizations of data?
What's wrong with tables?
How would you describe this chart?
Grammar of Data Manipulation
Words (verbs) used to describe ways to manipulate data:
 Select the columns of interest
 Filter out irrelevant data to keep rows of interest
 Mutate a data set by adding more columns
 Arrange the rows in a data set
 Summarize the data (e.g., mean, median, max)
 Group the data by category
 Join multiple data sets together
Grammar of Graphics
Words used to describe the visual components and aspects of a graphic.
 Data shown in the plot
 Geometric objects (geoms) that appear on the plot
 Aesthetic mappings from the data to the geoms
 Statistical transformation used to calculate the data
 Scales (range of values) for each aesthetic
 Coordinate system to organize the geoms
 Facets or groups of data shown in different plots
Layers
Organize plots into layers, where each layer has:
 A geometric object
 A set of aesthetic mappings
 A statistical transformation
 A position adjustment
How to describe with Grammar of Graphics?
ggplot2
ggplot2 is an R package (library) that implements this Grammar of Graphics.
It provides declarative functions for specifying plots in terms of the grammar.
install.packages("ggplot2") # once per machine
library("ggplot2") # load the package
Plotting with ggplot2
Use the
ggplot()
function to draw a plot, specifying plot elements via the grammar.
# plot the `mpg` data set, with highway milage
# on the x axis and engine displacement (power)
# on the y axis:
ggplot(data = mpg) +
geom_point(mapping = aes(x = displ, y = hwy))
data to plot
add geometry
geometric objects (points)
aesthetic mappings
property = column
Aesthetics
The
aes()
function specifies
aesthetic mappings from data values to
visual channels.
# color the data by car type
ggplot(data = mpg) +
geom_point(mapping = aes(x = displ, y = hwy, color = class))
xlocation based on
displ column
(continuous)
color based on class column (discrete)
Can also set visual channels without mapping
# blue points!
ggplot(data = mpg) +
geom_point(aes(x = displ, y = hwy), color = "blue")
Geoms
ggplot2 supports many different geoms, each created with a function. Each geom requires/supports different aesthetics.
# line chart of milage by engine power
ggplot(data = mpg) +
geom_line(mapping = aes(x = displ, y = hwy))
# bar chart of car type
ggplot(data = mpg) +
geom_bar(mapping = aes(x = class))
no y mapping,
automatically aggregated
Each plot can include multiple geoms, which inherit data and aesthetics unless specified otherwise.
ggplot(data = mpg) +
geom_point(mapping = aes(x = displ, y = hwy)) +
geom_smooth(mapping = aes(x = displ, y = hwy), se=FALSE)
ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
geom_point() +
geom_smooth(se=FALSE)
FORK and clone the repo
to turn in for participation
Grammar of Graphics
Words used to describe the visual components and aspects of a graphic.
 Data shown in the plot
 Geometric objects (geoms) that appear on the plot
 Aesthetic mappings from the data to the geoms
 Statistical transformation used to calculate the data
 Scales (range of values) for each aesthetic
 Coordinate system to organize the geoms
 Facets or groups of data shown in different plots
Statistical Transformation
Many geoms have a default statistical transformation used to calculate new data to plot (e.g., for bar graphs).
# bar chart of car type
ggplot(data = mpg) +
geom_bar(mapping = aes(x = class), stat="count")
explicit "count"
for y
Each geom is associated with a stat_ function, and can be used interchangeably.
# these two charts are identical
ggplot(data = mpg) +
geom_bar(mapping = aes(x = class))
ggplot(data = mpg) +
stat_count(mapping = aes(x = class))
Position Adjustment
Many geoms have a default position adjustment use to lay out the plot separate from the aesthetic mappings
# bar chart of milage, colored by car type
ggplot(data = mpg) +
geom_bar(mapping = aes(x = hwy, fill = class))
# bar chart of milage, colored by car type
ggplot(data = mpg) +
geom_bar(aes(x=hwy, fill=class), position="fill")
Scales
Add scales to a plot to determine the range of (aesthetic) values data should map to (replacing the default)
# city/highway milage relationship
ggplot(data = mpg) +
geom_point(mapping = aes(x = cty, y = hwy, color = class)) +
scale_x_reverse() + # reverse x axis
scale_color_hue(l = 70, c = 30) # custom color scale
aesthetic
to scale
scale to use
1
2
3
4
5
"red"
"yellow"
"blue"
"green"
"purple"
Data
Aesthetic
ColorBrewer Scales
Use palettes from colorbrewer.org to specify color schemes that are colorbind safe.
# efficiency by engine size, colored nicely
ggplot(data = mpg) +
geom_point(aes(x = displ, y = hwy, color = class), size=4) +
scale_color_brewer(palette = "Set3")
Coordinate System
You can also add a specific coordinate system to a plot.
# horizontal bar chart of milage, colored by car type
ggplot(data = mpg) +
geom_bar(mapping = aes(x = hwy, fill = class)) +
coord_flip()
# A pie chart = stacked bar chart + polar coordinates
ggplot(mpg, aes(x = factor(1), fill = factor(cyl))) +
geom_bar(width = 1) +
coord_polar(theta = "y")
make numeric vector into factor
angle based on (aggregate) "y"
Facets
Break a plot into parts with
facets (similar to
group_by()
in
dplyr
). Each facet acts like a "level" in a factor, with a plot for each level.
# a plot with facets based on vehicle type.
ggplot(data = mpg) +
geom_point(mapping = aes(x = displ, y = hwy)) +
facet_wrap(~class)
A formula , read as
"as a function of"
What if we want to
facet by exam?
Consider a data set...
Data Shape
Wide Data
Long Data
6 rows x 4 cols
= 24 scores
24 rows x 1 col
= 24 scores
Data Shape
We can convert between
wide and
long data (and vice versa) using the
tidyr
package.
# Alternatively, install "tidyverse"
install.packages("tidyr") # once per machine
library("tidyr")
# Make a data.frame (example)
students < data.frame(
name = c('Mason', 'Tabi', 'Bryce', 'Ada', 'Bob','Filipe'),
section = c('a','a','a','b','b','b'),
math_exam1 = c(91, 82, 93, 100, 78, 91),
math_exam2 = c(88, 79, 77, 99, 88, 93),
spanish_exam1 = c(79, 88, 92, 83, 87, 77),
spanish_exam2 = c(99, 92, 92, 82, 85, 95)
)
Data Shape
students.long < gather(students.wide,
key = exam,
value = score,
math_exam1, math_exam2,
spanish_exam1, spanish_exam2
)
Convert from
wide to
long using
gather()
. The
key is a new column containing
gathered colnames, and
value is a new column with their values.
# spread by column "exam"
stu.wide < spread(students.long, key = exam, value = score)
# spread by column "name"
stu.wide.name <
spread(students.long, key = name, value = score)
Convert from
long to
wide using
spread()
. The
key is where to get the
new colnames, and
value is where to get the values
names for new columns
col data to populate with
Questions on anything so far?
Action Items!

Be comfortable with module 13

Assignment 5 due Thursday before class

(Assignment 6 online soon)

Thursday: What makes a good visualization?
Also maps.
Copy of info201w17ggplot2
By Michael Freeman
Copy of info201w17ggplot2
 508