R中多列中的grepl

Question

我正在尝试进行字符串搜索并在R中的多个列之间进行替换。我的代码：

# Get columns of interest
selected_columns <- c(368,370,372,374,376,378,380,382,384,386,388,390,392,394)

#Perform grepl across multiple columns
df[,selected_columns][grepl('apples',df[,selected_columns],ignore.case = TRUE)] <- 'category1'

但是，我得到了错误：

Error: undefined columns selected

提前感谢。

Answer 1

这里是一个选项

 df[, selected_columns] <- lapply(df[, selected_columns], function(x) replace(x, grepl('apples', x, ignore.case = TRUE), 'category1'))