Question

我正在尝试将worldclim网格化气候数据下载到临时文件中，然后将其作为栅格打开。我不想将文件保存到我的电脑。我可以使用仅包含一个网格化气候数据集的zipfiles来实现这一点，但是当有很多时，我似乎无法使其工作。

提前致谢。

temp <- tempfile()
#download worldclim climate data
download.file("http://biogeo.ucdavis.edu/data/climate/worldclim/1_4/grid/cur/tmean_10m_esri.zip",temp, mode="wb")
unzip(temp,list=TRUE)#list files
#unzip and make raster, may need this as seperate steps
meanT<- raster(unzip(paste0(temp,"/tmean/tmean_9")))
unlink(temp)

Answer 1

这是一个解决方案;将下载的临时文件解压缩到临时目录。

temp <- tempfile()
tempd <- tempdir()

#download worldclim climate data
download.file("http://biogeo.ucdavis.edu/data/climate/worldclim/1_4/grid/cur/tmean_10m_esri.zip",temp, mode="wb")

unzip(temp, exdir=tempd)
tmean_raster <- raster(file.path(tempd, "tmean/tmean_9"))
unlink(tempd)

Answer 2

获取这些数据的直接方法是：

library(raster)
wc <- getData('worldclim', var='tmean', res=10)

R：使用解压缩提取下载到临时文件的栅格

2 个答案: