ggplot2 标记多层条形图

Question

我想要做的是在下面的示例中使用它们各自的数据标签标记两个 geom_bar() 。到目前为止，我只能让其中一个出现：

输入（）：

x <- structure(list(variable = c("a", "b", "c"), f = c(0.98, 0.66, 
0.34), m = c(0.75760989010989, 0.24890977443609, 0.175125)), .Names = c("variable", 
"f", "m"), row.names = c(NA, 3L), class = "data.frame")

ggplot(x, aes(variable, f, label=paste(f*100,"%", sep=""))) + 
geom_bar() + 
geom_text(size=3, hjust=1.3, colour="white") +
geom_bar(aes(variable, m, label=paste(m*100,"%",sep="")), fill="purple") + 
coord_flip()

看看黑色的里面是如何有一个数据标签的。在同一个情节中，我想在紫色的内部做同样的事情。

Answer 1

这对你有什么作用：

ggplot(x, aes(variable, f, label=paste(f*100,"%", sep=""))) + 
geom_bar() + 
geom_text(size=3, hjust=1.3, colour="white") +
geom_bar(aes(variable, m, label=paste(m*100,"%",sep="")), fill="purple") + 
geom_text(aes(y=m,label=paste(round(m*100),"%",sep="")),size=3, hjust=1.3, colour="white") +
coord_flip()

Answer 2

您可能需要考虑一种不同的方法。

如果图表的主要目标是比较条形的长度/位置，那么在条形中包含数字会产生“模糊”条形，使眼睛/大脑更难正确判断条形的长度/位置.

如果主要目标是比较数字，那么您所拥有的是一个布局不佳的表格（背景为彩色），如果数字排列正确，比较数字会更容易。

一些替代方案包括使用单独的图表和表格（均正确布局），或者将数字放在边距（正确对齐）而不是条形顶部，或者在边缘单元格中创建带有条形图的表格。您可能还想考虑点图而不是条形图（ggplot2 应该仍然很容易做到这一点），堆叠条允许仅对第一个（最左边）类别和总数进行合理比较，在您的示例中比较不容易顶部和底部条的黑色部分的相对大小。