R语言入门问题：如何遍历数据框使用utf8toInt替换指定字符编码

嘿，我来帮你搞定这个需求！你想通过utf8toInt和intToUtf8工具，把数据框里所有编码为101（对应小写'e'）的字符替换成编码69（大写'E'），其实不用手动逐个遍历元素，用R的函数式工具就能轻松实现，我给你一步步演示：

第一步：编写处理单个字符串的自定义函数 #

先写一个小函数，专门用来处理单个字符串的编码替换：

swap_e_to_E <- function(str) {
  # 将字符串转换为UTF-8编码的整数向量
  int_codes <- utf8toInt(str)
  # 把编码101替换为69
  int_codes[int_codes == 101] <- 69
  # 将整数向量转回字符串
  intToUtf8(int_codes)
}

第二步：将函数应用到整个数据框 #

用apply函数把上面的自定义函数批量应用到数据框的每一个元素，最后再转回数据框格式：

# 示例数据框（你提供的代码）
a <- c("red", "blue", "yellow", "black")
b <- c("blue", "yellow", "red", "pink")
c <- c("white", "black", "red", "blue")
df = data.frame(a,b,c, stringsAsFactors = FALSE)

# 应用替换函数并生成新数据框
df_modified <- as.data.frame(apply(df, c(1, 2), swap_e_to_E), stringsAsFactors = FALSE)

# 查看修改后的结果
df_modified

执行后你会得到这样的输出：

a      b      c
1    rEd    bluE  whitE
2   bluE  yEllow  black
3 yEllow    rEd    rEd
4  black    pink   bluE

补充说明 #

如果你只是想替换字符'e'为'E'，其实也可以用更简洁的gsub函数直接实现：

df_modified_gsub <- as.data.frame(lapply(df, function(col) gsub("e", "E", col, fixed = TRUE)), stringsAsFactors = FALSE)

不过既然你明确要求用utf8toInt来操作，前面的方法完全符合你的需求。如果数据框里有非字符类型的列，记得先把它们转换成字符类型再处理哦！

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