R - 將多槽保存到文件

我真的很感謝您對以下問題的幫助。我知道幾種將單個繪圖保存到文件的方法。我的問題是：如何正確地將多字段保存到文件？R - 將多槽保存到文件

首先，我不是經驗豐富的R用戶。我使用ggplot2來創建我的圖，另外我應該提到的是我使用RStudio GUI。使用R Cookbook的example，我可以在一個窗口中創建多個圖。

我想保存這個所謂的多槽到一個文件（最好是jpeg），但某種方式不能做到這一點。

我創建的multiplot如下：

##define multiplot function 
    multiplot <- function(..., plotlist=NULL, cols) { 
     require(grid) 

     # Make a list from the ... arguments and plotlist 
     plots <- c(list(...), plotlist) 

     numPlots = length(plots) 

     # Make the panel 
     plotCols = cols       # Number of columns of plots 
     plotRows = ceiling(numPlots/plotCols) # Number of rows needed, calculated from # of cols 

     # Set up the page 
     grid.newpage() 
     pushViewport(viewport(layout = grid.layout(plotRows, plotCols))) 
     vplayout <- function(x, y) 
      viewport(layout.pos.row = x, layout.pos.col = y) 

     # Make each plot, in the correct location 
     for (i in 1:numPlots) { 
      curRow = ceiling(i/plotCols) 
      curCol = (i-1) %% plotCols + 1 
      print(plots[[i]], vp = vplayout(curRow, curCol)) 
     } 

    } 

## define subplots (short example here, I specified some more aesthetics in my script) 
plot1a <- qplot(variable1,variable2,data=Mydataframe1) 
plot1b <- qplot(variable1,variable3,data=Mydataframe1) 
plot1c <- qplot(variable1,variable2,data=Mydataframe2) 
plot1d <- qplot(variable1,variable3,data=Mydataframe2) 

## plot in one frame 
Myplot <- multiplot(plot1a,plot1b,plot1c,plot1d, cols=2)

這給了期望的結果。當我嘗試保存到文件時出現問題。我可以在RStudio中手動執行此操作（使用導出 - >將繪圖另存爲圖像），但我希望在腳本中運行所有內容。我設法只保存subplot1d（這是last_plot（）），而不是完整的多槽。

我試過到目前爲止：

使用ggsave

ggsave(filename = "D:/R/plots/Myplots.jpg")

這導致只有插曲1D被保存。

使用JPEG（），print（）和dev.off（）

jpeg(filename = "Myplot.jpg", pointsize =12, quality = 200, bg = "white", res = NA, restoreConsole = TRUE) 
print(Myplot) 
dev.off()

這導致在全白圖像（只是我假設的背景）。 print（Myplot）返回NULL。

不知道我在做什麼錯在這裏。我缺乏理解R是我堅持試圖找到解決方案的原因。任何人都可以解釋我做錯了什麼，也許建議一種方法來解決我的問題？

來源

2012-07-30 M_Vermeulen

您也可以使用** gridExtra :: grid。排列（plot1a，plot1b，plot1c，plot1d，ncol = 2）** – dickoa 2012-07-30 12:32:11

gridExtra軟件包不包含grid.arrange，它包含了似乎提供相同功能的arrangeGrob。我似乎還記得一個名爲grid.arrange的函數，也許作者更改了包中的函數標題。 – 2012-07-30 15:22:51

'grid.arrange'應該在gridExtra中。可以肯定的是，'arrangeGrob' vs'multiplot'的好處之一是它與'ggsave'兼容，並且可以存儲複合grob供以後使用。 – baptiste 2012-07-30 20:26:06

它是因爲Myplot是多功能函數的返回值，它什麼都不返回（它的工作是打印圖形）。您需要打開打開JPEG設備打開多槽：

jpeg(filename = "Myplot.jpg", pointsize =12, quality = 200, bg = "white", res = NA, restoreConsole = TRUE) 
multiplot(plot1a,plot1b,plot1c,plot1d, cols=2) 
dev.off()

應該工作。

來源

2012-07-30 12:26:35 Spacedman

真的很簡單！非常感謝您解釋爲什麼我的方法無效。 – 2012-07-30 12:43:58

使用example code（R食譜），它爲我工作

png("chickweight.png") 
multiplot(p1, p2, p3, p4, cols=2) 
dev.off()

enter image description here

來源

2012-07-30 12:29:18 dickoa

你是對的，但是你的代碼與@M_Vermeulen略有不同，她首先繪製了4個圖，期望'multiplot'返回一個網格對象。這可能是'grid.arrange'顯示了這種行爲？ – 2012-07-30 12:44:31

@PaulHiemstra：我不認爲我在這裏採取了不同的方法，請看一下示例頁面。 @Spacedman解釋了真正的問題。是的'grid.arrange'顯示相同的行爲 – dickoa 2012-07-30 14:16:05

你的代碼已經合併了@Spacedman的修復，多槽需要在調用'png'中。 – 2012-07-30 15:09:53

以及物品是否完整起見，ggsave不起作用，因爲它僅在保存最後打印ggplot對象，你情況只是最後的情節。這是因爲多槽創建繪圖通過繪製ggplot對象到整個圖形設備的不同子集的事實。另一種方法是通過將ggplot對象組合到一個大的ggplot對象中，然後打印該對象來創建繪圖。這將與ggsave兼容。這種方法通過gridExtra包中的arrangeGrob實現。

來源

2012-07-30 15:19:56

在技術上，'arrangeGrob'不會創建「一個大的ggplot對象」，它會返回一個「arrange」類的gTree，如果子列表中有ggplots，那麼該類也會繼承「ggplot」來愚弄ggsave 。 – baptiste 2012-07-30 20:29:11

感謝您提供更詳細的信息。 – 2012-07-31 04:48:17

R - 將多槽保存到文件

回答

相關問題