Plot Examples
For these visualizations, we will use the penguins
dataset from the palmerpenguins package.
library(palmerpenguins)
library(ggplot2)
library(duke)Scatter Plot
p <- ggplot(penguins, aes(bill_length_mm, flipper_length_mm)) +
geom_point(aes(colour = species)) +
labs(
title = "Bill Length vs. Flipper Length",
caption = "There are three different species of penguins.",
x = "Bill Length (mm)",
y = "Flipper Length (mm)"
)
p +
theme_duke()
Bar Plot
p <- ggplot(penguins, aes(species)) +
geom_bar(aes(fill = species)) +
labs(
title = "Species Count",
caption = "There are three different species of penguins.",
x = "Species",
y = "Count"
)
p +
theme_duke()
Histogram
p <- ggplot(penguins, aes(body_mass_g)) +
geom_histogram(aes(fill = species)) +
labs(
title = "Distribution of Penguin Body Mass",
caption = "There are three different species of penguins.",
x = "Body Mass (g)",
y = "Count"
)
p +
theme_duke()
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
Box Plot
p <- ggplot(penguins, aes(sex, body_mass_g)) +
geom_boxplot() +
labs(
title = "Comparison of Body Mass By Sex",
x = "Sex",
y = "Body Mass (g)"
)
p +
theme_duke()
#> Warning: Removed 2 rows containing non-finite values (`stat_boxplot()`).
Density Plot
p <- ggplot(penguins, aes(bill_depth_mm)) +
geom_density() +
labs(
title = "Density of Penguin Bill Depth",
x = "Bill Depth (mm)",
y = "Densiy"
)
p +
theme_duke()
Jitter Plot
p <- ggplot(penguins, aes(year, body_mass_g)) +
geom_jitter() +
labs(
title = "Comparison of Body Mass By Year",
x = "Year",
y = "Body Mass (g)"
)
p +
theme_duke()