3

gridExtraパッケージgrid.arrange関数を使用してmultipggplotグラフを結合しています。

私はこれをしています：

p1<-ggplot(x, aes(Date, Value)) + geom_line()
p2<-ggplot(y, aes(Date, Score)) + geom_point()
grid.arrange(p1, p2,  main=textGrob("Head Line", gp=gpar(cex=1.5, fontface="bold", col="#990000")), ncol = 1, clip=TRUE)

このコマンドは、p1とp2の間に境界線を置きます。grid.arrangeで境界線を削除するための情報が見つかりませんでした。境界線を削除することは可能ですか？

4

2 に答える 2

8

gridExtraプロット間に追加の境界線を配置しません。表示されているのは、各プロットをすでに囲んでいる境界線だけです。つまり、p1の下部に境界線があり、p2の上部に境界線があります。2つを組み合わせると、2つの間に追加のスペースがあるように見える場合があります。

各プロットの境界線を削除または調整するplot.marginには、関数の要素を使用しthemeます。以下は、p1の下部マージンとp2の上部マージンを削除します。

library(ggplot2)
library(gridExtra)

p1<-ggplot(data.frame(x = 1:10, y = 1:10), aes(x, y)) + geom_line() +
      theme(plot.margin = unit(c(1,1,0,1), "lines"))

p2<-ggplot(data.frame(x = 1:10, y = 1:10), aes(x, y)) + geom_point() +
   theme(plot.margin = unit(c(0,1,1,1), "lines"))

grid.arrange(p1, p2,  top=textGrob("Head Line", 
     gp=gpar(cex=1.5, fontface="bold", col="#990000")), ncol = 1, clip=TRUE)

ここに画像の説明を入力してください

編集（2015年7月16日）：gridExtra> = 2.0.0で、mainパラメーターの名前が変更されましtopた。

于 2012-12-05T21:54:42.260 に答える
0

少し遅れましたが、同じ問題があり、解決策を見つけたと思います。plot.marginは役に立ちませんでしたが、panel.borderとplot.background（引数の色と塗りつぶし）をプロットの背景色に調整することでうまくいきました。

于 2020-08-24T17:34:50.830 に答える