在R中编写一个函数来删除列中包含某些字符的文本？

install.packages("dplyr")
library(dplyr)

remove_chars <- function(df, column_name, chars) {
  df %>%
    mutate(across(all_of(column_name), ~gsub(paste(chars, collapse = "|"), "", .)))
}

# 示例数据框
df <- data.frame(
  text_column = c("apple", "banana", "cherry", "date"),
  other_column = c(1, 2, 3, 4)
)

# 删除包含字符"a"和"b"的文本
result <- remove_chars(df, "text_column", c("a", "b"))

# 查看结果
print(result)

  text_column other_column
1     pple           1
2        nana           2
3     cherry           3
4       date           4