R语言如何批量删除数据集各列中的多余双引号？

方法1：基础R实现（无需额外安装依赖包） #

• 全列统一处理：如果需要对所有列执行替换，直接用lapply遍历整个数据框即可：

student_data <- data.frame(
  lapply(student_data, function(col) gsub('&quot;', '', col)),
  stringsAsFactors = FALSE
)

• 仅处理字符列（更安全，避免修改数值、日期类列的原始类型）：

# 先筛选出所有字符类型的列
char_columns <- sapply(student_data, is.character)
# 仅对字符列执行替换操作
student_data[char_columns] <- lapply(student_data[char_columns], function(col) gsub('&quot;', '', col))

方法2：tidyverse生态实现（代码更简洁易读） #

适合习惯dplyr语法的场景：

library(dplyr)
library(stringr)

# 仅处理字符列
student_data <- student_data %>%
  mutate(across(where(is.character), ~ str_remove_all(.x, '&quot;')))

# 如果需要对所有列执行替换，把where(is.character)替换为everything()即可
student_data <- student_data %>%
  mutate(across(everything(), ~ str_remove_all(.x, '&quot;')))

优化建议 #

如果该问题是导入数据时产生的，可以在导入步骤就规避：比如读取CSV文件时检查quote参数配置，或者读取时直接对所有列做一次替换，无需后续单独处理。

内容的提问来源于stack exchange，提问作者cx2151