Computes map projection factors (distortion measures) for a set of geographic coordinates and a given projected CRS. Returns a matrix with one row per input coordinate and one column per factor.
proj_factors(lp, crs)A numeric matrix with nrow(lp) rows and the following columns:
Meridional scale factor (h)
Parallel scale factor (k)
Areal scale factor (s)
Angular distortion (omega), in radians
Meridian-parallel angle (theta prime), in radians
Meridian convergence (conv), in radians
Tissot semimajor axis (a)
Tissot semiminor axis (b)
Partial derivative dx/dlambda
Partial derivative dx/dphi
Partial derivative dy/dlambda
Partial derivative dy/dphi
# Lambert Azimuthal Equal Area
proj_factors(cbind(147, -42), "+proj=laea +lon_0=147 +lat_0=-42 +type=crs")
#> meridional_scale parallel_scale areal_scale angular_distortion
#> [1,] 1 1 1 0
#> meridian_parallel_angle meridian_convergence tissot_semimajor
#> [1,] 1.570796 -2.758959e-16 1
#> tissot_semiminor dx_dlam dx_dphi dy_dlam dy_dphi
#> [1,] 1 0.7442611 2.752857e-16 0 0.9977883
# Multiple coordinates
pts <- cbind(c(130, 147, 160), c(-20, -42, -35))
proj_factors(pts, "EPSG:3112")
#> meridional_scale parallel_scale areal_scale angular_distortion
#> [1,] 0.9952283 0.9952283 0.9904794 0
#> [2,] 1.0236096 1.0236096 1.0477766 0
#> [3,] 0.9973400 0.9973400 0.9946871 0
#> meridian_parallel_angle meridian_convergence tissot_semimajor
#> [1,] 1.570796 0.03182908 0.9952283
#> [2,] 1.570796 -0.10344450 1.0236096
#> [3,] 1.570796 -0.20688900 0.9973400
#> tissot_semiminor dx_dlam dx_dphi dy_dlam dy_dphi
#> [1,] 0.9952283 0.9351012 -0.03149682 0.02977346 0.9892269
#> [2,] 1.0236096 0.7577603 0.10546427 -0.07866694 1.0158859
#> [3,] 0.9973400 0.8004328 0.20417250 -0.16800466 0.9727490