ฉันพยายามที่จะพล็อตหลายแปลงโดยใช้การจัดพวกเขาโดยใช้ggplot2
grid.arrange()
เนื่องจากฉันสามารถหาคนที่อธิบายปัญหาที่แท้จริงได้ฉันจึงอ้างจากคำอธิบายปัญหาจากลิงค์ :
เมื่อฉันใช้ggsave()
หลังจากgrid.arrange()
นั้นคือ
grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2)
ggsave("sgcirNIR.jpg")
ฉันไม่ได้บันทึกพล็อตกริด แต่เป็น ggplot แต่ละรายการสุดท้าย มีวิธีใดในการบันทึกพล็อตตามที่แสดงโดยgrid.arrange()
ใช้
ggsave()
หรือสิ่งที่คล้ายกันหรือไม่? นอกเหนือจากการใช้วิธีที่เก่ากว่า
jpeg("sgcirNIR.jpg")
grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2)
dev.off()
ลิงค์เดียวกันให้คำตอบด้านล่าง:
require(grid)
require(gridExtra)
p <- arrangeGrob(qplot(1,1), textGrob("test"))
grid.draw(p) # interactive device
ggsave("saving.pdf", p) # need to specify what to save explicitly
อย่างไรก็ตามฉันไม่สามารถหาวิธีใช้ggsave()
เพื่อบันทึกผลลัพธ์ของการgrid.arrange()
โทรในรหัสต่อไปนี้ซึ่งนำมาจากลิงค์ :
library(ggplot2)
library(gridExtra)
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
p1 <- qplot(carat, price, data=dsamp, colour=clarity)
p2 <- qplot(carat, price, data=dsamp, colour=clarity, geom="path")
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)}
legend <- g_legend(p1)
lwidth <- sum(legend$width)
## using grid.arrange for convenience
## could also manually push viewports
grid.arrange(arrangeGrob(p1 + theme(legend.position="none"),
p2 + theme(legend.position="none"),
main ="this is a title",
left = "This is my global Y-axis title"), legend,
widths=unit.c(unit(1, "npc") - lwidth, lwidth), nrow=1)
# What code to put here to save output of grid.arrange()?
png(); grid.arrange(); ggplot(); ggplot(); dev.off()