Question

我希望获得完全相同的信息，例如下面链接中的回答

Adding table within the plotting region of a ggplot in r 但我试图将我的额外表格信息放在左上角，标题就在它上面。我尝试更改xmin，xmax，ymin，ymax值，但它不起作用。我的X轴是我认为增加了另一层复杂性的因素。有人可以帮忙。

我也尝试了以下建议，但遗憾的是没有grid（）包。

http://www.cookbook-r.com/Graphs/Multiple_graphs_on_one_page_(ggplot2)/

感谢您的帮助。

编辑：从评论中复制的代码

ggplot(data=AMIClean, aes(x=Month_Year_Final, y=Observed_Rate, group=1)) 
+ geom_line(aes(group=1),colour = "forestgreen")+ geom_point(size=3, colour="black") 
+ xlab("Month Year(N=Denominator Cases)") + ylab("Readmission Rate(%)") 
+ ggtitle("AMI Trend (%)")+ theme_bw() 
+ theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) 
+ theme(axis.text.x = element_text(angle = 45, hjust = 1)) 
+ annotation_custom(tableGrob(AMITableCurrent),xmax=24,xmin=0 ymin=0, ymax=30)

Answer 1

# Here is my code. Again Thank you everybody. 
  ggplot(data=AMIClean, aes(x=Month_Year_Final, y=Observed_Rate, group=1)) +
  geom_line(aes(group=1),colour = "forestgreen")+
  geom_point(size=3, colour="black") +
  xlab("Month Year(N=Denominator Cases)") +
  ylab("Readmission Rate(%)") +
  ggtitle("AMI Readmission Trend (%)")+
  theme_bw()+
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())+
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  annotation_custom(tableGrob(AMI_Inset),xmin=17, xmax=22, ymin=29, ymax=30)

带有额外表格的R版ggplot 3.2.1

1 个答案: