从数据框中的多个列替换特定字符串

Question

我想用"aa"

替换下面数据框中的字符串"aaa"和""

data = data.frame(attr = c(1:4), type1=c('aa','b'), type2=c("aaa", "aa"))

data <- apply(data,2,function(x) gsub("aa",'',x))

gsub需要每个aa而gsub(c("aa", "aaa"),'',x)不起作用

Answer 1

data <- apply(data,2,function(x) gsub("aa|aaa","",x))
     attr type1 type2
[1,] "1"  ""    ""   
[2,] "2"  "b"   ""   
[3,] "3"  ""    ""   
[4,] "4"  "b"   ""   

您也可以使用

data <- apply(data,2,function(x) gsub("a{2,3}","",x))

Answer 2

library(dplyr)
data2 = data %>%
  mutate(type1 = recode(type1, "aa" = "", "aaa" = ""),
         type2 = recode(type2, "aa" = "", "aaa" = ""))

attr type1 type2
1    1            
2    2     b      
3    3            
4    4     b      

如果你想概括一下，请从@denis回答：

data2 = data %>%
  mutate_all(function(x) gsub("aa|aaa","",x))

Answer 3

您只需设置选项fixed = FALSE并删除所有内容即可。

data <- as.data.frame(apply(data, 2, function(x) gsub("a",'', x, fixed = FALSE)))
data
#   attr type1 type2
# 1    1            
# 2    2     b      
# 3    3            
# 4    4     b  

Answer 4

 dat[2:3] <- lapply(dat[2:3], gsub, pattern = '[a]{2,}', replacement = '')

结果：

> dat
  attr type1 type2
1    1            
2    2     b      
3    3            
4    4     b      

使用的数据：

dat <- data.frame(attr = c(1:4), type1 = c('aa','b'), type2 = c("aaa", "aa"))