如何将 str_sub 与管道一起使用？ [复制]

Question

我有一个数据：

df_1 <- data.frame(
  cpf = c('37576865879', '02177190948')
)

我试试：

library(tidyverse)

str_sub(string = df_1$cpf, start = 4, end = 6) <- 'xxx'

#          cpf
#1 375xxx65879
#2 021xxx90948

结果还可以。但是：

df_1 <- data.frame(
  cpf = c('37576865879', '02177190948')
)

df_1 %>% 
  mutate(.data = ., var = str_sub(string = cpf, start = 4, end = 6) <- "xxx")

#          cpf var
#1 37576865879 xxx
#2 02177190948 xxx

只有xs 出现在var 中。如何调整最后一个函数以获得完整的向量？

#          cpf         var
#1 37576865879 375xxx65879
#2 02177190948 021xxx90948

Answer 1

要在管道中使用它，您必须使用str_sub<- 方法，它可以用作：

library(dplyr)
library(stringr)

df_1 %>% mutate(var = `str_sub<-`(cpf, 4, 6, value = 'xxx'))

#         cpf         var
#1 37576865879 375xxx65879
#2 02177190948 021xxx90948