library(ggplot2)
sample_n_keys(heights,
size = 10) %>%
ggplot(aes(x = year,
y = height_cm,
group = country)) +
geom_line()
library(ggplot2)
sample_frac_keys(wages,
0.1) %>%
ggplot(aes(x = xp,
y = unemploy_rate,
group = id)) +
geom_line()
Run the code above in your browser using DataLab