ggplot2：添加显示总分布的堆积条

Question

以下代码段创建堆叠条形图，显示“cut”分布的“清晰度”。

data(diamonds)
qplot(cut, data=diamonds, geom="bar", fill=clarity, position="fill")

另一个图显示整个数据集的“清晰度”的总分布。

qplot(x=factor(""), data=diamonds, geom="bar", fill=clarity, position="fill")

有没有办法将第二个图作为额外的条添加到第一个图中，比如说标签为“total”？

Answer 1

许多方法，但在这里：

diamonds2 <- diamonds
diamonds2$cut <- "Total"
diamonds3 <- rbind(diamonds, diamonds2)

qplot(cut, data=diamonds3, geom="bar", fill=clarity, position="fill")