如何在基数R的直方图上绘制2条曲线？

Question

我用基数R制作了这个直方图：

以下是代码：

data=read.csv("cholesterol.csv")
newdata=subset(data, data$SEX=="female")
newdata1=subset(data, data$SEX=="male")
hist(newdata$CHOLESTEROL,breaks=10,col=rgb(red = F, green = T, blue = F,
alpha = 0.3), xlim=c(0,350), ylim=c(0,25), xaxs="i", yaxs="i", las=1, main="", xlab="Cholesterol", ylab="Frequentie", border=rgb(red = F, green = T, blue = F, alpha = 0.3))
hist(newdata1$CHOLESTEROL, breaks=10,col=rgb(red = T, green = F, blue = F, alpha = 0.4), border=rgb(red = T, green = F, blue = F, alpha = 0.4), add=T)
legend('topright', c('Female','Male'),fill = rgb(0:1,1:0,0,0.4), bty='n', border = NA)

我现在想在这个直方图上画一条曲线，我希望每组（女性和男性）都有一条明显的曲线。 我尝试了几个突击队（例如lines(density(newdata$CHOLESTEROL), col="red", lty=1, lwd=1)），但没有一个突然出现曲线。我也无法在互联网上找到解决方案，所以我希望有人可以帮助我:)。

Answer 1

尝试将probability=TRUE添加到hist的来电中。这会将直方图缩放为具有1的面积，与density的结果相同，以便它们很好地绘制在一起。上面的代码可能是添加了曲线，但由于缩放的不同，它看起来像是底部的水平线。