R中多列中的grepl

Question

I'm trying to do a string search and replace across multiple columns in R. My code:

# 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'

However, I'm getting the error:

Error: undefined columns selected

Thanks in advance.

Answer 1

grep/grepl works on vectors/matrix and not on data.frame/list. According to the data.frame/list. According to the ?grep`

x - a character vector where matches are sought, or an object which can be coerced by as.character to a character vector.

We can loop over the columns ( lapply ) and replace the values based on the match

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

---

Or with dplyr

library(dplyr)
library(stringr)
df %>%
     mutate_at(selected_columns, ~ replace(., str_detect(., 'apples'), 'category1'))

Answer 2

Assuming you want to partially match a cell and replace it, you could use rapply() and replace cell contents that have "apples" with "category1 " using gsub() :

df[selected_columns] <- rapply(df[selected_columns], function(x) gsub("apples", "category1", x), how = "replace")

Just keep in mind the difference between grepl() / gsub() (with and without boundaries in your regex), and %in% / match() when searching for strings.