r - 将 1000 个透明 png 文件合并为一个

Question

我正在尝试在一个 png 或其他光栅文件中合并（叠加）~1000 个（总共 12MB）透明图像 *.png。必须使用 R 中的哪个包或函数？

这些图像包含雷达云数据。雷达每天制作约 350 png。样本：001、002、003、004 _ _ _ _ _

这是色彩传说的传说

之后，我会将结果与 120 个雨量计的数据进行比较。

现在我使用这段代码

library(base)
library(png)

homeserverDir = "S:/R/radarTEST"
dDir_new = paste(homeserverDir, "dd_stack", sep = "/")
rr_dir = paste(homeserverDir, "dd_stackD", sep = "/")

setwd(dDir_new)
filenames <- list.files(path = dDir_new, pattern="*.png")
theATs <- lapply(filenames, raster)

STACK1 <- stack(theATs)

res <- Reduce("+", theATs, accumulate = TRUE)

setwd(rr_dir)

lapply(seq_along(res), function(x) {
  writeRaster(res[[x]], paste(filenames[x], "_cumsum", sep = ""), datatype = 'FLT4S', overwrite = TRUE)
})


Grids_list = list.files(rr_dir, "grd")
Radar_sum = raster(Grids_list[length(Grids_list)])

plot(Radar_sum)

标签： rimage-processingimagemagickbigdatapng