如何在 ggplot2 中在 0 和 1 之间缩放直方图？

Question

ggplot() + 
  geom_histogram(data = df1, aes(x=meanf,fill = "g", color="g"), alpha = 0.6,binwidth = 0.02)+
  geom_histogram(data = df2, aes(x=meanf,fill = "b", color="b"), alpha = 0.4,binwidth = 0.02)+
  scale_colour_manual(name="N1", values=c("g" = "green", "b"="blue"), labels=c("b"="1", "g"="2")) +
  scale_fill_manual(name="N2", values=c("g" = "green", "b"="blue"), labels=c("b"="1", "g"="2"))+
  theme_bw()+
  ggsave('temp.jpg')

我得到带有直方图计数的绘图，但我想在 0 和 1 之间缩放它。从这个问题 Normalizing y-axis in histograms in R ggplot to proportion ，我了解如何为一个数据帧执行此操作，但如果我使用两个数据帧怎么办，就像我的问题一样？

Answer 1

geom_histogram(data = df1, aes(y = ..ncount..,x=meanf,fill = "g", color="g"))

应该这样做。

如果您希望两个直方图都被同一个除数归一化：

首先得到原始直方图的y范围。 Refer here

ggobj <- ggplot() + 
  geom_histogram(data = df1, aes(x=meanf,fill = "g", color="g"), alpha = 0.6,binwidth = 0.02)+
  geom_histogram(data = df2, aes(x=meanf,fill = "b", color="b"), alpha = 0.4,binwidth = 0.02)

y_max <- ggplot_build(ggobj)$panel$ranges[[1]]$y.range[2] 

然后重新创建您的直方图并使用您获得的 y_range 对其进行缩放。

p <- ggplot() + 
      geom_histogram(data = df1, aes(y_max=y_max, y=..count../y_max,x=meanf,fill = "g", color="g"), alpha = 0.6,binwidth = 0.02)+
      geom_histogram(data = df2, aes(y_max=y_max, y=..count../y_max,x=meanf,fill = "b", color="b"), alpha = 0.4,binwidth = 0.02)

Answer 2

首先缩放数据！只需创建一个 y 轴在 0 和某个数字之间缩放的临时数据集 - 将所有内容除以该特定数字（如果您希望最高为 1.00，请将除数设置为最高数字）。