用不同的 y 尺度覆盖直方图

Question

我正在努力解决以下问题：

我想绘制两个直方图，但由于两个类之一的统计数据比另一个少得多，我需要添加第二个 y 轴以允许直接比较值。

我在下面报告我目前使用的代码和结果。

提前谢谢你！

ggplot(data,aes(x= x ,group=class,fill=class)) + geom_histogram(position="identity",
  alpha=0.5, bins = 20)+ theme_bw() 

Answer 1

考虑以下情况，您有 800 个与 200 个观察值：

library(ggplot2)

df <- data.frame(
  x = rnorm(1000, rep(c(1, 2), c(800, 200))),
  class = rep(c("A", "B"), c(800, 200))
)

ggplot(df, aes(x, fill = class)) +
  geom_histogram(bins = 20, position = "identity", alpha = 0.5,
  # Note that y = stat(count) is the default behaviour
                 mapping = aes(y = stat(count)))

您可以使用y = stat(ncount) 将每个组的计数扩展到最多 1：

ggplot(df, aes(x, fill = class)) +
  geom_histogram(bins = 20, position = "identity", alpha = 0.5,
                 mapping = aes(y = stat(ncount)))

或者，您可以设置 y = stat(density) 使总面积积分为 1。

ggplot(df, aes(x, fill = class)) +
  geom_histogram(bins = 20, position = "identity", alpha = 0.5,
                 mapping = aes(y = stat(density)))

请注意，在 ggplot 3.3.0 之后，stat() 可能会被 after_stat() 取代。

Answer 2

如何将它们与方面并排比较？

ggplot(data,aes(x= x ,group=class,fill=class)) +
  geom_histogram(position="identity",
                 alpha=0.5,
                 bins = 20) +
  theme_bw() +
  facet_wrap(~class, scales = "free_y")