用gemo_sf,ggplot标记多边形

我正在尝试使用ggplot2从空间特征数据帧标记多边形。我想复制描述 here 在标题下,“下载一些边界数据:州/县/huc”

这是我的代码,尝试获取用于geom_text()中标签位置的lat和lon值:

selected_sites <- arc.open(survey_sites)
ss <- arc.select(selected_sites)
ss_shape <- arc.data2sf(ss)
refcode_list <- ss$refcode

ss_shape <- ss_shape %>%
  mutate(lon=map(geometry, ~st_centroid(.x)[[1]]),
         lat=map(geometry, ~st_centroid(.x)[[2]]))

我一直收到以下错误:

mutate impl(.data,dots)中的错误:
评估错误: .x 不是向量(闭包)。