# NOT RUN {
set.seed(1000)
dat <- data.frame(Location = rnorm(1:1000, mean = 200, sd = 75),
Type = sample(c("Big Red Monster", "Little Green Alien",
"One-Eyed, One-Horned Flying Purple People Eater"), 1000, TRUE))
ggplot(dat, aes(x = Type, y = Location)) +
geom_boxplot()
ggplot(label_breaks(dat, 2), aes(x = Type, y = Location)) +
geom_boxplot()
ggplot(label_breaks(dat, "Type"), aes(x = Type, y = Location)) +
geom_boxplot() +
coord_flip()
# }
Run the code above in your browser using DataLab