在同一圖表上繪製兩張圖R，ggplot2 par（mfrow（））

Question

我在做一些挖掘後感覺這可能不起作用，我需要發現另一種方法，但是我會反正問。

我要，我要繪製在同一圖表上，通過利用par(mfrow=c(1,2))

我的代碼爲圖圖如下：

mTotal <- mean(data$Total) 
mTotal 

data$valence1[data$Total >= mTotal] <- "Above Mean" 
data$valence1[data$Total < mTotal] <- "Below Mean" 
data$valence2[data$Delta >= 0] <- "Positive" 
data$valence2[data$Delta < 0] <- "Negative" 

data 

par(mfrow=c(1,2)) 

ggplot(data, 
     aes(x = Index, 
      y = Total, 
      fill = valence1)) + 
    geom_bar(stat = "identity", 
      colour = "black", 
      alpha = 0.618) + 
    geom_hline(yintercept = mTotal, 
      linetype = "dashed", 
      colour = "red") + 
    annotate("text", x = 19, y = mTotal + 50, 
      label = "Problem Period") + 
    xlab("Date") + 
    ylab("Ambulance Arrivals") + 
    ggtitle("Ambulance Arrivals by Month 
      Jan 2013 - Feb 2014") 

maxDelta <- max(data$Delta) 
maxDelta 
minDelta <- min(data$Delta) 
minDelta 

ggplot(data, 
     aes(x = Index, 
      y = Delta, 
      fill = valence2)) + 
    geom_bar(stat = "identity", 
      position = "identity", 
      colour = "black", 
      alpha = 0.618) + 
    annotate("rect", xmin = 13.5, xmax = 24.5, 
      ymin = minDelta, ymax = maxDelta, 
      alpha = 0.3, fill = "blue") + 
    annotate("text", x = 19, y = maxDelta + 25, 
      label = "Problem Period") + 
    xlab("Date") + 
    ylab("Change in Arrivals") + 
    ggtitle("Change in Ambulance Arrivals Month over Month") 

如果這是不可能的，那麼一個更好的路線方向將不勝感激。

謝謝

Answer 1

看那gridExtra包，然後用grid.arrange代替。與ggplot巧妙地合作。

你的第一個電話ggplot只是分配給一個變量（例如plot1）和旁邊的另一個（例如plot2），並做一些事情，如：

grid.arrange(plot1, plot2, nrow=1, ncol=2) 

Answer 2

mfrow是與基地顯卡使用。對於ggplot2你需要一個不同的方法，如通過@hrbmstr提到的，或本之一：

library("ggplot2") 
library("grid") 

a <- qplot(x = rnorm(10)) 
b <- qplot(x = rnorm(10)) 

vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y) 

grid.newpage() 
pushViewport(viewport(layout = grid.layout(1, 2))) 

print(a, vp = vplayout(1,1)) 
print(b, vp = vplayout(1,2)) 

Answer 3

遲到了，但我不得不處理這個發現對於multiplots一個簡單的解決方案簡單地看在中gridExtra包（上@hrbrmstr builind）：

library("ggplot2") 
library("gridExtra") 
pl <- lapply(1:4, function(.x) qplot(1:10, rnorm(10), main=paste("plot", .x))) 
marrangeGrob(pl, nrow=2, ncol=2) 

只要把您繪製在lapply生成功能，你所有的設置。