将曲线添加到莱迪思条形图

Question

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

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

请考虑以下数据作为示例，表示几个模具的结果：

Unexpected token

它返回正常的条形图而不是预期的结果。

如何在条形图中添加曲线，例如以下示例中的曲线？

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)

Answer 1

panel.abline是错误的面板功能。

  

panel.abline添加y = a + b * x或垂直形式的一行   和/或水平线。

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))