Я пытаюсь извлечь имена растровых слоев из файла netcdf, как ранее было написано, из стека растров. Экспорт растрового стека в ncdf работает нормально. Например:
library(raster)
library(ncdf4)
library(RNetCDF)
#Create some rasters (x3)
r1<-raster(system.file("external/test.grd", package="raster"))
r2<-r1*2
r3<-r2*3
#Stack them
rstack<-stack(r1,r2,r3)
#Give each raster layer a name - in this instance years 2014 to 2016
names(rstack)<-c("2014","2015","2016")
#Write out to netcdf format
writeRaster(rstack, "rstack.nc", overwrite=TRUE, format="CDF", varname="Temperature", varunit="degC",
longname="Temperature -- raster stack to netCDF", xname="X", yname="Y",zname="Year",
zunit="numeric")
Однако, когда я читаю файл ncdf обратно в R, размер Z (т.е. год) не сохраняется. Например:
#Open the new netcdf dataset and look at the Z dimention, i.e. "Year"
data.nc<- open.nc("rstack.nc")
Zdim = var.get.nc(ncfile=data.nc,variable="Year")
print(Zdim)
#[1] 1 2 3
Итак, мы получаем номера диапазонов, то есть 1,2,3. Но мне нужен текст, определенный Годом (например, 2014,2015,2016), как определено в:
names(rstack)<-c("2014","2015","2016")
Можно ли сделать это?? Эта проблема не нова, обратитесь сюда: https://gis.stackexchange.com/questions/122167/export-band-names-with-netcdf-file-in-r.
Есть несколько запутанных обходных путей для получения того, что требуется, но они кажутся в значительной степени неэффективными (то есть преобразование стека в матрицу, а затем управление ею отсюда). Просто интересно, есть ли более элегантный способ без необходимости писать большой объем дополнительного кода и занимать ненужную оперативную память.