title: Plot two Graphs on Same Chart R, ggplot2 par(mfrow())
body: <p>I am getting the feeling after doing some digging that this probably will not work and I will need to discover an alternate method but I am going to ask anyways.</p>
  
  <p>I have to graphs that I want to plot on the same chart, by making use of <code>par(mfrow=c(1,2))</code></p>
  
  <p>My code for the graphs is as follows:</p>
  
  <pre><code>mTotal &lt;- mean(data$Total)
  mTotal
  
  data$valence1[data$Total &gt;= mTotal] &lt;- "Above Mean"
  data$valence1[data$Total &lt; mTotal] &lt;- "Below Mean"
  data$valence2[data$Delta &gt;= 0] &lt;- "Positive"
  data$valence2[data$Delta &lt; 0] &lt;- "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 &lt;- max(data$Delta)
  maxDelta
  minDelta &lt;- 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")
  </code></pre>
  
  <p>If this is not possible, then a direction to a better route would be appreciated.</p>
  
  <p>Thank you,</p>