作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我想使用 terra
包逐层写入栅格。我正在使用以下代码
library(terra)
# first create a raster
r1 <- r2 <- r3 <- rast(nrow=10, ncol=10)
# Assign random cell values
values(r1) <- runif(ncell(r1))
values(r2) <- runif(ncell(r2))
values(r3) <- runif(ncell(r3))
s <- c(r1, r2, r3)
s
plot(s)
writeRaster(s, names(s), overwrite=TRUE)
它给了我以下错误
Error: [writeRaster] cannot open file: C:/Users/nn/Desktop/lyr.1In addition: Warning message:C:/Users/nn/Desktop/lyr.1: No such file or directory (GDAL error 4)
我想使用以下函数在 raster
包中提供相同的输出
raster::writeRaster(s, names(s), bylayer=TRUE, format='GTiff', overwrite=TRUE)
最佳答案
你还需要多做一些工作
dir.create("test")
setwd("test")
f <- paste0("test", 1:nlyr(s), ".tif")
r <- writeRaster(s, f, overwrite=TRUE)
list.files()
# [1] "test1.tif" "test2.tif" "test3.tif"
r
#class : SpatRaster
#dimensions : 10, 10, 3 (nrow, ncol, nlyr)
#resolution : 36, 18 (x, y)
#extent : -180, 180, -90, 90 (xmin, xmax, ymin, ymax)
#coord. ref. : +proj=longlat +datum=WGS84 +no_defs
#sources : test1.tif
# test2.tif
# test3.tif
#names : lyr.1, lyr.1, lyr.1
#min values : 0.02075680, 0.01058152, 0.02179740
#max values : 0.9874134, 0.9990475, 0.9883418
这也有效:
names(s) <- c("a", "b", "c")
x <- writeRaster(s, names(s), overwrite=TRUE, filetype="GTiff")
但请注意文件名没有 tif 扩展名
sources(x)
# source nlyr
#1 ./test/a 1
#2 ./test/b 1
#3 ./test/c 1
所以我会做
z <- writeRaster(s, paste0(names(s), ".tif"), overwrite=TRUE)
#class : SpatRaster
#dimensions : 10, 10, 3 (nrow, ncol, nlyr)
#resolution : 36, 18 (x, y)
#extent : -180, 180, -90, 90 (xmin, xmax, ymin, ymax)
#coord. ref. : +proj=longlat +datum=WGS84 +no_defs
#sources : a.tif
# b.tif
# c.tif
#names : a, b, c
#min values : 0.02075680, 0.01058152, 0.02179740
#max values : 0.9874134, 0.9990475, 0.9883418
现在改进了错误消息(参见 this issue)
关于r - 如何在 R 中使用 terra 包编写栅格 bylayer?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/68253507/
我是一名优秀的程序员,十分优秀!