如何用R创建适配Power Apps地理空间功能的单列GeoJSON Excel文件

以下是实现需求的完整步骤，基于R的空间数据处理工具链：

1. 安装并加载依赖包 #

需要用到三个核心包：sf用于空间数据读写与处理，jsonlite用于GeoJSON序列化，openxlsx用于导出Excel。

# 首次运行安装包
install.packages(c("sf", "jsonlite", "openxlsx"))

# 加载包
library(sf)
library(jsonlite)
library(openxlsx)

2. 读取输入的空间数据 #

读取GeoJSON文件 #

spatial_data <- st_read("你的文件路径/input.geojson", stringsAsFactors = FALSE)

读取Shapefile #

只需传入.shp文件的路径即可，sf会自动关联同目录下的其他附属文件（如.shx、.dbf）：

spatial_data <- st_read("你的文件路径/input_shapefile.shp", stringsAsFactors = FALSE)

3. 生成Power Apps所需的GeoJSON列 #

遍历每行数据，将单个空间要素转换为完整的GeoJSON Feature字符串，存入新的GeoJSON列：

# 为每个要素生成完整GeoJSON对象
spatial_data$GeoJSON <- apply(spatial_data, 1, function(row) {
  # 提取当前行的空间几何并恢复坐标系
  single_feature <- st_sfc(row$geometry, crs = st_crs(spatial_data))
  # 转换为GeoJSON字符串（自动包含属性与几何）
  toJSON(st_as_sf(data.frame(geometry = single_feature)), auto_unbox = TRUE)
})

4. 清理数据（可选） #

移除原始的空间几何列，避免导出Excel时出现格式异常：

spatial_data <- st_drop_geometry(spatial_data)

5. 导出为Excel文件 #

write.xlsx(spatial_data, "输出文件路径/powerapps_geospatial.xlsx", rowNames = FALSE)

关键注意事项 #

• 坐标系适配：Power Apps地理空间功能默认使用WGS84（EPSG:4326），如果你的数据使用其他坐标系，需提前转换：

  spatial_data <- st_transform(spatial_data, crs = 4326)
  

• GeoJSON格式验证：导出后可检查Excel的GeoJSON列，确保每个单元格内容是完整的Feature对象（格式示例：{"type":"Feature","geometry":{"type":"Point","coordinates":[116.39,39.9]},"properties":{"name":"北京"}}）

内容的提问来源于stack exchange，提问作者Om95