次のスクリプトを使用して、結合されたプロットの下に2行から3行の図のキャプションを作成しようとしています:
library(grid)
library(gridExtra)
library(ggplot2)
g1 <- ggplotGrob(pl) #pl is my plot 1
g2 <- ggplotGrob(pl1) #pl1 is my plot 2
g <- rbind(g1, g2) #this combines my two plots
caption <- textGrob(expression(paste(bold("Figure 1"), ". This is the first line with a", italic( " scientific name."),"\nThis should be the second line.","\nThis is the third line.")), hjust=0, x=0) #caption to be incorporated at the lower left of the combined plots
g <- gtable::gtable_add_rows(g, unit(2,"mm") + grobHeight(caption), -1) #incorporating the combined plots with the caption
g <- gtable::gtable_add_grob(g, caption, nrow(g), l = 4, r = ncol(g)) #incorporating the combined plots with the caption
grid.newpage()
grid.draw(g)
しかし、このコマンドを実行しようとすると、まだ 1 行のキャプションが形成されます。
アップデート：
@baptiste さん、ご提案ありがとうございます。これで、改行コマンドが plotmath と互換性がないことがわかりました。しかし、新しいスクリプトを取り込もうとすると、プロットが消えてキャプションと結合しませんでした。
今私のクエリは次のとおりです。
- @baptiste 卿によって提案されたスクリプトを元のスクリプト (上記のように) に組み込み、2 つのプロット (pl と pl1) をキャプション (@baptiste によって提供された) の左下部分に結合するにはどうすればよいでしょうか。組み合わせプロット？
これを修正する方法について何か提案はありますか? どうもありがとうございました。