Как объединить 4 графика в одно изображение

Question

У меня есть четыре мини-графика, которые я хотел бы объединить в одно изображение.Можно ли этого достичь в базе R?

 #graphs1
 par(mar=c(0, 5, 0, 2.1))
 H <- c(0, 0, 2, 0, 21) # Create the data for the chart, cont3.#
 M <- c("Very Low", "Low", "Medium", "High", "Very High")

  barplot(H, col =c("slategray1", "slategray1","slategray1",
                             "slategray1", "steelblue3"), 
  horiz = TRUE, 
  family="Arial", border = NA, names.arg = M, 
  xlim = range(0,100), ylim = range(0, 0.08), 
  axes = FALSE, width = 0.01, las=1, xaxt='n') 

  #graph2
  par(mar=c(0, 5, 0, 2.1))

  H <- c(0, 0, 1, 4, 18) # Create the data for the chart
  M <- c("Very Low", "Low", "Medium", "High", "Very High")

  barplot(H, col =c("slategray1", "slategray1","slategray1",
              "slategray1", "steelblue3"), 
    horiz = TRUE, 
    family="Arial", border = NA, names.arg = M, 
    xlim = range(0,100), ylim = range(0, 0.08), 
    axes = FALSE, width = 0.01, las=1, xaxt='n') 

  #graphs3
  par(mar=c(0, 5, 0, 2.1))

  H <- c(0, 1, 3, 4, 14) # Create the data for the chart 
  M <- c("Very Low", "Low", "Medium", "High", "Very High")

  barplot(H, col =c("slategray1", "slategray1","slategray1",
              "slategray1", "steelblue3"), 
    horiz = TRUE, 
    family="Arial", border = NA, names.arg = M, 
    xlim = range(0,100), ylim = range(0, 0.08), 
    axes = FALSE, width = 0.01, las=1, xaxt='n') 

 #graph4
 par(mar=c(0, 5, 0, 2.1))
 H <- c(0, 1, 4, 4, 16) # Create the data for the chart, cont3.#
 M <- c("Very Low", "Low", "Medium", "High", "Very High")

 barplot(H, col =c("slategray1", "slategray1","slategray1",
              "slategray1", "steelblue3"), 
    horiz = TRUE, 
    family="Arial", border = NA, names.arg = M, 
    xlim = range(0,100), ylim = range(0, 0.08), 
    axes = FALSE, width = 0.01, las=1, xaxt='n') 

Я бы хотел, чтобы четыре графика, созданные в приведенном выше коде, были объединены в одно изображение в базе R.

Answer 1

Перед созданием первого сюжета выполните:

par(mfrow = c(2,2))

для размещения четырех графиков на сетке 2 x 2, которую можно экспортировать как одно изображение.