Summarizing Data

Meetups
Slides and recording for the Summarizing Data meetup.
Author

Jason Bryer

Published

February 9, 2026

Click here to open the slides (PDF).

letters vowels <- c(‘a’, ‘e’, ‘i’, ‘o’, ‘u’) letters %in% vowels letters %in% vowels |> which()

library(ggplot2) library(brickset) data(legosets)

ggplot(legosets, aes(x = US_retailPrice)) + geom_histogram() ggplot(legosets, aes(x = US_retailPrice)) + geom_histogram(binwidth = 50) ggplot(legosets, aes(x = US_retailPrice)) + geom_histogram(bins = 40) ggplot(legosets, aes(x = US_retailPrice)) + geom_histogram() ggplot(legosets, aes(x = US_retailPrice, fill = availability)) + geom_histogram() ggplot(legosets, aes(x = US_retailPrice)) + geom_histogram(fill = ‘white’, color = ‘purple’)