如何在底數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

嘗試在對hist的調用中添加probability=TRUE 。 這將縮放直方圖以使其具有1的面積，該面積與density的結果相同，因此它們可以很好地繪制在一起。 上面的代碼可能添加了曲線，但是縮放比例不同，它看起來像沿着底部的一條水平線。