将曲线添加到格子条形图

Question

希望问题发布正确。这可能是微不足道的，但我仍然无法回答。我检查了几个选项，包括包含 here 的信息，但没有运气。也许，我仍然不习惯 Lattice 命令，或者这个问题实际上并不相关。

我会将条形图与曲线重叠，例如（比方说）正态标准分布曲线或数据的密度分布。

请以以下数据为例，代表多次掷骰的结果：

e11 <- data.frame(freq = rep(seq(1, 6, 1), c(53, 46, 42, 65, 47, 44)))

plot_e11 <- barchart(e11,
            horizontal = FALSE,
            type = "density",
            main = "Die results frequencies",
            panel = function(x, ...){
                    panel.barchart(x, ...)
                    panel.abline(densityplot(e11$freq))})
print(plot_e11a)

它 returns 正常条形图而不是预期结果。

如何向条形图中添加曲线，例如下例中的曲线？

plot_e11b <- densityplot(e11$freq,
                     plot.points = FALSE)

Answer 1

panel.abline是错误的面板函数。

panel.abline adds a line of the form y = a + b * x, or vertical and/or horizontal lines.

densityplot(e11$freq, 
            panel=function(x, ...) { 
              tab <- table(x)
              panel.barchart(names(tab), tab/length(x),
                             horizontal=FALSE)              
              panel.densityplot(x, plot.points=FALSE)},
            ylim=c(0, 0.3))

将曲线添加到格子条形图

Add curve to Lattice barchart

plot

r

lattice