Reading in NetCDF data in R and exporting as a geotiff

This definitely passes my “post things that took more than half an hour to work out” as I know Aaron O’Leary was originally basing his posts on.

I’ve never had to deal with netCDF files before. They are a great way of storing lots of data and lots of variables and once you understand their structure, they are very efficient ways of distributing data. HOWEVER, if you’ve never had to deal with them before they are a bit of a headache.

I ended up doing this in R (and have done the equivalent now in IDL and Python which I may post soon) and have pieced the process together following “flick throughs” of R package (including raster and netcdf) documentation and stack exchange threads amongst other sources including here as well as here followed by here.

The first step is to install the right packages:

#If it's the first time:
> install.packages("ncdf")
> install.packages("raster")

#If you've already got them in your library:
> library(ncdf)
> library(raster)

Next, you want to get your NetCDF file read and to find some summary data about it:

> = open.ncdf(your_path:/ # contains info on the .nc file but not the data
> print( # verbose description of the file
> summary( # concise summary info

Assuming you know the names of the variables and attributes contained within the .nc file, you can now start pulling data out to different objects.

In this example, we’ll deal with geographic info assuming our netcdf file contains the following variables:

  • proj_info
  • x_positions
  • y_positions
  • z_values

Let’s say our “proj_info” variable contain the following attributes:

  • ellipsoid
  • false_easting
  • false_northing
  • lat_zero
  • lon_zero
  • lat_proj_origin

To get the variable info:

> proj_info = get.var.ncdf(, "proj_info", verbose=TRUE) 
> x = get.var.ncdf(, "x", verbose=TRUE)          
> y = get.var.ncdf(, "y", verbose=TRUE)          
> z = getx.var.ncdf(, "z", verbose=TRUE)   

If you receive an error message when trying to allocate some of this data to any of these variables saying something like:

"Error in mv * 1e-05 : non-numeric argument to binary operator"

then a fix can be found described here.

To get the attribute info:

> ellipsoid = att.get.ncdf(, "proj_info", 'ellipsoid')
> false_easting = att.get.ncdf(, "proj_info", 'false_easting')
> false_northing = att.get.ncdf(, "proj_info", 'false_northing') 
> lat_zero = att.get.ncdf(, "proj_info", 'lat_zero') 
> lon_zero = att.get.ncdf(, "proj_info", 'lon_zero')
> lat_proj_origin = att.get.ncdf(, "proj_info", 'lat_proj_origin')

It would be handy for you to also print out this data to check we are reading in what we think we should be.

Now that we have our data, we can now set about creating a raster - this can be plotted to check all looks correct and the exported as a geotiff.

Firstly lets combine our x, y and z data into a list we’ll conveniently call “data”:

> data=list()
> data$x=x
> data$y=y
> data$y=y
> data$z=z
> str(data)

We can now create a raster (which we’ll call “ras”) using the raster package - ignoring projection info, this can be done simply as:

> ras = raster(data) 

As we have the projection info it would be useful to ensure the geotiff also contains this. By printing out the projection attributes set above (ellipsoid, false_easting and so on), you can now populate the projection variable that can be set as an input to the raster command. Here I am referring to the “CRS” variable of the raster package. This takes in a string following the proj4 syntax for which a list of variables can be found here.

Lets assume our projection info is as follows:

  • projection system = Polar Stereographic
  • central latitude = 71.
  • central longitude = -39
  • false easting = 0.
  • false northing = 0.
  • ellipsoid = WGS1984

We can now create our raster (ras) - containing all of the required projection information - by formatting our raster function and defining the CRS variable using the correct proj4 syntax as follows:

> ras=raster(data, crs=CRS("+proj=stere +lat_0=71. +lon_0=-39 +x_0=0. +y_0=0. +ellps=WGS1984"))

To export this as a geotiff - which can easily be opened in ArcGIS amongst multiple other programmes - use the following:

> ras_out<-writeRaster(r,"your_path/your_file.tif",format="GTiff")
Written on February 2, 2015