R версия ggplot с дополнительной таблицей 3.2.1

Question

Я хочу добиться точно такого же данных, как ответ на ссылке ниже

Adding table within the plotting region of a ggplot in r , но я пытаюсь поставить свою дополнительную информацию в таблице в левом верхнем углу с заголовком на нем . Я попытался изменить значения xmin, xmax, ymin, ymax, но это не сработало. Моя ось X является фактором, который, я думаю, добавил еще один уровень сложности. Может кто-нибудь помочь.

Я попробовал следующее предложение, но, к сожалению, больше нет сетки().

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

Ваша помощь ценится.

Edit: Код скопирован из комментариев

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)