从 R 数据框中的字符串中删除前缀

Question

我有一个数据框wkt_small其中包含以下数据：

id             GEOMETRY                                                                                      
  <chr>          <chr>                                                                                         
1 PTK01        LINESTRING( 1.142 85.892 1.400, 0.991 85.892 1.400)
2 PTK02        LINESTRING( 2.142 85.892 1.400, 0.991 85.892 1.400)
...

我需要的是它看起来像这样：

id             GEOMETRY                                                                                      
  <chr>          <chr>                                                                                         
1 PTK01        ( 1.142 85.892 1.400, 0.991 85.892 1.400)
2 PTK02        ( 2.142 85.892 1.400, 0.991 85.892 1.400)
...

我尝试了以下方法：

wkt_small[, 2] <- gsub('^\\w+', '', wkt_small[, 2])

但是，这为所有行的GEOMETRY提供了以下值：

("LINESTRING( 1.142 85.892 1.400, 0.991 85.892 1.400, 0.991 85.301 1.4)","LINESTRING( 1.142 85.892 1.400, 0.991 85.892 1.400, 0.991 85.301 1.4)"...

将第一行值与我想为数据框中所有条目删除的字符串连接起来。

Answer 1

使用[[…]]或$…选择单列，而不是[, …] ：

wkt_small$GEOMETRY <- sub('^\\w+', '', wkt_small$GEOMETRY)

...实际上，使用适当的data.frame您的代码也可以正常工作； 但是对于 tibble， [索引总是返回 tibble ，而不是列向量。 tibble 语义等同于将[, …, drop = FALSE]与常规data.frame 。

Answer 2

更新：我们可以使用str_remove （在这种情况下更好）：

library(stringr)
wkt_small %>% 
    mutate(GEOMETRY = str_remove(GEOMETRY, '^\\w+'))

我们可以使用stringr包中的str_replace和正则表达式"^[AZ]*"

library(dplyr)
library(stringr)
df %>% 
    mutate(GEOMETRY = str_replace(GEOMETRY, "^[A-Z]*", ""))

输出：

  id    GEOMETRY                                 
  <chr> <chr>                                    
1 PTK01 ( 1.142 85.892 1.400, 0.991 85.892 1.400)
2 PTK02 ( 2.142 85.892 1.400, 0.991 85.892 1.400)