# show the data
wages
library(ggplot2)
# set seed so that the plots stay the same
set.seed(2019-7-15-1300)
# explore a sample of five individuals
wages %>%
sample_n_keys(size = 5) %>%
ggplot(aes(x = xp,
y = ln_wages,
group = id)) +
geom_line()
# Explore many samples with `facet_sample()`
ggplot(wages,
aes(x = xp,
y = ln_wages,
group = id)) +
geom_line() +
facet_sample()
# explore the five number summary of ln_wages with `features`
wages %>%
features(ln_wages, feat_five_num)
Run the code above in your browser using DataLab