在 for 循环中失败 gsub

Question

我需要从向量中删除一系列子字符串，这些子字符串可能会或可能不会出现多次。要删除的子字符串少于字符串的数量。

我想使用循环，但 gsub 似乎在 for 循环中失败。

drop <- c("red ","blue ","yellow ")
auto <- data.frame(entry=c("red car","red yellow car","car"))

for(i in 1:length(drop)){
  auto$entry_simple <- gsub(drop[i],"",auto$entry)
}

循环仅适用于最后一个条目如何？ 这是结果

           entry entry_simple
1        red car      red car
2 red yellow car      red car
3            car          car

代替

           entry entry_simple
1        red car          car
2 red yellow car          car
3            car          car

Answer 1

我们可以使用矢量化的str_remove

library(dplyr)
library(stringr)
auto %>% 
   mutate(entry_simple = str_remove(entry, drop))
#       entry entry_simple
#1    red car          car
#2   blue car          car
#3 yellow car          car

---

如果我们查看循环，gsub 是在整个“entry”列上完成的，并且输出分配给“entry_simple”，即在每次迭代中，“entry_simple”正在发生变化

lapply(drop, function(x) gsub(x, "", auto$entry))
#[[1]]
#[1] "car"        "blue car"   "yellow car"

#[[2]]
#[1] "red car"    "car"        "yellow car"

#[[3]]
#[1] "red car"  "blue car" "car"   

留下最后一个即'red car' 'blue car', 'car'作为最终输出

似乎 OP 想要替换每个相应的行。在这种情况下，只需在 gsub 的“x”值和 <- 的 lhs 上使用索引

auto$entry_simple <- auto$entry
for(i in seq_along(drop)) auto$entry_simple[i] <- gsub(drop[i], "", auto$entry[i])
auto
#       entry entry_simple
#1    red car          car
#2   blue car          car
#3 yellow car          car

更新

基于 OP 的更新帖子

auto$entry_simple <- auto$entry
for(i in 1:length(drop)) auto$entry_simple <- gsub(drop[i],"",auto$entry_simple)

Answer 2

这行得通。这一切都归结为“seq_along”吗？

for(i in seq_along(drop)) auto$entry <- gsub(drop[i], "",auto$entry)