如何将表格添加到图表中？

Question

我使用以下命令创建了一个闪避的条形图：

a = c(1,1,1,1,1,1,1,2,2,2,2,2,2,2) 
b = c("A","A","A","B","B","B","B","C","C","D","D","D","D","D") 
c = c(60,20,20,80,5,5,5,50,50,25,25,25,20,5) 
dat = data.frame(Group=a, Member=b, Percentage=c) 
ggplot(dat, aes(x=Member, y=Percentage)) + geom_bar(stat="identity", position="dodge", fill="white", colour="black") 

如果我有一组值：

table_values = c("2", "4", "2", "1")
table_total = c("A", "B", "C", "D")
tab = data.frame(Type=table_total, Value=table_values)

如何将其作为表格添加到我的图表中以使其对齐？像这样的：

我可以手动执行此操作，但我有很多图表要生成，所以我想知道这是否可以自动化。有关如何执行此操作的任何建议？

Answer 1

这有点小技巧，但您可以使用 geom_text 进行注释，将文本放置为略微负的 y 值。这会将其放入绘图区域而不是轴下方。

ggplot(dat, aes(x=Member, y=Percentage)) + 
  geom_bar(stat="identity", position="dodge", fill="white", colour="black") +
  geom_text(aes(x=table_total, label=table_values), y=-2, data=tab)

我更多涉及的方法是创建两个单独的图，一个是条形图，一个是“表格”（关闭几乎所有主题元素）并使用 align.plots 之类的东西（不确定是否是正确的名称）在ggExtra 包中。