如何在图表中添加表格？

Question

如何在图表中添加表格？

3

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

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)

如何将这个表格添加到我的图表中，使其对齐？类似于下面的这张图片：

我可以手动完成这个过程，但是我需要生成很多图表，所以想知道是否可以自动化。有什么建议吗？

- Legend

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Brian Diggs · Accepted Answer

这是一种有些取巧的方法，但是你可以使用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)

使用geom_text在图中制作类似表格的内容

更为细致的方法是创建两个不同的图，一个是柱状图，一个是“表格”（关闭几乎所有主题元素），并使用ggExtra包中的align.plots（不确定是否是正确名称）进行对齐。