在R

时间:2019-02-20 03:09:17

标签: r netcdf netcdf4

我正在学习在我的工作中使用ERA过渡。我需要分析一个气象站的两年序列,这是shapefile格式的一个点,并且还需要可视化流域的数据。 到目前为止,我已经阅读了netcdf文件并声明了变量

rm(list=ls())
graphics.off()
library(raster)
library(ncdf4)
library(maps)
library(maptools)
library(rgdal)
library(tidyverse)
library(reticulate)
library(ggthemes)
library(viridis)

setwd("C:/Users/TPPC/Desktop")
rutas <- list.files(path=getwd())
ncin<-nc_open("interim_2t_20152016.nc")

lat=ncvar_get(ncin,'latitude')
lon=ncvar_get(ncin,'longitude')
t<- ncvar_get(ncin, "time")

tunits<-ncatt_get(ncin,'time')
tunits$units
tustr<- strsplit(tunits$units, " ")
timestamp = as.POSIXct(t*3600,tz='GMT',origin=tustr[[1]][3])

data<-data_frame(name=attributes(ncin$var)$names) %>%
  bind_cols(map_df(.$name,ncatt_get,nc=ncin)) %>%
  mutate(values=map(name,ncvar_get,nc=ncin))
nc_close(ncin)
data

df<-expand.grid(lon=lon-360,lat=lat,timestamp=timestamp,name=data$name) %>%
  mutate(coord=factor(paste(lon,lat,'/')))

*但是在最后一行中,我得到下一个错误 错误:无法分配大小为645.2 Mb的向量

0 个答案:

没有答案