将 r 中的 sf 对象保存为具有嵌入样式的 shapefile

Question

我使用 R 来处理我的数据，然后将我生成的矢量文件放入 QGIS 等 GIS 平台（因为我的数据集很大，无法使用

leaflet

、

mapview

等轻松查询

我想将我的点矢量文件保存为嵌入样式（例如颜色）的 shapefile，这样我就可以在 QGIS 中打开它并使用已经创建的样式。有没有一种简单的方法可以从 R 中做到这一点？

下面是我将如何着手解决这个问题的示例。首先，我将我的表格数据转换为一个 sf 对象，并定义一个命名向量用作调色板，我想使用该调色板为使用列

Pred_Class

的样本着色。我认为有一行可以导出为 shapefile，但不确定如何将调色板嵌入 shapefile。我知道样式可以嵌入到商业 GIS 包的 shapefile 中，但不确定如何在 R 中实现。

library(dplyr)
library(sf)

test_sf_object <- export_df %>%
      select(all_of(samp_id), all_of(x_loc), all_of(y_loc), Pred_Class) %>%
      st_as_sf(., coords = c(x = x_loc, y = y_loc), crs = 4283)

col_pal <- c(Class_1 = 'blue', Class_2 = 'green')

st_write(test_sf_object , 'test_sf.shp')