用总频率和电平分割R条形图

Question

我想在R中绘制条形图，并排显示总频率，并在各个条中用不同的颜色编码。

例如，如果我们在R中具有以下数据表或数据帧 Df <-    是的。一种。 b。 C    一月15. 6. 5. 4  四月。 17. 7. 5. 5  9月20. 9. 7. 4  12月25日。11。8. 6

然后我想用x轴= Y绘制条形图 Y轴=频率的总交错5 并且在每个栏中用a，b，c颜色编码以及Y

沿x轴拆分每个条，其中一半显示每个Y的a，b，c级别，一半显示Y的总计（用色码表示）。

Answer 1

您要堆积条形图吗？如果是这样，您需要reshape2::melt()排除Total的数据，然后使用ggplot2来绘制：

library(reshape2)
library(ggplot2)

df <- data.frame(Y = c("Jan", "April", "Sep", "Dec"),
                 Total = c(15,17,20,25),
                 a = c(6,7,9,11),
                 b = c(5,5,7,8),
                 c = c(4,5,4,6))
df1 <- melt(df[,-2], id.vars = "Y")

ggplot(df1, aes(x = Y, y = value, fill = variable)) +
  geom_bar(stat = 'identity')