绘制2个直方图和聚合数据

Question

我正在使用R为患病和健康的个体创建大小频率直方图，并配有正态分布线。我有2个问题，我正在寻求建议。

1. 如何根据汇总数据创建直方图？下面的示例表中列出了每种规模的患病和健康个体的总数。

dput（数据）

'structure(list(Size = c(25L, 28L, 31L, 45L, 60L), diseased = c(0L, 
22L, 10L, 5L, 2L), healthy = c(55L, 40L, 15L, 7L, 2L)), .Names = c("Size", 
"diseased", "healthy"), class = "data.frame", row.names = c(NA, 
-5L))'

2.如何使用正态分布线将两个直方图重叠为1个数字。

我已经尝试了以下代码用于聚合数据ggplot（数据，aes（x =大小，y =患病））+ geom_bar（stat ='identity'），这很有效，但我无法弄清楚如何为健康人添加直方图。

我还尝试使用以下文本将汇总数据（称为“数据”）还原为原始原始格式： raw＆lt; - data [rep（1：data，times = data $ diseased），“Size”，drop = FALSE]

我收到以下错误消息：rep中的错误（1：data，times = data $ diseased）：无效的'times'参数。从以前的评论来看，似乎rep函数无法处理“0”