Coordinate reference systems
Roger Bivand and Edzer Pebesma
Thursday 19 January, 2023, 10:00-11:30 CT
Introduction
The usefulness of a spatial data set is linked to knowing its coordinate reference system. If the coordinate reference system is unknown, the information in the data set may not readily be integrated with other data sets using position. Further, metric information may not be readily used to measure distances between observations.
In this workshop, we will review the background to coordinate reference systems based on E. Pebesma and Bivand (2023) (also to be found at https://r-spatial.org/book), and look somewhat more closely at datum transformation in the context of advances in the PR\(\phi\)J software implementation.
We will then go on to see how coordinate reference systems are handled, and datum transformations supported, in R packages and Python modules. The use of the S2 Geometry library will also be mentioned.
What are coordinate reference systems and when do they matter?
Before we can try to understand geometries like points, lines, polygons, coverage and grids, it is useful to review coordinate systems so that we have an idea what exactly coordinates of a point reflect. For spatial data, the locations of observations are characterised by coordinates, and coordinates are defined in a coordinate system. Different coordinate systems can be used for this, and the most important difference is whether coordinates are defined over a 2-dimensional or 3-dimensional space referenced to orthogonal axes (Cartesian coordinates), or using distance and directions (polar coordinates, spherical and ellipsoidal coordinates). Besides their locations, all observations are associated with time(s) of observation.
For many quantities, the natural origin of values is zero. This works for amounts, where differences between amounts result in meaningful negative values. For locations and times, differences have a natural zero interpretation: distance and duration. Absolute location (position) and time need a fixed origin, from which we can meaningfully measure other absolute space-time points: we call this a datum.
For space, a datum involves more than one dimension. The combination of a datum and a measurement unit (scale) is a reference system.
What are coordinate reference systems?
We will now elaborate how spatial locations can be expressed as either ellipsoidal or Cartesian coordinates.
Basic concepts
In three dimensions, where Cartesian coordinates are expressed as \((x,y,z)\), spherical coordinates are the three-dimensional equivalent of polar coordinates and can be expressed as \((r,\lambda,\phi)\), where:
- \(r\) is the radius of the sphere,
- \(\lambda\) is the longitude, measured in the \((x,y)\) plane counter-clockwise from positive \(x\), and
- \(\phi\) is the latitude, the angle between the vector and the \((x,y)\) plane.
\(\lambda\) typically varies between \(-180^{\circ}\) and \(180^{\circ}\) (or alternatively from \(0^{\circ}\) to \(360^{\circ}\)), \(\phi\) from \(-90^{\circ}\) to \(90^{\circ}\). When we are only interested in points on a sphere with given radius, we can drop \(r\): \((\lambda,\phi)\) now suffice to identify any point.
Surface or volume?
In addition to longitude and latitude we can add altitude or elevation to define points that are above or below the ellipsoid, and obtain a three dimensional space again. When defining altitude, we need to choose:
- where zero altitude is: on the ellipsoid, or relative to the surface approximating mean sea level (the geoid)?
- which direction is positive, and
- which direction is “straight up”: perpendicular to the ellipsoid surface, or in the direction of gravity, perpendicular to the surface of the geoid?
All these choices may matter, depending on the application area and required measurement accuracies.
Ellipsoid of revolution
The most commonly used parametric model for the Earth is an ellipsoid of revolution, an ellipsoid with two equal semi-axes (Iliffe and Lott 2008). In effect, this is a flattened sphere (or spheroid): the distance between the poles is (slightly: about 0.33%) smaller than the distance between two opposite points on the equator. Under this model, longitude is always measured along a circle, and latitude along an ellipse.
The shape of the Earth is not a perfect ellipsoid. As a consequence, several ellipsoids with different shape parameters and bound to the Earth in different ways are being used. Such ellipsoids are called datums.
Projected coordinates
Because paper maps and computer screens are much more abundant and practical than globes, most of the time we look at spatial data we see it projected: drawn on a flat, two-dimensional surface. Computing the locations in a two-dimensional space means that we work with projected coordinates. Projecting ellipsoidal coordinates means that shapes, directions, areas, or even all three, are distorted (Iliffe and Lott 2008).
Bounded or unbounded?
Two-dimensional and three-dimensional Euclidean spaces (\(R^2\) and \(R^3\)) are unbounded: every line in this space has infinite length, distances, areas or volumes are unbounded. In contrast, spaces defined on a circle (\(S^1\)) or sphere (\(S^2\)) define a bounded set: there may be infinitely many points but the length and area of the circle and the radius, area and volume of a sphere are bound.
This may sound trivial, but leads to some interesting findings when handling spatial data. A polygon on \(R^2\) has unambiguously an inside and an outside. On a sphere, \(S^2\), any polygon divides the sphere in two parts, and which of these two is to be considered inside and which outside is ambiguous and needs to be defined e.g. by the traversal direction.
Definition of cordinate reference system
We follow Lott (2015) when defining the following concepts (italics indicate literal quoting):
- a coordinate system is a set of mathematical rules for specifying how coordinates are to be assigned to points,
- a datum is a parameter or set of parameters that define the position of the origin, the scale, and the orientation of a coordinate system,
- a geodetic datum is a datum describing the relationship of a two- or three-dimensional coordinate system to the Earth, and
- a coordinate reference system is a coordinate system that is related to an object by a datum; for geodetic and vertical datums, the object will be the Earth.
The definitions above imply that coordinates in degrees longitude and latitude only have a meaning, i.e. can only be interpreted unambiguously as Earth coordinates, when the datum they are associated with is given.
Conversion and transformation
Note that for projected data, the data that were projected are associated with a reference ellipsoid (datum). Going from one projection to another without changing datum is called coordinate conversion, and passes through the ellipsoidal coordinates associated with the datum involved. This process is lossless and invertible: the parameters and equations associated with a conversion are not empirical. Recomputing coordinates in a new datum is called coordinate transformation, and is approximate: because datums are a result of model fitting, transformations between datums are models too that have been fit; the equations involved are empirical, and multiple transformation paths, based on different model fits and associated with different accuracies, are possible.
Plate tectonics imply that within a global datum, fixed objects may have coordinates that change over time, and that transformations from one datum to another may be time-dependent. Earthquakes are a cause of more local and sudden changes in coordinates. Local datums may be fixed to tectonic plates (such as ETRS89), or may be dynamic.
When do coordinate reference systems matter?
When a coordinate reference system is adequately defined, the coordinates can be placed on background maps, and integrated with other data sets, both with known coordinate reference systems. An adequate definition will further depend on the purposes for using the positional data, so that for higher precision it may also be necessary to specify the date of measurement, as tectonic plates move, although not fast.
Why have representations changed recently?
Well, not very recently. Surveying in the field was the only way of measuring position until aerial observation became possible first from hot air balloons, then aircraft. Both aircraft and ships also needed to establish their own positions in order for observations (later aerial photographs) to be properly registered (usually to identifiable ground points established by mapping agencies). Astronomical fixes could also be used in cloud free conditions. In addition, many mapping agencies were military, not civilian, so details of their operations and products were classified.
By the 1960s, earth observation from space became possible, but most outputs were classified, especially products with high enough resolution to match field surveying or aerial photography. All of these were very expensive, some depended in addition on cloud free conditions.
The 1960s also saw the earliest measurements from space of the shape of the planet, leading to WGS66 (World Geodetic System), quickly followed by WGS72. These were also bolstered by land measurements of gravity anomaly fields. Both of these standards were developed in concert with the US Department of Defense.
The 1970s saw the first military global navigation satellite systems, all classified, and with expensive receivers. The GPS system of a network of satellites sending time signals to be used to locate receivers was built on the next WGS iteration, WGS84. After 1989 and the (then) end of the Cold War, and the end of the degradation of accuracy for non-military purposes in 2000, GPS and WGS84 suddenly became pervasive also outside military applications.
Datum transformation from the standards used by national mapping agencies to WGS84 became important, because without this, placing GPS/WGS84 positions on legacy maps was rather hit-and-miss. Some of us may recall that paper maps advertised GPS coordinates (axes were additionally printed in WGS84 degrees). This also affects web mapping, as the typical workflow is to transform the user coordinate reference system to a WGS84 geographical coordinate system, then on to the deservedly much abused Web Mercator projection. If the user coordinate reference system is unknown or inaccurate, the placing of observations on a web map becomes embarrassing as the viewer zooms in.
Warning: January 19 version goes astray here: the local default user-writable directory containing the cache file is not empty:
(pths <- sf::sf_proj_search_paths())## [1] "/home/rsb/.local/share/proj" "/usr/local/share/proj"
## [3] "/usr/local/share/proj"list.files(pths[1])## [1] "cache.db"library(RSQLite)
db <- dbConnect(SQLite(), dbname=file.path(pths[1], "cache.db"))
dbReadTable(db, "chunks")## id url offset data_id
## 1 1 https://cdn.proj.org/fr_ign_ntf_r93.tif 0 1
## 2 2 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 0 2
## 3 3 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1277952 3
## 4 4 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1294336 4
## 5 5 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1310720 5
## 6 6 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1327104 6
## 7 7 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1343488 7
## 8 8 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1359872 8
## 9 9 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1376256 9
## 10 10 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1392640 10
## 11 11 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1409024 11
## 12 12 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1425408 12
## 13 13 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1441792 13
## 14 14 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1458176 14
## 15 15 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1474560 15
## 16 16 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1490944 16
## 17 17 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1507328 17
## 18 18 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1523712 18
## 19 19 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1540096 19
## 20 20 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1556480 20
## 21 21 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1572864 21
## 22 22 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1589248 22
## 23 23 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1605632 23
## 24 24 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1622016 24
## 25 25 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1638400 25
## 26 26 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1654784 26
## 27 27 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1671168 27
## 28 28 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1687552 28
## 29 29 https://cdn.proj.org/uk_os_OSTN15_NTv2_OSGBtoETRS.tif 1703936 29
## 30 30 https://cdn.proj.org/us_noaa_mihpgn.tif 0 30
## 31 31 https://cdn.proj.org/us_noaa_conus.tif 0 31
## 32 32 https://cdn.proj.org/us_noaa_conus.tif 16384 32
## 33 33 https://cdn.proj.org/us_noaa_conus.tif 32768 33
## 34 34 https://cdn.proj.org/us_noaa_conus.tif 49152 34
## 35 35 https://cdn.proj.org/us_noaa_conus.tif 65536 35
## 36 36 https://cdn.proj.org/us_noaa_conus.tif 81920 36
## 37 37 https://cdn.proj.org/us_noaa_conus.tif 98304 37
## 38 38 https://cdn.proj.org/us_noaa_conus.tif 114688 38
## 39 39 https://cdn.proj.org/us_noaa_conus.tif 131072 39
## 40 40 https://cdn.proj.org/us_noaa_conus.tif 147456 40
## 41 41 https://cdn.proj.org/us_noaa_conus.tif 163840 41
## data_size
## 1 16384
## 2 16384
## 3 16384
## 4 16384
## 5 16384
## 6 16384
## 7 16384
## 8 16384
## 9 16384
## 10 16384
## 11 16384
## 12 16384
## 13 16384
## 14 16384
## 15 16384
## 16 16384
## 17 16384
## 18 16384
## 19 16384
## 20 16384
## 21 16384
## 22 16384
## 23 16384
## 24 16384
## 25 16384
## 26 16384
## 27 16384
## 28 16384
## 29 16384
## 30 8512
## 31 16384
## 32 16384
## 33 16384
## 34 16384
## 35 16384
## 36 16384
## 37 16384
## 38 16384
## 39 16384
## 40 16384
## 41 9189dbDisconnect(db)So the presentation of January 19 started using conus.tif because it was available in the local default user-writable directory, but did not obtain the full accuracy that the NAD83 (HARN) grid made available.
For example, if we guess that the point representation of tracts in the 1996 correction of the Boston data set are WGS84:
data(boston, package="spData")
boston <- sf::st_as_sf(boston.c, coords=c("LON", "LAT"), crs="OGC:CRS84")
mapview::mapview(sf::st_geometry(boston))there is a further offset problem that is hard to disentangle. In 2011 I downloaded the tract boundaries for 1990, back-aggregated to 1980 and 1970, and guessed NAD83 (1990 boundaries):
boston.tr <- sf::st_read(system.file("shapes/boston_tracts.shp",
package="spData")[1])## Reading layer `boston_tracts' from data source
## `/home/rsb/lib/r_libs/spData/shapes/boston_tracts.shp' using driver `ESRI Shapefile'
## Simple feature collection with 506 features and 36 fields
## Geometry type: POLYGON
## Dimension: XY
## Bounding box: xmin: -71.52311 ymin: 42.00305 xmax: -70.63823 ymax: 42.67307
## Geodetic CRS: NAD27boston.tr |> sf::st_set_crs("EPSG:4269") -> boston.83## Warning: st_crs<- : replacing crs does not reproject data; use st_transform for
## thatmapview::mapview(boston.83[,"censored"])but the tract boundaries do not match street lines; NAD27 is a better fit:
mapview::mapview(boston.tr[,"censored"])Of course, 1984 is a long time ago, so while WGS84 is the reference system used by GPS, in fact newer iterations of the International Terrestrial Reference System have been introduced https://en.wikipedia.org/wiki/International_Terrestrial_Reference_System_and_Frame
Unknown or arbitrary coordinate reference systems
It may also be desirable to specify a planar coordinate reference system as unknown, with no known metric or even axis direction. This might be needed for anonymizing data such as the location of protected species, or for confidentiality reasons. The same may occur when data are placed in a rectangle with unit longest sides for point pattern analysis and rotated and/or flipped; the metric here will be seen as arbitrary.
data(boston, package="spData")
boston_NA <- sf::st_as_sf(boston.c, coords=c("LON", "LAT"))
sf::st_crs(boston_NA)## Coordinate Reference System: NAtf <- tempfile(fileext=".gpkg")
sf::st_write(boston_NA, tf)## writing: substituting ENGCRS["Undefined Cartesian SRS with unknown unit"] for missing CRS## Writing layer `file22936d35c543' to data source
## `/tmp/RtmpyI5klq/file22936d35c543.gpkg' using driver `GPKG'
## Writing 506 features with 18 fields and geometry type Point.I am running the development version 1.0.10 of sf, so the new unknown CRS is inserted https://github.com/r-spatial/sf/blob/158fd317d39dca5e5139dec3e8c5c80f33cdfac6/R/read.R#L466-L469; the CRAN version 1.0.9 has the older behaviour.
sf::st_crs(sf::st_read(tf, quiet=TRUE))## Coordinate Reference System:
## User input: Undefined Cartesian SRS with unknown unit
## wkt:
## ENGCRS["Undefined Cartesian SRS with unknown unit",
## EDATUM["Unknown engineering datum"],
## CS[Cartesian,2],
## AXIS["x",unspecified,
## ORDER[1],
## LENGTHUNIT["unknown",0]],
## AXIS["y",unspecified,
## ORDER[2],
## LENGTHUNIT["unknown",0]]]Discovering legacy datums and projections
Sometimes it is the case that data sets stem from different time periods. Working back to the contemporary understandings of coordinate reference systems is hard, not only because in many jurisdictions these details have been considered graded military information.
The Grids & Datums column by Clifford Mugnier in Photogrammetric Engineering & Remote Sensing gives insight into some of the peculiarities of national mapping agencies - authority is typically national but may be subnational:
load("GridsDatums.rda")
GridsDatums[grep("United States", GridsDatums$country),]## country month year ISO
## 207 United States of America (November) 2015 USAGridsDatums[grep("Norway", GridsDatums$country),]## country month year ISO
## 17 The Kingdom of Norway (October) 1999 NOR
## 226 Norway (July) 2017 NOR
How are coordinate reference systems defined?
Very few living people active in open source geospatial software can remember the time before PROJ. PROJ (Evenden 1990) started in the 1970s as a Fortran project, and was released in 1985 as a C library for cartographic projections. It came with command line tools for direct and inverse projections, and could be linked to software to let it support (re)projection directly. Originally, datums were considered implicit, and no datum transformations were allowed.
The two basic coordinate reference systems are geographical (GEOCRS) and projected (PROJCRS). In the original PROJ library, input for proj had to be in degrees, with output in the metric specified in the target PROJCRS. The invproj command inverted the projected points back to degrees from the specified PROJCRS.
In the early 2000s, PROJ was known as PROJ.4, after its never changing major version number. Amongst others motivated by the rise of GPS, the need for datum transformations increased and PROJ.4 was extended with rudimentary datum support, and a placeholder was introduced to indicate a target GEOCRS. Each specification needed not only an ellipse (or a datum implying an ellipse). Further, it was assumed that if the source and target CRS differed in datum, some method must be provided to transform to or from the chosen WGS84 hub, typically a grid or three or seven coefficient transformation.
While most national mapping agencies defined their own standard geographical and projected CRS, supranational bodies, such as military alliances and colonial administrations often imposed some regularity to facilitate operations across national boundaries. This also led to the creation of the European Petroleum Survey Group (EPSG), because maritime jurisdiction was not orderly, and mattered when countries sharing the same coastal shelf tried to assign conflicting exploration concessions. Experts from oil companies accumulated vast experience, which fed through to the International Standards Organization (ISO, especially TC 211) and the Open Geospatial Consortium (OGC).
Defining the CRS became necessary when integrating other data with a different CRS, and for displaying on a web map background. Many legacy file formats, such as the ESRI Shapefile format, did not mandate the inclusion of the CRS of positional data. Most open source software then used PROJ.4 strings as a flexible representation, but as internationally accepted standards have been reached, in particular ISO 19111 ISO (2019), and improved over time by iteration, it is really necessary to change to a modern text representation, known as WKT2 (2019).
The EPSG database https://epsg.org/home.html is updated regularly and contains not only CRS definitions, but also authoritative tables specifying transformation pathways between CRS. A major change occurred with version 10 of the data model, introducing datum ensembles, and beginning to identify dynamic datums.
To stabilise this presentation, we’ll set some environment variables:
td <- tempfile()
dir.create(td)
Sys.setenv("PROJ_USER_WRITABLE_DIRECTORY"=td)
Sys.setenv("PROJ_NETWORK"="ON")
Sys.setenv("_SP_EVOLUTION_STATUS_"=0)How are coordinate reference systems represented?
PROJ.4 used a simple +key=value representation for PROJCRS, extended as noted to GEOGCRS. This had to be backed by text files (CSV files) distributed with the software, and optionally supplemented by a small number of transformation grid files (such as conus) in legacy formats. The +key=value representation is used internally in PR\(\phi\)J transformation pipelines, but is no longer encouraged for CRS representation elsewhere.
Coordinate reference systems following ISO 19111 should be represented as Well-Known Text 2 (2019) (WKT2:2019) objects. One consequence is that file formats not supporting the WKT2:2019 representation may degrade the CRS on writing (or reading). One such legacy file format is the ESRI Shapefile, which writes a WKT1 in ESRI dialect into the .prj file.
As an example, let us use the simple "OGC:CRS84" longitude-latitude WGS84 WKT2:2019 representation used by among others GeoJSON files https://geojson.org/ https://www.rfc-editor.org/rfc/rfc7946#page-12 using the PR\(\phi\)J program projinfo:
projinfo OGC:CRS84## PROJ.4 string:
## +proj=longlat +datum=WGS84 +no_defs +type=crs
##
## WKT2:2019 string:
## GEOGCRS["WGS 84 (CRS84)",
## ENSEMBLE["World Geodetic System 1984 ensemble",
## MEMBER["World Geodetic System 1984 (Transit)"],
## MEMBER["World Geodetic System 1984 (G730)"],
## MEMBER["World Geodetic System 1984 (G873)"],
## MEMBER["World Geodetic System 1984 (G1150)"],
## MEMBER["World Geodetic System 1984 (G1674)"],
## MEMBER["World Geodetic System 1984 (G1762)"],
## MEMBER["World Geodetic System 1984 (G2139)"],
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ENSEMBLEACCURACY[2.0]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433]],
## CS[ellipsoidal,2],
## AXIS["geodetic longitude (Lon)",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433]],
## AXIS["geodetic latitude (Lat)",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433]],
## USAGE[
## SCOPE["Not known."],
## AREA["World."],
## BBOX[-90,-180,90,180]],
## ID["OGC","CRS84"]]This information is collated from SQL queries executed on the proj.db SQLite database installed with PR\(\phi\)J (since version 6) and found on the searchpath, the first element of which is user-writable (since version 7):
projinfo --searchpaths## /tmp/RtmpyI5klq/file2293796c3912
## /usr/local/share/proj
## /usr/local/share/projThis database may be examined using standard tools:
library(RSQLite)
db <- dbConnect(SQLite(), dbname=file.path("/usr/local/share/proj/proj.db"))
dbListTables(db)## [1] "alias_name"
## [2] "authority_list"
## [3] "authority_to_authority_preference"
## [4] "axis"
## [5] "celestial_body"
## [6] "compound_crs"
## [7] "concatenated_operation"
## [8] "concatenated_operation_step"
## [9] "conversion"
## [10] "conversion_method"
## [11] "conversion_param"
## [12] "conversion_table"
## [13] "coordinate_operation_method"
## [14] "coordinate_operation_view"
## [15] "coordinate_operation_with_conversion_view"
## [16] "coordinate_system"
## [17] "crs_view"
## [18] "deprecation"
## [19] "ellipsoid"
## [20] "extent"
## [21] "geodetic_crs"
## [22] "geodetic_datum"
## [23] "geodetic_datum_ensemble_member"
## [24] "geoid_model"
## [25] "grid_alternatives"
## [26] "grid_packages"
## [27] "grid_transformation"
## [28] "helmert_transformation"
## [29] "helmert_transformation_table"
## [30] "metadata"
## [31] "object_view"
## [32] "other_transformation"
## [33] "prime_meridian"
## [34] "projected_crs"
## [35] "scope"
## [36] "sqlite_stat1"
## [37] "supersession"
## [38] "unit_of_measure"
## [39] "usage"
## [40] "versioned_auth_name_mapping"
## [41] "vertical_crs"
## [42] "vertical_datum"
## [43] "vertical_datum_ensemble_member"dbListFields(db, "geodetic_crs")## [1] "auth_name" "code"
## [3] "name" "description"
## [5] "type" "coordinate_system_auth_name"
## [7] "coordinate_system_code" "datum_auth_name"
## [9] "datum_code" "text_definition"
## [11] "deprecated"Since we know that the name of this GEOGCRS is "WGS 84 (CRS84)", we can retrieve that entry from the geodetic_crs table:
dbGetQuery(db, 'SELECT * FROM geodetic_crs WHERE name = "WGS 84 (CRS84)"')## auth_name code name description type
## 1 OGC CRS84 WGS 84 (CRS84) <NA> geographic 2D
## coordinate_system_auth_name coordinate_system_code datum_auth_name datum_code
## 1 EPSG 6424 EPSG 6326
## text_definition deprecated
## 1 <NA> 0and having located the datum code, query that from the geodetic_datum table:
dbGetQuery(db, 'SELECT * FROM geodetic_datum WHERE code = 6326')## auth_name code name description
## 1 EPSG 6326 World Geodetic System 1984 ensemble <NA>
## ellipsoid_auth_name ellipsoid_code prime_meridian_auth_name
## 1 EPSG 7030 EPSG
## prime_meridian_code publication_date frame_reference_epoch ensemble_accuracy
## 1 8901 <NA> NA 2
## anchor deprecated
## 1 <NA> 0dbDisconnect(db)The remainder done by PR\(\phi\)J is to marshall the details of the CRS retrieved from the database in the requested output format, typically now WKT2:2019.
Sometimes the GDAL rendering may differ from that returned directly by PR\(\phi\)J (see also https://github.com/OSGeo/gdal/issues/2035) from the same proj.db database, as it uses OGRSpatialReference in GDAL on the way:
gdalsrsinfo OGC:CRS84##
## PROJ.4 : +proj=longlat +datum=WGS84 +no_defs
##
## OGC WKT2:2019 :
## GEOGCRS["WGS 84",
## DATUM["World Geodetic System 1984",
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ID["EPSG",6326]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433],
## ID["EPSG",8901]],
## CS[ellipsoidal,2],
## AXIS["longitude",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]],
## AXIS["latitude",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]]]The missing components are the USAGE and ID blocks, and the explicit expression of the WGS84 datum as an ensemble of successive definitions with an ensemble accuracy component.
Datum transformation
Because so much open source (and other) software uses the PROJ library and framework, many are affected when PROJ upgrades. Until very recently, PROJ has been seen as very reliable, and the changes taking place now are intended to confirm and reinforce this reliability. Before PROJ 5 (PROJ 6 was released in 2019, PROJ 7 was released in March 2020), the +datum= tag was used, perhaps with +towgs84= with three or seven coefficients, and possibly +nadgrids= where datum transformation grids were available. However, transformations from one projection to another first inversed to longitude-latitude in WGS84, then projected on to the target projection.
Fast-forward 35 years and PROJ.4 is everywhere: It provides coordinate handling for almost every geospatial program, open or closed source. Today, we see a drastical increase in the need for high accuracy GNSS coordinate handling, especially in the agricultural and construction engineering sectors. This need for geodetic-accuracy transformations is not satisfied by “classic PROJ.4.” But with the ubiquity of PROJ.4, we can provide these transformations “everywhere,” just by implementing them as part of PROJ.4 (Evers and Knudsen 2017).
Transformation hubs
Along with PROJ.4 came a set of cvs files with known (registered) projections, from which the best known is the European Petroleum Survey Group (EPSG) registry. National mapping agencies would provide (and update over time) their best guesses of +towgs84= parameters for national coordinate reference systems, and distribute it through the EPSG registry, which was part of PROJ distributions. For some transformations, datum grids were available and distributed as part of PROJ.4: such grids are raster maps that provide for every location pre-computed values for the shift in longitude and latitude, or elevation, for a particular datum transformation.
In PROJ.4, every coordinate transformation had to go through a conversion to and from WGS84; even reprojecting data associated with a datum different from WGS84 had to go through a transformation to and from WGS84. The associated errors were acceptable for mapping purposes for not too small areas, but applications that need high accuracy transformations, e.g. precision agriculture, planning flights of UAV’s, or object tracking are often more demanding in terms of accuracy.
Geodetic modules and pipelines were introduced in PROJ 5 (Knudsen and Evers 2017; Evers and Knudsen 2017). Changes in the legacy PROJ representation and WGS84 transformation hub have been coordinated through the GDAL barn raising initiative. Crucially WGS84 often ceases to be the pivot for moving between datums. See also PROJ migration notes.
There are very useful postings on the PROJ mailing list from Martin Desruisseaux, first proposing clarifications and a follow-up including a summary:
- “Early binding” ≈ hub transformation technique.
- “Late binding” ≈ hub transformation technique NOT used, replaced by a more complex technique consisting in searching parameters in the EPSG database after the transformation context (source, target, epoch, area of interest) is known.
- The problem of hub transformation technique is independent of WGS84. It is caused by the fact that transformations to/from the hub are approximate. Any other hub we could invent in replacement of WGS84 will have the same problem, unless we can invent a hub for which transformations are exact (I think that if such hub existed, we would have already heard about it).
The solution proposed by ISO 19111 (in my understanding) is:
- Forget about hub (WGS84 or other), unless the simplicity of early-binding is considered more important than accuracy.
In using a transformation hub, PROJ had worked adequately when the errors introduced by transforming first to WGS84 and then from WGS84 to the target coordinate reference system, but with years passing from 1984, the world has undergone sufficient tectonic shifts for errors to increase.
In addition, the need for precision has risen in agriculture and engineering. So PROJ, as it was, risked ceasing to be fit for purpose as a fundamental component of the geospatial open source software stack.
Following major changes in successive iterations of the international standards for coordinate reference systems (ISO 2019), PROJ is changing from preferring “early-binding” transformations, pivoting through a known transformation hub in going from input to target coordinate reference systems, to “late-binding” transformations.
This means that the user may be offered alternative paths - pipelines - from input to target coordinate reference systems, some of which may go directly, and more will use higher precision transformation grids, enlarging the existing practice of using North American Datum (NAD) grids.
In other cases, three or seven coefficient transformations may be offered, but the default fallback, where little is known about the input or target specification, may be less satisfactory than PROJ has previously offered.
Transformation pipelines
Before PROJ 5, each CRS declared a transformation path to WGS84, so the WGS84 hub was viable if inaccurate. Transformation pipelines were introduced in PROJ 5, showing the steps taken from source to target, possibly including a hub. From PROJ 6, the SQLite database contained tables of names and locations of grids needed, and tables of coefficient values, needed to collate a transformation pipeline.
In addition, the current iteration of the standard makes it more important to declare the epoch of interest of coordinates (when the position was recorded and how) and the region of interest. A transformation pathway may have an undefined epoch and a global span, but cannot achieve optimal precision everywhere.
By bounding the region of interest say within a tectonic plate, and the epoch to a given five-year period, very high precision transformations may be possible. These choices have not so far been required explicitly, but for example matching against the "area" table in the database may reduce the number of transformation pathways offered dramatically.
The SIRGAS velocity model http://www.sirgas.org/en/velocity-model/ gives another picture of why the changes in PROJ matter:
Transformation pipelines example: Chicago Board of Trade Building
Previous talks have used the Broad Street pump as an example; in that case the need for care is more obvious, with a larger degradation (Bivand 2021), https://link.springer.com/article/10.1007/s10109-020-00336-0/figures/8
Assume that we take the Chicago Board of Trade Building as a reference point, and assume that the point location given by Wikipedia https://en.wikipedia.org/wiki/Chicago_Board_of_Trade_Building, 41.878056, -87.632222, is adequately accurate. Note that the axis order of the coordinates is given as latitude-longitude. Say we wish to compare this modern point observation (assumed to be in NAD83(HARN) - (High Accuracy Reference Network) with an older map in NAD27. These are the full WKT2:2019 representations of these GEOGCRS:
projinfo "EPSG:4152"## PROJ.4 string:
## +proj=longlat +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +no_defs +type=crs
##
## WKT2:2019 string:
## GEOGCRS["NAD83(HARN)",
## DATUM["NAD83 (High Accuracy Reference Network)",
## ELLIPSOID["GRS 1980",6378137,298.257222101,
## LENGTHUNIT["metre",1]]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433]],
## CS[ellipsoidal,2],
## AXIS["geodetic latitude (Lat)",north,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433]],
## AXIS["geodetic longitude (Lon)",east,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433]],
## USAGE[
## SCOPE["Horizontal component of 3D system."],
## AREA["American Samoa - onshore - Tutuila, Aunu'u, Ofu, Olesega, Ta'u and Rose islands. Guam - onshore. Northern Mariana Islands - onshore. Puerto Rico - onshore. United States (USA) - onshore Alabama, Alaska, Arizona, Arkansas, California, Colorado, Connecticut, Delaware, Florida, Georgia, Hawaii, Idaho, Illinois, Indiana, Iowa, Kansas, Kentucky, Louisiana, Maine, Maryland, Massachusetts, Michigan, Minnesota, Mississippi, Missouri, Montana, Nebraska, Nevada, New Hampshire, New Jersey, New Mexico, New York, North Carolina, North Dakota, Ohio, Oklahoma, Oregon, Pennsylvania, Rhode Island, South Carolina, South Dakota, Tennessee, Texas, Utah, Vermont, Virginia, Washington, West Virginia, Wisconsin and Wyoming; offshore Gulf of Mexico continental shelf (GoM OCS). US Virgin Islands - onshore."],
## BBOX[-14.59,144.58,71.4,-64.51]],
## ID["EPSG",4152]]projinfo "ESRI:104000"## Warning: object is deprecated
##
## PROJ.4 string:
## +proj=longlat +datum=NAD27 +no_defs +type=crs
##
## WKT2:2019 string:
## GEOGCRS["GCS_Assumed_Geographic_1",
## DATUM["North American Datum 1927",
## ELLIPSOID["Clarke 1866",6378206.4,294.978698213898,
## LENGTHUNIT["metre",1]]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433]],
## CS[ellipsoidal,2],
## AXIS["geodetic latitude (Lat)",north,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433]],
## AXIS["geodetic longitude (Lon)",east,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433]],
## USAGE[
## SCOPE["Not known."],
## AREA["Not specified."],
## BBOX[-90,-180,90,180]],
## ID["ESRI",104000]]Note that both the datums and the ellipsoids differ, so that some change in the coordinates would be expected anyway. We can interrogate the database for reasonable choices, here narrowing down the search over alternatives by giving a rough bounding box:
Sys.unsetenv("PROJ_NETWORK")projinfo -o PROJ --spatial-test intersects --bbox -87.7,41.87,-87.6,41.9 -s "EPSG:4152" -t "ESRI:104000"## Candidate operations found: 3
## -------------------------------------
## Operation No. 1:
##
## DERIVED_FROM(INVERSE(EPSG)):8553, Inverse of NAD27 to NAD83(HARN) (36), 0.2 m, United States (USA) - Illinois., at least one grid missing
##
## PROJ string:
## +proj=pipeline
## +step +proj=axisswap +order=2,1
## +step +proj=unitconvert +xy_in=deg +xy_out=rad
## +step +inv +proj=hgridshift +grids=us_noaa_ilhpgn.tif
## +step +inv +proj=hgridshift +grids=us_noaa_conus.tif
## +step +proj=unitconvert +xy_in=rad +xy_out=deg
## +step +proj=axisswap +order=2,1
##
## Grid us_noaa_ilhpgn.tif needed but not found on the system. Can be obtained at https://cdn.proj.org/us_noaa_ilhpgn.tif
##
## -------------------------------------
## Operation No. 2:
##
## DERIVED_FROM(INVERSE(EPSG)):8473, Inverse of NAD27 to NAD83(HARN) (14), 0.2 m, United States (USA) - Michigan., at least one grid missing
##
## PROJ string:
## +proj=pipeline
## +step +proj=axisswap +order=2,1
## +step +proj=unitconvert +xy_in=deg +xy_out=rad
## +step +inv +proj=hgridshift +grids=us_noaa_mihpgn.tif
## +step +inv +proj=hgridshift +grids=us_noaa_conus.tif
## +step +proj=unitconvert +xy_in=rad +xy_out=deg
## +step +proj=axisswap +order=2,1
##
## Grid us_noaa_mihpgn.tif needed but not found on the system. Can be obtained at https://cdn.proj.org/us_noaa_mihpgn.tif
##
## -------------------------------------
## Operation No. 3:
##
## unknown id, Ballpark geographic offset from NAD83(HARN) to GCS_Assumed_Geographic_1, unknown accuracy, World, has ballpark transformation
##
## PROJ string:
## +proj=noopWe see three outcomes, two for states intersecting the given bounding box with 0.2m accuracy, but which cannot be instantiated because transformation grids are missing. The final outcome can be instantiated but only has ballpark accuracy.
In general in North America transformation grids are needed, while in many other jurisdictions, three or seven parameter Helmert or other transformations with varying accuracy may be found in the database.
Let us check the status of the PROJ_NETWORK environment variable:
Sys.getenv("PROJ_NETWORK")## [1] ""echo $PROJ_NETWORKThe fifth digit after the decimal point is here about 1m, so simply using the different ellipsoid definitions shifts the point a couple of metres on each axis:
echo 41.878056 -87.632222 | cs2cs -f %.5f --bbox -87.7,41.87,-87.6,41.9 "EPSG:4152" "ESRI:104000"## 41.87803 -87.63218 0.00000However, grids were listed as missing; how can we now get the grids?
Transformation grids
The most accurate direct transformation pipelines may need transformation grids rather than 3 or 7 parameter transformation models applied equally over the area of interest. While the legacy proj-datumgrid zipfile never exceeded 6.3 MiB, the current proj-data zipfile is 562.5 MiB (https://download.osgeo.org/proj/). Since it is unlikely that users need transformation grids for all continents, one can download by continent (Oceania, North America, Europe), or for global transformations, but these are still all large. The volume of transformation grids released under permissive licenses and hosted by the CDN will continue to increase rapidly.
Instead of installing lots of unneeded grids, which may become stale, use can be made of an on-demand content download network https://cdn.proj.org from within PROJ, using CURL for download and TIFF as the unified grid format (Cloud Optimized GeoTiff). On-demand use creates a user-writeable cache.db SQLite database of grid chunks, which may be used across applications looking at the same PROJ_LIB directory:
list.files(td)## character(0)Sys.setenv("PROJ_NETWORK"="ON")echo $PROJ_NETWORK## ONecho 41.878056 -87.632222 | cs2cs -f %.5f --bbox -88,41,-87,42 "EPSG:4152" "ESRI:104000"## 41.87802 -87.63217 0.00000Now the shifts are about one metre more on each axis. Unsetting the network variable prepares the workspace for later choices.
Sys.unsetenv("PROJ_NETWORK")The user-writable directory now contains a cache.db SQLite database of downloaded grid chunks:
list.files(td)## [1] "cache.db"The tables in the database can be listed:
The first CDN access downloads required chunks as Tiff files; on subsequent use, the chunks may be checked for staleness.
If we download conus.tif, we can display the latitude and longitude transformation offset shifts that it provides:
Sys.unsetenv("PROJ_NETWORK")
rnaturalearth::countries110 |>
sf::st_as_sf() |>
subset(ADMIN == "United States of America") |>
sf::st_geometry() -> us
hook <- function() {
plot(us, col = NA, add = TRUE)
}
r <- stars::read_stars("us_noaa_conus.tif")
plot(r[,,,1:2], axes = TRUE, hook = hook, key.pos = 4, col=cm.colors)
CRS in R packages
Representing CRS in R packages
CRS in R before PROJ
The mapproj package provided coordinate reference system and projection support for the maps package. From mapproj/src/map.h (originally from Plan 9 https://plan9.io/sources/plan9/sys/src/cmd/map/map.h), line 20, we can see that the eccentricity of the Earth is defined as 0.08227185422, corrresponding to the Clark 1866 ellipsoid (Iliffe and Lott 2008):
ellps <- sf::sf_proj_info("ellps")
(clrk66 <- unlist(ellps[ellps$name=="clrk66",]))## name major ell description
## "clrk66" "a=6378206.4" "b=6356583.8" "Clarke 1866"With a very few exceptions, projections included in mapproj::mapproject() use the Clarke 1866 ellipsoid as defined in metres in the ellipse used in NAD27 (not as Clarke’s original British feet), with the remainder using a sphere with the Clarke 1866 major axis radius. The function returns coordinates for visualization in an unknown metric; no inverse projections are available.
eval(parse(text=clrk66["major"]))
eval(parse(text=clrk66["ell"]))
print(sqrt((a^2-b^2)/a^2), digits=10)## [1] 0.08227185422This is the WKT2:2019 representation of the (minimalist) PROJ.4 string:
projinfo "+proj=longlat +ellps=clrk66 +type=crs"## PROJ.4 string:
## +proj=longlat +ellps=clrk66 +no_defs +type=crs
##
## WKT2:2019 string:
## GEOGCRS["unknown",
## DATUM["Unknown based on Clarke 1866 ellipsoid",
## ELLIPSOID["Clarke 1866",6378206.4,294.978698213898,
## LENGTHUNIT["metre",1,
## ID["EPSG",9001]]]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433],
## ID["EPSG",8901]],
## CS[ellipsoidal,2],
## AXIS["longitude",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]],
## AXIS["latitude",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]]]Antecedents for PROJ use in R packages
As E. J. Pebesma and Bivand (2005) present the nascent sp package (the role of the Vienna DCS 2003 conference is also depicted by Bivand (2021), https://www.r-project.org/conferences/DSC-2003//Proceedings/index.html, https://www.r-project.org/conferences/DSC-2003//Proceedings/Bivand.txt), the choice of PROJ.4 as the "projargs" slot of "CRS" objects just happened. From 1998 to 2005, quite a lot was occurring, including contact with GRASS GIS, which had started interfacing PROJ.4, Tim Keitt’s GDAL package, Nicholas Lewin Koh’s contribution of a shapelib interface to maptools, and so on.
The rgdal package integrated GDAL and work by Barry Rowlingson on interfacing the OGR library (Rmap) and PROJ.4 (spproj); both of these were merged with rgdal. It seemed natural to use PROJ.4 like everyone else we were aware of at that time. Recall that GPS precision restrictions for civilian use were only removed May 1, 2000, so CRS could really only try to record what the publishers of paper maps declared. Hand surveying was costly and time-consuming, digitizing positional data likewise.
So sp used PROJ.4 strings, and from 2006, used PROJ.4 to check whether the string given by the user was valid:
When reading raster or vector data objects, the CRS was read from the data source. Often ESRI Shapefiles omitted *.prj files, and this was represented as a missing CRS, a character NA in place of a valid PROJ.4 string.
We’ve established that we should have preferred WKT over PROJ strings at least a decade ago: https://lists.osgeo.org/pipermail/gdal-dev/2012-November/034558.html (read the last paragraph), and possibly even earlier. However, when a re-implementation of classes for spatial data was being discussed 2015-2017 (E. Pebesma (2018)), the CRS representation issue was not given priority, and CRS were represented as PROJ.4 strings or as spatial reference identity numbers (SRID), most often EPSG codes, with look-up through OGRSpatialReference objects in GDAL.
Following the introduction of WKT2:2019, sp and sf moved to add the new representation to existing mechanisms; raster adopted the sp "CRS" changes, and terra also adopted WKT2:2019. rgdal was used to prototype some of the alternatives.
The sf and stars packages
Since sf called out to OGRSpatialReference to provide CRS object instantiation before WKT2:2019, it was logical to follow the same approach as PR\(\phi\)J and GDAL became more deeply integrated in the barn-raising process. We can check the versions of external software, here looking at the legacy proj.4 entry (same as PROJ), the GDAL entry, and the USE_PROJ_H entry:
sf::sf_extSoftVersion()## GEOS GDAL proj.4 GDAL_with_GEOS USE_PROJ_H
## "3.11.1" "3.6.2" "9.1.1" "true" "true"
## PROJ
## "9.1.1"If we print to console the look-up value of "OGC:CRS84", we se that it is accessed via GDAL:
sf::st_crs("OGC:CRS84")## Coordinate Reference System:
## User input: OGC:CRS84
## wkt:
## GEOGCRS["WGS 84",
## DATUM["World Geodetic System 1984",
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ID["EPSG",6326]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433],
## ID["EPSG",8901]],
## CS[ellipsoidal,2],
## AXIS["longitude",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]],
## AXIS["latitude",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]]]For backward compatibility purposes, it can also be rendered in various formats:
sf::st_crs("OGC:CRS84")$proj4string## [1] "+proj=longlat +datum=WGS84 +no_defs"cat(sf::st_crs("OGC:CRS84")$wkt, "\n")## GEOGCRS["WGS 84",
## DATUM["World Geodetic System 1984",
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ID["EPSG",6326]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433],
## ID["EPSG",8901]],
## CS[ellipsoidal,2],
## AXIS["longitude",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]],
## AXIS["latitude",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]]]The EPSG code is not available, as EPSG is not the authority for this CRS:
sf::st_crs("OGC:CRS84")$epsg## [1] NAWe can also coerce the "crs" object from sf to an "CRS" object as used by sp and raster:
as(sf::st_crs("OGC:CRS84"), "CRS")## Coordinate Reference System:
## Deprecated Proj.4 representation: +proj=longlat +datum=WGS84 +no_defs
## WKT2 2019 representation:
## GEOGCRS["WGS 84",
## DATUM["World Geodetic System 1984",
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ID["EPSG",6326]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433],
## ID["EPSG",8901]],
## CS[ellipsoidal,2],
## AXIS["longitude",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]],
## AXIS["latitude",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]]]A recent innovation is the introduction of a planar missing CRS in sf when writing features to file (especially for GPKG which silently assumes a WGS84 GEOGCRS):
sf::st_crs("ENGCRS[\"Undefined Cartesian SRS with unknown unit\",EDATUM[\"Unknown engineering datum\"],CS[Cartesian,2],AXIS[\"X\",unspecified,ORDER[1],LENGTHUNIT[\"unknown\",0]],AXIS[\"Y\",unspecified,ORDER[2],LENGTHUNIT[\"unknown\",0]]]")## Coordinate Reference System:
## User input: ENGCRS["Undefined Cartesian SRS with unknown unit",EDATUM["Unknown engineering datum"],CS[Cartesian,2],AXIS["X",unspecified,ORDER[1],LENGTHUNIT["unknown",0]],AXIS["Y",unspecified,ORDER[2],LENGTHUNIT["unknown",0]]]
## wkt:
## ENGCRS["Undefined Cartesian SRS with unknown unit",
## EDATUM["Unknown engineering datum"],
## CS[Cartesian,2],
## AXIS["x",unspecified,
## ORDER[1],
## LENGTHUNIT["unknown",0]],
## AXIS["y",unspecified,
## ORDER[2],
## LENGTHUNIT["unknown",0]]]Working in S2 or R2
When using a geographical CRS, many topological predicates and operations, as well as spatial indexing, that may readily be performed using GEOS (planar, R2) cannot be used. The s2 package interfaces the S2 Geometry library, providing fast spatial indexing , predicates and operations on the sphere. When using sf, sf_use_s2() is by default TRUE, and s2 will be used in place of GEOS:
sf::st_is_longlat(sf::st_crs("OGC:CRS84"))## [1] TRUEsf::st_is_longlat(sf::st_crs("ESRI:104000"))## [1] TRUEThe background is described in https://r-spatial.org/r/2020/06/17/s2.html and https://r-spatial.org/book/04-Spherical.html. The main consequences are felt when our common assumption that a straight line between two points (which holds on the plane) is challenged on the sphere. Distances are generally not a problem, but topological operations on objects with a higher dimension than 0 may need re-noding to avoid curved slivers. Since s2 is available, treating S2 as R2 is no longer defensible.
The terra package
The terra package also uses OGRSpatialReference for instantiating CRS objects, both for vector and raster objects:
v <- terra::vect()
terra::crs(v) <- "OGC:CRS84"
cat(terra::crs(v), "\n")## GEOGCRS["WGS 84",
## DATUM["World Geodetic System 1984",
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ID["EPSG",6326]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433],
## ID["EPSG",8901]],
## CS[ellipsoidal,2],
## AXIS["longitude",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]],
## AXIS["latitude",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]]]r <- terra::rast()
terra::crs(r) <- "OGC:CRS84"
cat(terra::crs(r), "\n")## GEOGCRS["WGS 84",
## DATUM["World Geodetic System 1984",
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ID["EPSG",6326]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433],
## ID["EPSG",8901]],
## CS[ellipsoidal,2],
## AXIS["longitude",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]],
## AXIS["latitude",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]]]Both objects can be coerced to "sf" or "stars" objects respectively, and rge inverse coercion is, of course, supported:
sf::st_crs(sf::st_as_sf(v))## Coordinate Reference System:
## User input: WGS 84
## wkt:
## GEOGCRS["WGS 84",
## DATUM["World Geodetic System 1984",
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ID["EPSG",6326]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433],
## ID["EPSG",8901]],
## CS[ellipsoidal,2],
## AXIS["longitude",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]],
## AXIS["latitude",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]]]sf::st_crs(stars::st_as_stars(r))## Warning: [readValues] raster has no values## Coordinate Reference System:
## User input: WGS 84
## wkt:
## GEOGCRS["WGS 84",
## DATUM["World Geodetic System 1984",
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ID["EPSG",6326]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433],
## ID["EPSG",8901]],
## CS[ellipsoidal,2],
## AXIS["longitude",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]],
## AXIS["latitude",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]]]Handling "CRS" objects from the sp package when rgdal has retired
When sp default evolution_status is 2L - use sf instead of rgdal and rgeos, a change from 0L planned for June 2023, sp::CRS() and spTransform() will use sf::st_crs() and sf::st_transform() internally. So "CRS" objects will continue to be usable in their current form which is an S4 object containing the "projargs" PROJ.4 string and an (invisible) comment containing the WKT2:2019 representation. However, because sp::CRS() with status 0L uses rgdal and this uses PR\(\phi\)J directly, but sp::CRS() with status 2L uses sf and this uses OGRSpatialReference on its way to PR\(\phi\)J, the rendered representations may vary slightly as we saw above.
This exercise uses the version of sp installed from the internalise_status branch of my github fork: https://github.com/rsbivand/sp/tree/internalise_status. This permits the internal sp setting to be changed at runtime, not only when the package is loaded (also loaded by other packages). The relevant values are: 0: business as usual, 1: stop if rgdal or rgeos are needed and absent, 2: use sf instead of rgdal and rgeos.
sp::get_evolution_status()## [1] 0We are also stepping around the use of caching by sp::CRS(), to ensure look-up directly: legacy sp uses rgdal for look-up, and rgdal uses PR\(\phi\)J, not OGRSpatialReference, for instantiating CRS objects:
sf::st_crs(sp::CRS("OGC:CRS84"), use_cache=FALSE)## Coordinate Reference System:
## User input: WGS 84 (CRS84)
## wkt:
## GEOGCRS["WGS 84 (CRS84)",
## ENSEMBLE["World Geodetic System 1984 ensemble",
## MEMBER["World Geodetic System 1984 (Transit)"],
## MEMBER["World Geodetic System 1984 (G730)"],
## MEMBER["World Geodetic System 1984 (G873)"],
## MEMBER["World Geodetic System 1984 (G1150)"],
## MEMBER["World Geodetic System 1984 (G1674)"],
## MEMBER["World Geodetic System 1984 (G1762)"],
## MEMBER["World Geodetic System 1984 (G2139)"],
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ENSEMBLEACCURACY[2.0]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433]],
## CS[ellipsoidal,2],
## AXIS["geodetic longitude (Lon)",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433]],
## AXIS["geodetic latitude (Lat)",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433]],
## USAGE[
## SCOPE["Not known."],
## AREA["World."],
## BBOX[-90,-180,90,180]],
## ID["OGC","CRS84"]]The cache is only turned off for look-up, but the instantiated value is cached once found.
sp::set_evolution_status(2L)## [1] 2If we change the status to go through sf and OGRSpatialReference, but let the cache come into play, the value cached before is found on look-up and returned:
sf::st_crs(sp::CRS("OGC:CRS84"))## Coordinate Reference System:
## User input: WGS 84 (CRS84)
## wkt:
## GEOGCRS["WGS 84 (CRS84)",
## ENSEMBLE["World Geodetic System 1984 ensemble",
## MEMBER["World Geodetic System 1984 (Transit)"],
## MEMBER["World Geodetic System 1984 (G730)"],
## MEMBER["World Geodetic System 1984 (G873)"],
## MEMBER["World Geodetic System 1984 (G1150)"],
## MEMBER["World Geodetic System 1984 (G1674)"],
## MEMBER["World Geodetic System 1984 (G1762)"],
## MEMBER["World Geodetic System 1984 (G2139)"],
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ENSEMBLEACCURACY[2.0]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433]],
## CS[ellipsoidal,2],
## AXIS["geodetic longitude (Lon)",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433]],
## AXIS["geodetic latitude (Lat)",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433]],
## USAGE[
## SCOPE["Not known."],
## AREA["World."],
## BBOX[-90,-180,90,180]],
## ID["OGC","CRS84"]]We have to turn off the cache to instantiate directly from sf and OGRSpatialReference:
sf::st_crs(sp::CRS("OGC:CRS84", use_cache=FALSE))## Coordinate Reference System:
## User input: WGS 84
## wkt:
## GEOGCRS["WGS 84",
## DATUM["World Geodetic System 1984",
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ID["EPSG",6326]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433],
## ID["EPSG",8901]],
## CS[ellipsoidal,2],
## AXIS["longitude",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]],
## AXIS["latitude",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433,
## ID["EPSG",9122]]]]sp::set_evolution_status(0L)## [1] 0The sp and raster packages
The raster package continues to use sp::CRS() internally, so will follow the status option value set there, and will use the sp "CRS" cache, so the last cached value will be the one returned:
r <- raster::raster()
raster::crs(r) <- "OGC:CRS84"
raster::crs(r)## Coordinate Reference System:
## Deprecated Proj.4 representation: +proj=longlat +datum=WGS84 +no_defs
## WKT2 2019 representation:
## GEOGCRS["WGS 84 (CRS84)",
## ENSEMBLE["World Geodetic System 1984 ensemble",
## MEMBER["World Geodetic System 1984 (Transit)"],
## MEMBER["World Geodetic System 1984 (G730)"],
## MEMBER["World Geodetic System 1984 (G873)"],
## MEMBER["World Geodetic System 1984 (G1150)"],
## MEMBER["World Geodetic System 1984 (G1674)"],
## MEMBER["World Geodetic System 1984 (G1762)"],
## MEMBER["World Geodetic System 1984 (G2139)"],
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ENSEMBLEACCURACY[2.0]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433]],
## CS[ellipsoidal,2],
## AXIS["geodetic longitude (Lon)",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433]],
## AXIS["geodetic latitude (Lat)",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433]],
## USAGE[
## SCOPE["Not known."],
## AREA["World."],
## BBOX[-90,-180,90,180]],
## ID["OGC","CRS84"]]Very possibly, use of the cache should be exposed, and its default possibly changed, although in most settings runtime is reduced when the same CRS is being instantiated many times (this is very typical).
Exercises (if time permits oor later)
Visit https://jakubnowosad.com/spData/ https://cran.r-project.org/package=spData and/or https://geodacenter.github.io/data-and-lab/ and try to discover the CRS of the included data sets.
Discovering transformation pipelines in sf
Sys.unsetenv("PROJ_NETWORK")sf::sf_proj_network()## [1] FALSEsf::sf_proj_network(FALSE)## character(0)sf::sf_proj_network()## [1] FALSE(pls_no_cdn <- sf::sf_proj_pipelines("EPSG:4152", "ESRI:104000", AOI=c(-87.7, 41.87, -87.6, 41.9)))## Candidate coordinate operations found: 3
## Strict containment: FALSE
## Axis order auth compl: FALSE
## Source: EPSG:4152
## Target: ESRI:104000
## Best instantiable operation has only ballpark accuracy
## Description: axis order change (2D) + Ballpark geographic offset from
## NAD83(HARN) to GCS_Assumed_Geographic_1 + axis
## order change (2D)
## Definition: +proj=noop +ellps=GRS80
## Operation 1 is lacking 2 grids with accuracy 0.2 m
## Missing grid: us_noaa_conus.tif
## Name: us_noaa_conus.tif
## URL: https://cdn.proj.org/us_noaa_conus.tif
## Missing grid: us_noaa_ilhpgn.tif
## URL: https://cdn.proj.org/us_noaa_ilhpgn.tif
## Operation 2 is lacking 2 grids with accuracy 0.2 m
## Missing grid: us_noaa_conus.tif
## Name: us_noaa_conus.tif
## URL: https://cdn.proj.org/us_noaa_conus.tif
## Missing grid: us_noaa_mihpgn.tif
## URL: https://cdn.proj.org/us_noaa_mihpgn.tifsf::sf_proj_network(TRUE)## [1] "https://cdn.proj.org"(pls_cdn <- sf::sf_proj_pipelines("EPSG:4152", "ESRI:104000", AOI=c(-87.7, 41.87, -87.6, 41.9)))## Candidate coordinate operations found: 3
## Strict containment: FALSE
## Axis order auth compl: FALSE
## Source: EPSG:4152
## Target: ESRI:104000
## Best instantiable operation has accuracy: 0.2 m
## Description: axis order change (2D) + Inverse of NAD83 to NAD83(HARN) (38) +
## Inverse of NAD27 to NAD83 (1) + axis order change
## (2D)
## Definition: +proj=pipeline +step +proj=unitconvert +xy_in=deg +xy_out=rad
## +step +inv +proj=hgridshift
## +grids=us_noaa_ilhpgn.tif +step +inv
## +proj=hgridshift +grids=us_noaa_conus.tif +step
## +proj=unitconvert +xy_in=rad +xy_out=degsf::sf_proj_network(FALSE)## character(0)Transforming spatial objects in sf and terra
sf and terra use OGRCreateCoordinateTransformation() to create the transformation pipeline internally. Possibly because of this use of GDAL rather than PR\(\phi\)J, control over the user writable directory and the CDN PROJ_NETWORK status is rather challenging.
(CBTB <- sf::st_sfc(sf::st_point(c(-87.632222, 41.878056)), crs="EPSG:4152"))## Geometry set for 1 feature
## Geometry type: POINT
## Dimension: XY
## Bounding box: xmin: -87.63222 ymin: 41.87806 xmax: -87.63222 ymax: 41.87806
## Geodetic CRS: NAD83(HARN)## POINT (-87.63222 41.87806)Unlike previously, we are using GIS/visualization axis order, and sf is set not to override using authority axis order:
sf::st_axis_order()## [1] FALSEWe’ll write out the CBTB point for further use:
sf::st_write(CBTB, "CBTB.gpkg", append=FALSE)## Deleting layer `CBTB' using driver `GPKG'
## Writing layer `CBTB' to data source `CBTB.gpkg' using driver `GPKG'
## Writing 1 features with 0 fields and geometry type Point.To regain control for the purpose of demonstrating how to enable and disable the CDN with reasonable certainty, at least the PROJ_NETWORK environment variable needs to be set before sf is loaded (or analogously terra is loaded). Here we’ll start minimal R sessions, setting the environment variable before anything else.
lines <- c(
"Sys.setenv(\"PROJ_NETWORK\"=\"ON\")",
"CBTB <- sf::st_read(\"CBTB.gpkg\", quiet=TRUE)",
"sf::st_transform(CBTB, \"ESRI:104000\", aoi=c(-87.7, 41.87, -87.6, 41.9))"
)
tf <- tempfile(fileext=".R")
writeLines(lines, con=tf)
o <- system(paste("R -q --vanilla -f", tf), intern=TRUE)
cat(o[-1], sep="\n")## > Sys.setenv("PROJ_NETWORK"="ON")
## > CBTB <- sf::st_read("CBTB.gpkg", quiet=TRUE)
## > sf::st_transform(CBTB, "ESRI:104000", aoi=c(-87.7, 41.87, -87.6, 41.9))
## Simple feature collection with 1 feature and 0 fields
## Geometry type: POINT
## Dimension: XY
## Bounding box: xmin: -87.63217 ymin: 41.87802 xmax: -87.63217 ymax: 41.87802
## Geodetic CRS: GCS_Assumed_Geographic_1
## geom
## 1 POINT (-87.63217 41.87802)
## >This corresponds to the result above using horisontal grid shift.
lines <- c(
"Sys.unsetenv(\"PROJ_NETWORK\")",
"CBTB <- sf::st_read(\"CBTB.gpkg\", quiet=TRUE)",
"sf::st_transform(CBTB, \"ESRI:104000\", aoi=c(-87.7, 41.87, -87.6, 41.9))"
)
tf <- tempfile(fileext=".R")
writeLines(lines, con=tf)
o <- system(paste("R -q --vanilla -f", tf), intern=TRUE)
cat(o[-1], sep="\n")## > Sys.unsetenv("PROJ_NETWORK")
## > CBTB <- sf::st_read("CBTB.gpkg", quiet=TRUE)
## > sf::st_transform(CBTB, "ESRI:104000", aoi=c(-87.7, 41.87, -87.6, 41.9))
## Simple feature collection with 1 feature and 0 fields
## Geometry type: POINT
## Dimension: XY
## Bounding box: xmin: -87.63218 ymin: 41.87803 xmax: -87.63218 ymax: 41.87803
## Geodetic CRS: GCS_Assumed_Geographic_1
## geom
## 1 POINT (-87.63218 41.87803)
## >This is the ballpark accuracy result with the difference in the ellipsoid definitions taken into account, but no use made of the datum specification. The results for terra are the same:
lines <- c(
"Sys.setenv(\"PROJ_NETWORK\"=\"ON\")",
"CBTB <- terra::vect(\"CBTB.gpkg\")",
"terra::geom(terra::project(CBTB, \"ESRI:104000\"))"
)
tf <- tempfile(fileext=".R")
writeLines(lines, con=tf)
o <- system(paste("R -q --vanilla -f", tf), intern=TRUE)
cat(o[-1], sep="\n")## > Sys.setenv("PROJ_NETWORK"="ON")
## > CBTB <- terra::vect("CBTB.gpkg")
## > terra::geom(terra::project(CBTB, "ESRI:104000"))
## geom part x y hole
## [1,] 1 1 -87.63217 41.87802 0
## >lines <- c(
"Sys.unsetenv(\"PROJ_NETWORK\")",
"CBTB <- terra::vect(\"CBTB.gpkg\")",
"terra::geom(terra::project(CBTB, \"ESRI:104000\"))"
)
tf <- tempfile(fileext=".R")
writeLines(lines, con=tf)
o <- system(paste("R -q --vanilla -f", tf), intern=TRUE)
cat(o[-1], sep="\n")## > Sys.unsetenv("PROJ_NETWORK")
## > CBTB <- terra::vect("CBTB.gpkg")
## > terra::geom(terra::project(CBTB, "ESRI:104000"))
## geom part x y hole
## [1,] 1 1 -87.63218 41.87803 0
## >Exercises (if time permits or later)
Perform self-chosen datum transformations on selected data sets examined before.
Non-PR\(\phi\)J projections
Some presentation projections are not available through the standard GDAL/PROJ ecosystem, but can be found in javascript libraries:
https://riatelab.github.io/bertin/ https://observablehq.com/@neocartocnrs/hello-bertin-js https://observablehq.com/collection/@neocartocnrs/bertin https://observablehq.com/@neocartocnrs/bertin-js-projections?collection=@neocartocnrs/bertin https://observablehq.com/collection/@d3/d3-geo-projection
CRS in Python modules
Representing CRS in Python modules
The whole Python environment has shifted to Python 3, causing some churn among packages. For geospatial data, the geopandas package (Bossche, Jordahl, and Fleischmann 2022) uses a similar approach to the R sf package, representing data as a data frame with a geometry column. Unlike sf, geopandas does not itself link to PROJ, GDAL or GEOS, relying on the pyproj package for PR\(\phi\)J (Snow et al. 2022), linking to PR\(\phi\)J.
td_py <- tempfile()
dir.create(td_py)
Sys.setenv("PROJ_USER_WRITABLE_DIRECTORY"=td_py)import pyproj
pyproj.show_versions()## pyproj info:
## pyproj: 3.4.1
## PROJ: 9.1.0
## data dir: /home/rsb/.local/lib/python3.11/site-packages/pyproj/proj_dir/share/proj
## user_data_dir: /tmp/RtmpyI5klq/file22935c9b245b
## PROJ DATA (recommended version): 1.11
## PROJ Database: 1.2
## EPSG Database: v10.074 [2022-08-01]
## ESRI Database: ArcGIS Pro 3.0 [2022-07-09]
## IGNF Database: 3.1.0 [2019-05-24]
##
## System:
## python: 3.11.1 (main, Jan 6 2023, 00:00:00) [GCC 12.2.1 20221121 (Red Hat 12.2.1-4)]
## executable: /usr/bin/python
## machine: Linux-6.1.7-200.fc37.x86_64-x86_64-with-glibc2.36
##
## Python deps:
## certifi: 2022.9.24
## Cython: None
## setuptools: 62.6.0
## pip: 22.2.2Here pyproj was installed using pip, so bundles its own copy of the metadata files:
ls /home/rsb/.local/lib/python3.11/site-packages/pyproj/proj_dir/share/proj## CH
## deformation_model.schema.json
## GL27
## ITRF2000
## ITRF2008
## ITRF2014
## nad27
## nad83
## nad.lst
## other.extra
## proj.db
## proj.ini
## projjson.schema.json
## triangulation.schema.json
## worldA "CRS" object can be instantiated, typically using the same strings as with PR\(\phi\)J itself:
crs = pyproj.crs.CRS('OGC:CRS84')
crs## <Geographic 2D CRS: OGC:CRS84>
## Name: WGS 84 (CRS84)
## Axis Info [ellipsoidal]:
## - Lon[east]: Geodetic longitude (degree)
## - Lat[north]: Geodetic latitude (degree)
## Area of Use:
## - name: World.
## - bounds: (-180.0, -90.0, 180.0, 90.0)
## Datum: World Geodetic System 1984 ensemble
## - Ellipsoid: WGS 84
## - Prime Meridian: GreenwichThe object has a type, and this is the one used in objects in geopandas
type(crs)## <class 'pyproj.crs.crs.CRS'>The object can be pretty-printed:
print(crs.to_wkt(pretty=True))## GEOGCRS["WGS 84 (CRS84)",
## ENSEMBLE["World Geodetic System 1984 ensemble",
## MEMBER["World Geodetic System 1984 (Transit)"],
## MEMBER["World Geodetic System 1984 (G730)"],
## MEMBER["World Geodetic System 1984 (G873)"],
## MEMBER["World Geodetic System 1984 (G1150)"],
## MEMBER["World Geodetic System 1984 (G1674)"],
## MEMBER["World Geodetic System 1984 (G1762)"],
## MEMBER["World Geodetic System 1984 (G2139)"],
## ELLIPSOID["WGS 84",6378137,298.257223563,
## LENGTHUNIT["metre",1]],
## ENSEMBLEACCURACY[2.0]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433]],
## CS[ellipsoidal,2],
## AXIS["geodetic longitude (Lon)",east,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433]],
## AXIS["geodetic latitude (Lat)",north,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433]],
## USAGE[
## SCOPE["Not known."],
## AREA["World."],
## BBOX[-90,-180,90,180]],
## ID["OGC","CRS84"]]The NAD83 (HARN) representation summary is:
pyproj.crs.CRS('EPSG:4152')## <Geographic 2D CRS: EPSG:4152>
## Name: NAD83(HARN)
## Axis Info [ellipsoidal]:
## - Lat[north]: Geodetic latitude (degree)
## - Lon[east]: Geodetic longitude (degree)
## Area of Use:
## - name: American Samoa - onshore - Tutuila, Aunu'u, Ofu, Olesega, Ta'u and Rose islands. Guam - onshore. Northern Mariana Islands - onshore. Puerto Rico - onshore. United States (USA) - onshore Alabama, Alaska, Arizona, Arkansas, California, Colorado, Connecticut, Delaware, Florida, Georgia, Hawaii, Idaho, Illinois, Indiana, Iowa, Kansas, Kentucky, Louisiana, Maine, Maryland, Massachusetts, Michigan, Minnesota, Mississippi, Missouri, Montana, Nebraska, Nevada, New Hampshire, New Jersey, New Mexico, New York, North Carolina, North Dakota, Ohio, Oklahoma, Oregon, Pennsylvania, Rhode Island, South Carolina, South Dakota, Tennessee, Texas, Utah, Vermont, Virginia, Washington, West Virginia, Wisconsin and Wyoming; offshore Gulf of Mexico continental shelf (GoM OCS). US Virgin Islands - onshore.
## - bounds: (144.58, -14.59, -64.51, 71.4)
## Datum: NAD83 (High Accuracy Reference Network)
## - Ellipsoid: GRS 1980
## - Prime Meridian: Greenwichand the deprecated NAD27 version:
pyproj.crs.CRS('ESRI:104000')## <Geographic 2D CRS: ESRI:104000>
## Name: GCS_Assumed_Geographic_1
## Axis Info [ellipsoidal]:
## - Lat[north]: Geodetic latitude (degree)
## - Lon[east]: Geodetic longitude (degree)
## Area of Use:
## - name: Not specified.
## - bounds: (-180.0, -90.0, 180.0, 90.0)
## Datum: North American Datum 1927
## - Ellipsoid: Clarke 1866
## - Prime Meridian: GreenwichWorking in S2 or R2
shapely interfaces GEOS, spherely interfaces S2Geometry, WIP. https://github.com/geopandas/community/issues/10
Discovering transformation pipelines in pyproj
pyproj is directly based on PR\(\phi\)J, so is based on findable transformation pipelines:
from pyproj.transformer import TransformerGroupFirst turning off the CDN, we again find that only the ballpark accuracy is supported:
pyproj.network.set_network_enabled(False)
tg = TransformerGroup('EPSG:4152', 'ESRI:104000', always_xy=True, area_of_interest=pyproj.aoi.AreaOfInterest(-87.7, 41.87, -87.6, 41.9))## /home/rsb/.local/lib/python3.11/site-packages/pyproj/transformer.py:197: UserWarning: Best transformation is not available due to missing Grid(short_name=us_noaa_conus.tif, full_name=, package_name=, url=https://cdn.proj.org/us_noaa_conus.tif, direct_download=True, open_license=True, available=False)
## super().__init__(tg## <TransformerGroup: best_available=False>
## - transformers: 1
## - unavailable_operations: 2import re
print(re.sub("step", "\nstep", tg.transformers[0].definition))## proj=noop ellps=GRS80With CDN access provided, the three pipelines are available:
pyproj.network.set_network_enabled(True)
tg = TransformerGroup('EPSG:4152', 'ESRI:104000', always_xy=True, area_of_interest=pyproj.aoi.AreaOfInterest(-87.7, 41.87, -87.6, 41.9))
tg## <TransformerGroup: best_available=True>
## - transformers: 3
## - unavailable_operations: 0print(re.sub("step", "\nstep", tg.transformers[0].definition))## proj=pipeline
## step proj=unitconvert xy_in=deg xy_out=rad
## step inv proj=hgridshift grids=us_noaa_ilhpgn.tif
## step inv proj=hgridshift grids=us_noaa_conus.tif
## step proj=unitconvert xy_in=rad xy_out=degTransforming spatial objects in pyproj
We’ll start by just using point coordinates:
cx = -87.632222
cy = 41.878056
import numpy
numpy.set_printoptions(precision=5, suppress=True)A curiosity is that the ballpark accuracy pipeline does not agree with sf:
ll2 = tg.transformers[2].transform(cx, cy)
print(numpy.array(ll2))## [-87.63222 41.87806]but with the 0.2m accuracy grid, the result is as expected:
ll0 = tg.transformers[0].transform(cx, cy)
print(numpy.array(ll0))## [-87.63217 41.87802]Again, a short script, as my console python finds working modules but via RStudio pandas fails to load:
lines <- c(
"import pyproj",
"print(pyproj.datadir.get_data_dir())",
"import geopandas",
"CBTB = geopandas.read_file('CBTB.gpkg')",
"print(CBTB)",
"print(CBTB.crs.to_wkt(pretty=True))",
"pyproj.network.set_network_enabled(False)",
"NAD27_CBTB0 = CBTB.to_crs('ESRI:104000')",
"print(NAD27_CBTB0)",
"pyproj.network.set_network_enabled(True)",
"NAD27_CBTB1 = CBTB.to_crs('ESRI:104000')",
"print(NAD27_CBTB1)",
"quit()"
)
writeLines(lines, con="scr.py")
Sys.setenv("GEOPANDAS_SCRIPT"="scr.py")
o <- system("python -q -u $GEOPANDAS_SCRIPT", intern=TRUE)
cat(o, sep="\n")## /home/rsb/.local/lib/python3.11/site-packages/pyproj/proj_dir/share/proj
## geometry
## 0 POINT (-87.63222 41.87806)
## GEOGCRS["NAD83(HARN)",
## DATUM["NAD83 (High Accuracy Reference Network)",
## ELLIPSOID["GRS 1980",6378137,298.257222101,
## LENGTHUNIT["metre",1]]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433]],
## CS[ellipsoidal,2],
## AXIS["geodetic latitude (Lat)",north,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433]],
## AXIS["geodetic longitude (Lon)",east,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433]],
## USAGE[
## SCOPE["Horizontal component of 3D system."],
## AREA["American Samoa - onshore - Tutuila, Aunu'u, Ofu, Olesega, Ta'u and Rose islands. Guam - onshore. Northern Mariana Islands - onshore. Puerto Rico - onshore. United States (USA) - onshore Alabama, Alaska, Arizona, Arkansas, California, Colorado, Connecticut, Delaware, Florida, Georgia, Hawaii, Idaho, Illinois, Indiana, Iowa, Kansas, Kentucky, Louisiana, Maine, Maryland, Massachusetts, Michigan, Minnesota, Mississippi, Missouri, Montana, Nebraska, Nevada, New Hampshire, New Jersey, New Mexico, New York, North Carolina, North Dakota, Ohio, Oklahoma, Oregon, Pennsylvania, Rhode Island, South Carolina, South Dakota, Tennessee, Texas, Utah, Vermont, Virginia, Washington, West Virginia, Wisconsin and Wyoming; offshore Gulf of Mexico continental shelf (GoM OCS). US Virgin Islands - onshore."],
## BBOX[-14.59,144.58,71.4,-64.51]],
## ID["EPSG",4152]]
## geometry
## 0 POINT (-87.63221 41.87805)
## geometry
## 0 POINT (-87.63217 41.87802)lines <- c(
"import pyproj",
"print(pyproj.datadir.get_data_dir())",
"pyproj.datadir.set_data_dir('/usr/local/share/proj')",
"print(pyproj.datadir.get_data_dir())",
"import geopandas",
"CBTB = geopandas.read_file('CBTB.gpkg')",
"print(CBTB)",
"print(CBTB.crs.to_wkt(pretty=True))",
"pyproj.network.set_network_enabled(False)",
"NAD27_CBTB0 = CBTB.to_crs('ESRI:104000')",
"print(NAD27_CBTB0)",
"pyproj.network.set_network_enabled(True)",
"NAD27_CBTB1 = CBTB.to_crs('ESRI:104000')",
"print(NAD27_CBTB1)",
"quit()"
)
writeLines(lines, con="scr.py")
Sys.setenv("GEOPANDAS_SCRIPT"="scr.py")
o <- system("python -q -u $GEOPANDAS_SCRIPT", intern=TRUE)
cat(o, sep="\n")## /home/rsb/.local/lib/python3.11/site-packages/pyproj/proj_dir/share/proj
## /usr/local/share/proj
## geometry
## 0 POINT (-87.63222 41.87806)
## GEOGCRS["NAD83(HARN)",
## DATUM["NAD83 (High Accuracy Reference Network)",
## ELLIPSOID["GRS 1980",6378137,298.257222101,
## LENGTHUNIT["metre",1]]],
## PRIMEM["Greenwich",0,
## ANGLEUNIT["degree",0.0174532925199433]],
## CS[ellipsoidal,2],
## AXIS["geodetic latitude (Lat)",north,
## ORDER[1],
## ANGLEUNIT["degree",0.0174532925199433]],
## AXIS["geodetic longitude (Lon)",east,
## ORDER[2],
## ANGLEUNIT["degree",0.0174532925199433]],
## USAGE[
## SCOPE["Horizontal component of 3D system."],
## AREA["American Samoa - onshore - Tutuila, Aunu'u, Ofu, Olesega, Ta'u and Rose islands. Guam - onshore. Northern Mariana Islands - onshore. Puerto Rico - onshore. United States (USA) - onshore Alabama, Alaska, Arizona, Arkansas, California, Colorado, Connecticut, Delaware, Florida, Georgia, Hawaii, Idaho, Illinois, Indiana, Iowa, Kansas, Kentucky, Louisiana, Maine, Maryland, Massachusetts, Michigan, Minnesota, Mississippi, Missouri, Montana, Nebraska, Nevada, New Hampshire, New Jersey, New Mexico, New York, North Carolina, North Dakota, Ohio, Oklahoma, Oregon, Pennsylvania, Rhode Island, South Carolina, South Dakota, Tennessee, Texas, Utah, Vermont, Virginia, Washington, West Virginia, Wisconsin and Wyoming; offshore Gulf of Mexico continental shelf (GoM OCS). US Virgin Islands - onshore."],
## BBOX[-14.59,144.58,71.4,-64.51]],
## ID["EPSG",4152]]
## geometry
## 0 POINT (-87.63221 41.87805)
## geometry
## 0 POINT (-87.63217 41.87802)