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

Question

以下 sn-p 创建堆叠条形图，显示“清晰度”通过“切割”的分布。

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