# lattice 中添加了密度曲线的直方图
iris.panel = histogram(
~ Sepal.Length | Species, xlab = "花萼长度", ylab = "分布密度",
layout = c(3, 1), data = iris, type = "density",
panel = function(x, ...) {
panel.histogram(x, ...)
panel.mathdensity(
dmath = dnorm, col = "red",
lwd = 2, args = list(mean = mean(x), sd = sd(x))
)
}
)
print(iris.panel)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.