Я пытаюсь настроить линию плотности, чтобы она следовала над столбцами гистограммы. На данный момент у меня есть этот код ...
histo <- hist(data, col="lightgray", breaks = 20, density = 10, ylab = "Count", main = "", xlab = "")
multiplying_factor <- histo$counts / histo$density
mydensity <- density(data)
mydensity$y <- mydensity$y * multiplying_factor[1]
lines(mydensity, lwd= 2)
На изображении выше вы можете увидеть, что график распределения довольно низок и не 'внимательно следите за решеткой. Есть ли способ, которым я мог бы изменить свой код, чтобы линия плотности следовала за полосами более близко?