尝试将 NetCDF 导入 R 时出错

Joh*_*nes 5 r data-import netcdf

我正在努力在 R 中打开 NetCDF 文件。当我尝试使用以下命令打开它时

library(ncdf)
# read in NetCDF file
maize.nc<-open.ncdf("C:/Users/Jo/Desktop/pft_harvest_maize.nc")
Run Code Online (Sandbox Code Playgroud)

我收到以下错误消息:

 Error in R_nc_open: NetCDF: Unknown file format
 Error in open.ncdf("C:/Users/Jo/Desktop/pft_harvest_maize.nc") : 
   Error in open.ncdf trying to open file C:/Users/Jo/Desktop/pft_harvest_maize.nc
Run Code Online (Sandbox Code Playgroud)

奇怪的是,另一个带有径流数据的 NetCDF 文件来自完全相同的模拟,具有完全相同的数据类型,打开时没有任何问题。

文件大小的差异是径流:56.1 MB(58,870,472 字节)和收获:149 MB(156,968,508 字节)。所以文件实际上并没有太大而无法打开。有人知道我如何追踪导致此问题的错误吗?

使用该RNetCDF包我遇到了同样的问题(Error: NetCDF: Unknown file format

从 ncdump 我得到:

netcdf pft_harvest_maize {
dimensions:
        time = 199 ;
        npft = 32 ;
        latitude = 78 ;
        longitude = 79 ;
variables:
        string NamePFT(npft) ;
        int time(time) ;
                time:units = "Years" ;
        float latitude(latitude) ;
                latitude:units = "degrees_north" ;
                latitude:long_name = "latitude" ;
            latitude:standard_name = "latitude" ;
            latitude:axis = "Y" ;
    float longitude(longitude) ;
            longitude:units = "degrees_east" ;
            longitude:long_name = "longitude" ;
            longitude:standard_name = "longitude" ;
            longitude:axis = "X" ;
    float harvest(time, npft, latitude, longitude) ;
            harvest:units = "gC/m2/yr" ;
            harvest:long_name = "harvested carbon" ;
            harvest:missing_value = -9999.99f ;
            harvest:_FillValue = -9999.99f 
}
Run Code Online (Sandbox Code Playgroud)

该文件可以在这里找到: netCDF-file

小智 4

ncdump -k 的转储给出的 netcdf 文件格式为 netCDF-4。我能够使用该包打开该文件,ncdf4因为 ncdf 似乎不向后兼容版本 4 文件:

“但是,ncdf 软件包不提供 netcdf 版本 4 文件的接口。”

ncdf4文档中。

library(ncdf4)
mycdf <- nc_open(file.choose(), verbose = TRUE, write = FALSE)
timedata <- ncvar_get(mycdf,'time')
lat <- ncvar_get(mycdf,'latitude')
long <- ncvar_get(mycdf,'longitude')
harvestdata <- ncvar_get(mycdf,'harvest')

str(harvestdata)
Run Code Online (Sandbox Code Playgroud)

给出

num [1:79, 1:78, 1:32, 1:199] NA NA NA NA NA NA NA NA NA NA ...
Run Code Online (Sandbox Code Playgroud)