核密度图和直方图叠加

Question

所以我找到了一种使用 ggplot2 将我的 KDE 密度函数与我的直方图叠加的方法，但是我注意到我的直方图 y 轴是正确的频率，但我想为我的密度图，我也不知道如何放大我的密度图。

我使用的代码是：

data_set <- mammals

library(ggplot2)
ggplot(data=data_set, aes(data_set$`Total Averages`))+
  geom_histogram(col='black', fill = 'white', binwidth = 0.5)+
  labs(x = 'Log10 total body mass (kg)', y = 'Frequency', title = 'Average body mass (kg) of mammalian species (male and female)')+
  geom_density(col=2)

我已经发布了指向下面图片的链接，说明我的情节是什么样的

Answer 1

您的直方图是使用count 每bins 的数据绘制的。要获得scaled 的密度，您可以通过传递y = ..count.. 来更改密度的表示。

如果你想表示这个密度的比例（例如缩放到最大为1），你可以在scale_y_continuous 中传递sec.axis 参数（SO 上的很多帖子都开发了这个特定的使用函数）如下：

df <- data.frame(Total_average = rnorm(100,0,2)) # Dummy example

library(ggplot2)
ggplot(df, aes(Total_average))+
  geom_histogram(col='black', fill = 'white', binwidth = 0.5)+
  labs(x = 'Log10 total body mass (kg)', y = 'Frequency', title = 'Average body mass (kg) of mammalian species (male and female)')+
  geom_density(aes(y = ..count..), col=2)+
  scale_y_continuous(sec.axis = sec_axis(~./20, name = "Scaled Density"))

你会得到：

它回答了你的问题吗？