根据 R 中的另一列删除字符串的一部分

Question

我有一个如下所示的大型数据集。我想从remove_strings列指示的fruits列中删除一定数量的字符串。

library(tidyverse)

df <- tibble(fruits=c("apple","banana","ananas"), 
             remove_strings=c(1,4,2))

df
#> # A tibble: 3 × 2
#>   fruits remove_strings
#>   <chr>           <dbl>
#> 1 apple               1
#> 2 banana              4
#> 3 ananas              2

^{由reprex package于2022年3月9日创建(v2.0.1)}

我想从苹果中删除第一个字符串，从香蕉中删除前 4 个字符串，从香蕉中删除前 2 个字符串。我希望我的数据如下所示:

#>   fruits remove_strings   new_fruits
#>   <chr>           <dbl>
#> 1 apple               1      pple
#> 2 banana              4        na
#> 3 ananas              2       anas

Answer 1

使用substr:

with(df, substr(fruits, remove_strings + 1, nchar(fruits)))
# [1] "pple" "na"   "anas"

或者，使用str_sub:

library(stringr)
df %>% 
  mutate(removed = str_sub(fruits, remove_strings + 1))

# A tibble: 3 x 3
  fruits remove_strings removed
  <chr>           <dbl> <chr>  
1 apple               1 pple   
2 banana              4 na     
3 ananas              2 anas