如何从R中的四维netCDF数据中提取值？

install.packages("ncdf4")  # 安装ncdf4包
library(ncdf4)  # 加载ncdf4包

nc <- nc_open("path/to/netcdf/file.nc")  # 替换为netCDF文件的路径

nc$dim  # 显示netCDF文件的维度信息

var_name <- "variable_name"  # 替换为要提取值的变量名称
dim1_index <- 1  # 替换为第一个维度的索引
dim2_index <- 2  # 替换为第二个维度的索引
dim3_index <- 3  # 替换为第三个维度的索引
dim4_index <- 4  # 替换为第四个维度的索引

values <- ncvar_get(nc, var_name, start = c(dim1_index, dim2_index, dim3_index, dim4_index), count = c(1, 1, 1, 1))

nc_close(nc)