Экспорт SpatialPolygonsDataFrame как geojson или topojson в R

Question

Я пытаюсь преобразовать геодезию местных властей Лондона в шестнадцатеричную картограмму, где каждый шестиугольник представляет одну местную власть. Он работает в R, но когда я пытаюсь экспортировать сгенерированную шестнадцатеричную сетку как geojson или topojson, я получаю следующую ошибку:

Error in sp::SpatialPolygonsDataFrame(polys, data = input@data) : 
  row.names of data and Polygons IDs do not match

Вот код. Я использую geogrid для создания сетки и geojsonio для экспорта сгенерированного фрейма данных в geojson или topojson:

library(geogrid)
library(geojsonio) # version 0.9.0

df <- read_polygons(system.file("extdata", "london_LA.json", package = "geogrid"))
# you can get the json file from here: https://github.com/jbaileyh/geogrid/blob/master/inst/extdata/london_LA.json

# Set arguments for plot
par(mfrow = c(2, 3), mar = c(0, 0, 2, 0))

# Hexagonal grid with 6 seeds
for (i in 1:3) {
  grid_hexagon <- calculate_grid(shape = df, learning_rate = 0.05, grid_type = "hexagonal", seed = i)
  plot(grid_hexagon, main = paste("Seed", i, sep = " "))
}

# Square grid
for (i in 1:3) {
  grid_square <- calculate_grid(shape = df, grid_type = "regular", seed = i)
  sp::plot(grid_square, main = paste("Seed", i, sep = " "))
}

# Get a SpatialDataFrame from our desired grid
tmp <- calculate_grid(shape = df, grid_type = "hexagonal", seed = 3)
df_hex <- assign_polygons(df, tmp)

# And export to TopoJSON
topojson_write(df_hex, object_name = "local_authorities", file = "output/london_hex.json")

Есть предложения о том, как я могу решить эту проблему? Кроме того, мне интересно услышать о других подходах к созданию шестнадцатеричных картограмм с конкретным входным файлом.

Ссылки: https://github.com/jbaileyh/geogrid

Answer 1

Вы можете преобразовать SpatialPolygonsDataFrame к sf, а затем записать в файл GeoJSON с помощью st_write:

       library(sf)                                                                                                                               
df_hex = st_as_sf(df_hex)                                                                                                                 
st_write(df_hex, "df_hex.geojson") 

Вот результат в QGIS: