Проектування об'єктів sp в R

У мене є ряд форм-файлів у різних CRS (в основному WGS84 lat / lon), які я хотів би перетворити на загальну проекцію (ймовірно, Albers Equal Area Conic, але я можу попросити допомоги щодо вибору в іншому питанні, як тільки моя проблема стане кращою -визначений).

Я провів кілька місяців, займаючись просторовою статистикою в R, але це було 5 років тому. За все життя я не можу пригадати, як перетворити spоб'єкт (наприклад SpatialPolygonsDataFrame) з однієї проекції на іншу.

Приклад коду:

P4S.latlon <- CRS("+proj=longlat +datum=WGS84")
hrr.shp <- readShapePoly("HRR_Bdry"), verbose=TRUE, proj4string=P4S.latlon) 
# Shapefile available at 
#   http://www.dartmouthatlas.org/downloads/geography/hrr_bdry.zip 
#   but you must rename all the filenames to have the same 
#   capitalization for it to work in R

Тепер у мене є SpatialPolygonsDataFrameвідповідна інформація про проекцію, але я хотів би перетворити її на потрібну проекцію. Я пригадую, що для цього була якась неінтуїтивно названа функція, але я не можу пригадати, що це таке.

Зауважте, що я не хочу просто змінювати CRS, а змінювати координати на відповідність ("перепроектувати", "перетворити" тощо).

Редагувати

За винятком AK / HI, які дратують розміщення в Мексиці для цього формату файлів:

library(taRifx.geo)
hrr.shp <- 
  subset(hrr.shp, !(grepl( "AK-" , hrr.shp@data$HRRCITY ) |
                                     grepl( "HI-" , hrr.shp@data$HRRCITY )) )
proj4string(hrr.shp) <- P4S.latlon

Ви можете використовувати spTransform()методи в rgdal - використовуючи свій приклад, ви можете перетворити об'єкт у NAD83 для Канзасу (26978):

library(rgdal)
library(maptools)

P4S.latlon <- CRS("+proj=longlat +datum=WGS84")
hrr.shp <- readShapePoly("HRR_Bdry", verbose=TRUE, proj4string=P4S.latlon)
plot(hrr.shp)

hrr.shp.2 <- spTransform(hrr.shp, CRS("+init=epsg:26978"))
plot(hrr.shp.2)

Щоб зберегти його в новій проекції:

writePolyShape(hrr.shp.2, "HRR_Bdry_NAD83")

EDIT : Або відповідно до пропозиції @ Spacedman (який записує .prj файл із інформацією про CRS):

writeOGR(hrr.shp.2, dsn = getwd(), layer = "HRR_Bdry_NAD83", driver="ESRI Shapefile")

Якщо невідомо, з якого CRS запроектувати, зверніться до наступного повідомлення:

• Вибір правильного значення для proj4string для читання формфайлу в R?

Якщо ви хочете визначити / призначити CRS, коли даних немає, зверніться до:

• Призначення CRS для shapefile, коли він не має, в R?

З моменту введення пакету sf (ознайомтеся з віньєтками sf1 , sf2 , sf3 , sf4 та посібником з міграції тут ), ви можете використовувати st_transform()для повторного відтворення своїх векторних даних:

require(sf)

hrr_sf = st_read('HRR_Bdry.shp', stringsAsFactors = FALSE,
    crs = 4326) # has +proj=longlat +datum=WGS84
plot(hrr_sf)

hrr_sf2 = st_transform(hrr_sf, "+init=epsg:26978") # 1st option sp::CRS() not working/ needed
hrr_sf2 = st_transform(hrr_sf, 26978) # 2nd option - EPSG code as an integer
plot(hrr_sf2)

# don't think about doing this:
hrr_sf3 = st_read('HRR_Bdry.shp', stringsAsFactors = FALSE,
    crs = 26978)

# Output layer
st_write(hrr_sf2, dsn = getwd(), layer = "HRR_Bdry_NAD83", driver = "ESRI Shapefile")

sf замінить sp в майбутньому і завдяки своїй простоті та швидкості має ряд переваг порівняно з sp.