を使用して作成された 2 つのプロットを配置しようとしてggplot2いますが、プロットを正方形のサイズにし、横に共通の凡例を配置して、画像がポートレート スタイルのページにうまく収まるようにします。問題はgrid.arrange、グロブを配置するために使用すると、ラベルと凡例が小さくなり、プロット スペースが巨大になることです。
すべての比率を正しく設定するコマンドのように、grid.arrange パッケージについて欠けているものがあるに違いありませんが、テキスト サイズのさまざまな組み合わせを試し、プロットのサイズを設定しようとしましたが、何も機能していないようです. 手伝ってくれませんか？
x1 <- c(10,20,30,40,50,60,70,80)
x2 <- c(20,40,60,80)
y1 <- c(10,30,100,30,20,40,20,10)
y2 <- c(20,60,20,30)
z1 <- c(1,1,1,2,2,2,2,2)
z2 <- c(2,2,1,2,1,2,1,2)
df1 <- data.frame(x=x1,y=y1, z=z1)
df2 <- data.frame(x=x2,y=y2, z=z1)
p1<- ggplot(df1, aes(x=x,
y=y,
group=z,
colour=z)) +
geom_point() + theme_bw() +
xlab("The size of this is tiny using grid.arrange") +ylab("The size of this is tiny using grid.arrange") + ggtitle("A") + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), plot.title=element_text(size=16, hjust=0), axis.title = element_text(size=14), axis.text= element_text(size=12), legend.text= element_text(size = 12), legend.title = element_text(size = 12)) +
geom_abline(intercept = 0, slope = 1) +
xlim(0, 100) + ylim(0, 100) + guides(colour = guide_legend("\n This is a \n multi-line legend title", override.aes = list(size = 10)))
p2<- ggplot(df2, aes(x=x,
y=y,
group=z,
colour=z)) +
geom_point() + theme_bw() +
xlab("The size of this is tiny using grid.arrange") +ylab("The size of this is tiny using grid.arrange") + ggtitle("B") + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), plot.title=element_text(size=16, hjust=0), axis.title = element_text(size=14), axis.text= element_text(size=12), legend.text= element_text(size = 12), legend.title = element_text(size = 12)) +
geom_abline(intercept = 0, slope = 1) +
xlim(0, 100) + ylim(0, 100) + guides(colour = guide_legend("\n This is a \n multi-line legend title", override.aes = list(size = 10)))
g_legend<-function(a.gplot){
tmp <- ggplot_gtable(ggplot_build(a.gplot))
leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
legend <- tmp$grobs[[leg]]
return(legend)}
mylegend<-g_legend(p1)
pdf("my.figure.pdf", height = 20, width = 30) ## I have tried many different values for this too
grid.arrange(arrangeGrob(p1 + theme(legend.position="none"), # widths = unit(20, "cm"), heights = unit(20, "cm"),
p2 + theme(legend.position="none"), # widths = unit(20, "cm"),heights = unit(20, "cm"),
main = textGrob("The main figure title is also small and hard to align left", hjust =0.6, gp = gpar(fontsize = 22)), nrow=1, heights=rep(10,10)), # widths = unit(10, "cm"),heights = unit(4, "cm")),
mylegend, widths=unit.c(unit(1, "npc") - sum(mylegend$width), sum(mylegend$width)), nrow=1)
dev.off()
