r - 将数据框中的字符向量与另一个字符向量匹配并修剪字符

Question

这是一个数据框和一个向量。

df1  <-  tibble(var1 = c("abcd", "efgh", "ijkl", "qrst"))

vec <-  c("abcd", "mnop", "ijkl")

现在，对于 var1 中与 vec 中的值匹配的所有值，只保留 var1 中的前 3 个字符，这样所需的解决方案是:

df2 <- tibble(var1 = c("abc", "efgh", "ijk", "qrst"))

因为“abcd”匹配，我们只保留 3 个字符，即 df2 中的“abc”，但 vec 中不存在“efgh”，所以我们保持原样，即 df2 中的“efgh”。

如何使用 dplyr 和/或 stringr 来完成此操作？

Answer 1

您可以只使用 %in% 来检查字符串是否在向量中，并使用 substr 来修剪向量:

df1 %>% 
    mutate(var1 = ifelse(var1 %in% vec, substr(var1, 1, 3), var1))

# A tibble: 4 x 1
#  var1 
#  <chr>
#1 abc  
#2 efgh 
#3 ijk  
#4 qrst