如何隐藏/删除几何体列

Question

我想从sf数据帧中隐藏(或删除(几何体列。我知道有一个函数st_drop_geometry，但不幸的是，它将sf对象转换回data.frame，我不希望这样。我想删除几何体列，但仍然有sf数据帧。有可能吗？我试过用select(-geometry)，但没有用。

下面是一个简短的工作示例：

data_all <- quakes %>%
dplyr::select(depth, mag, stations, lat, long) %>% 
sf::st_as_sf(coords = c("long","lat"), crs = 4326) %>% 
dplyr::select(-geometry)

Answer 1

为新接触sf对象并希望从数据帧或tibble中删除geometry的其他人总结OP自己的评论：

方法1

sf::st_drop_geometry(data_all)

方法2

attr(data_all, "class") <- "data.frame"
attr(data_all, "sf_column") <- NULL