由于sf仍然是data.frame（或tibble），因此不需要手动转换。只需在[]和[[]]之间切换，具体取决于您是否需要一个列作为矢量或sf对象，该对象具有单个特征，其中几何体仍然附加：

ne <- rnaturalearth::ne_countries(returnclass = "sf")
names(ne)[1:10]
#>  [1] "featurecla" "scalerank"  "labelrank"  "sovereignt" "sov_a3"    
#>  [6] "adm0_dif"   "level"      "type"       "admin"      "adm0_a3"
(sel_col <- names(ne)[9])
#> [1] "admin"

# sf with 1 feature colum and geomery column:
ne[sel_col] |> str()
#> Classes 'sf' and 'data.frame':   177 obs. of  2 variables:
#>  $ admin   : chr  "Fiji" "United Republic of Tanzania" "Western Sahara" "Canada" ...
#>  $ geometry:sfc_MULTIPOLYGON of length 177; first list element: List of 3
#>   ..$ :List of 1
#>   .. ..$ : num [1:8, 1:2] 180 180 179 179 179 ...
#>   ..$ :List of 1
#>   .. ..$ : num [1:9, 1:2] 178 178 179 179 178 ...
#>   ..$ :List of 1
#>   .. ..$ : num [1:5, 1:2] -180 -180 -180 -180 -180 ...
#>   ..- attr(*, "class")= chr [1:3] "XY" "MULTIPOLYGON" "sfg"
#>  - attr(*, "sf_column")= chr "geometry"
#>  - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA
#>   ..- attr(*, "names")= chr "admin"

# feature as a vector: 
ne[[sel_col]] |> str()
#>  chr [1:177] "Fiji" "United Republic of Tanzania" "Western Sahara" "Canada" ...

创建于2023-05-12带有reprex v2.0.2

怎么样

colname = 'a'
g[c(colname, 'geometry')]

...如果你想保留属性a加上几何体？
如果实际上要删除几何体（将要素转换为非空间数据框行），可以通过以下方式执行：

as.data.frame(us)[colname]

我想到了几种可能性，但从基准测试的Angular 来看，没有一种是真正的游戏改变者。

microbenchmark(g$a, 
               data.frame(g)[, "a"], 
               g[, "a", drop = T],
               st_drop_geometry(g)[, "a"],
               data.table::as.data.table(g)[, "a"],
               dplyr::pull(g, "a")
               )

{sf}的[方法（参数drop设置为true）似乎是最快的，但仍然不能与美元符号运算符相比。