在 R 中保存来自 function 的多个图

Question

我正在使用 R package 强度分析和 function CIA 的 ZEFE70A8E604A7C6D。 执行 function 后，我会得到多个图。 但是，一个重叠在另一个上，我只能看到并保存最后一个。

可能这是一个简单的问题，但我在谷歌上没有找到任何答案，因为很多人指的是同时显示多个图。 我想要的是能够看到 function 自动生成的所有图表并保存它们。

你能给我任何帮助吗？ 我会给你下面的代码。

编辑：实际上我有这个用户之前发布的相同问题（ 如何在 R 中保存由一个 function 生成的多个连续图？ ）。 但是，我没有 function 的代码，所以我什至无法尝试使用它并避免使用该问题的答案给出的参数作为解决方案。

library(sf)
library(sp)
library(raster)
library(rgdal)
library(sabre)
library(intensity.analysis)

C05 <- raster("C05.rst")
C11 <- raster("C11.rst")
C18 <- raster("C18.rst")

raster.layers <- list(C05, C11, C18)
time.points <- c("2005","2011","2018")
categories <- c("Agricultural areas", "Vegetation areas", "Urban fabric", "Industrial and commercial areas", "Mineral extraction sites", "Dump sites", "Road and rail networks", "Port areas", "Airports", "Artificial green urban areas", "Open spaces with little or no vegetation", "Water bodies", "Background")

crosstab.output <- crosstabulation <- multicrosstab(raster.layers, time.points, categories)

CIA.output <- CIA(crosstabulation, time.points, categories)
filename <- file.path(normalizePath(tempdir(), winslash = "/"), "CIA.csv")
CIA2csv(CIA.output, time.points, categories, filename)

Answer 1

您可以使用 par() function 设置图形参数

par(mfrow= c(2,2))

mfrow 参数采用昏暗 2 的向量来创建绘图的“栅格”

所以

plot(x)
plot(x)
plot(x)
plot(x)

会给你这个：

像这样：