inst/examples/hist-geyser2.R

In yihui/MSG: Data and Functions for the Book Modern Statistical Graphics

# ggplot2 绘制喷泉间隔时间直方图
library(ggplot2)
library(cowplot)
data(geyser, package = "MASS")
p = ggplot(aes(waiting), data = geyser) +
  labs(x = "间隔时间", y = "频数")
p1 = p + geom_histogram(breaks = seq(40, 110, by = 5))
p2 = p + geom_histogram(breaks = seq(40, 110, by = 5),
                         aes(y = ..density..))
p3 = p + geom_histogram(breaks = seq(40, 110, by = 10))
p4 = p + geom_histogram(breaks = seq(42, 108, by = 2),
                         fill = "red", color = "black")
print(plot_grid(p1, p2, p3, p4, align = "v", ncol = 2,
                labels = c("(1)", "(2)","(3)", "(4)"), label_x = 0.2))