抛砖引玉,for循环版的需要用的人写吧!
才开始我想转为tif的,所以有savename这个变量。
library(raster)
library(ncdf4)
# NC文件所在额路径
path <- "/Users/feizhu/Desktop/PRMS/era"
filename <- paste0(path,"/",list.files(path,pattern = ".nc$"))
#savename <- gsub(".nc",".tif",filename)
#varname 变量名,可以通过nc_open()函数确定这个变量
raster = stack(filename[1], varname = varname)
aa = t(extract(raster,c(lon,lat)))
# 数据第一列是时间,第二列是这个经纬度的对应的数据