data(singer)
densityplot( ~ height | voice.part, data = singer, layout = c(2, 4),
xlab = "Height (inches)", bw = 5)
## Using a predefined panel function to fit a normal distribution
densityplot( ~ height | voice.part, data = singer, layout = c(2, 4),
xlab = "Height (inches)",
ylab = "Kernel Density/ Normal Fit",
main = list("Estimated Density", cex = 2, col = "DarkOliveGreen"),
panel = function(x, ...) {
panel.xyplot(x = jitter(x),
y = rep(0, length(x)))
panel.densityplot(x, ...)
panel.mathdensity(dmath = dnorm,
args = list(mean=mean(x),sd=sd(x)))
} )
Run the code above in your browser using DataLab