相关疑难解决方法(0)

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

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)

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

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

我正在寻找一种方法来复制下面显示的加热表类型R(可能还有ggplot2).具体时间轴无关紧要; 任何矩形表都应该这样做.

我试着搜索Heat map和Heat table谷歌,但找不到该诀窍任何[R包.

思考？