5

grid.arrangefromパッケージを使用しgridExtraて、1ページに2つのグラフを配置し、pngファイルに保存しています。によって生成される最終的なpngファイルの背景色を変更するのが好きですgrid.arrange。出来ますか？私はどんな情報にも出くわすことができませんでした。

grid.arrange(p1, p2, main=textGrob("CPU Util", gp=gpar(cex=1.2, fontface="bold", col="#990000")), ncol = 1, clip=TRUE)
4

2 に答える 2

8

bg =引数をに設定してみてくださいpng()

library(gridExtra)
library(lattice)

png(bg = "wheat1")
    grid.arrange(xyplot(1:10~1:10, pch=16), xyplot(1:4~1:4, pch=16))
dev.off()

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

于 2012-12-03T20:54:51.853 に答える
0

を使用する場合、ここに示すように、パッケージの関数ggplot2も便利であることがわかりました。ggdraw()cowplot

次に例を示します。

library(ggplot2)
library(gridExtra)

# Create two plots
p1 <- ggplot(mtcars, aes(hp, mpg)) + 
  geom_point() + 
  theme(plot.background = element_rect(fill="wheat1", color = NA))
p2 <- ggplot(mtcars, aes(hp, drat)) + 
  geom_point() + 
  theme(plot.background = element_rect(fill="wheat1", color = NA))

# stitch them together
g <- grid.arrange(p1, p2, nrow = 1)
# final touch
g2 <- cowplot::ggdraw(g) + 
  theme(plot.background = element_rect(fill="wheat1", color = NA))

# check the plot
plot(g2)
# save it as png
ggsave("img/plot-background.png", g2)

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

p1とp2はすでに塗りつぶしセットがありますが、同じ塗りつぶしを使用してplot.backgroundラップすると消える細い線が残ります。2つのタイルをつなぎ合わせてから、ペイントの最後のレイヤーにブラシをかけるように。grid.arrangecowplot::ggdraw

于 2018-11-25T20:12:57.100 に答える