R语言：将数据框中字符型分数、整数转换为数值型小数（保留结构）

我懂你要解决的问题啦——把数据框里那些以字符形式存着的分数（还有混在里面的字符型整数）转换成数值型的小数，还得保住原数据框的结构，不能变成列表对吧？你之前用apply(df,1, function(x) eval(parse(text=x)))的思路其实方向对，但按行处理很容易返回列表或者矩阵，破坏原结构，咱们调整下思路来解决：

首先，咱们先写一个能处理分数和整数的自定义转换函数，这个函数会自动判断输入是分数还是整数，然后转成数值：

convert_frac_to_num <- function(x) {
  # 先去掉字符串前后的空格，避免干扰
  x <- trimws(x)
  # 判断哪些是分数格式（包含"/"）
  is_frac <- grepl("/", x)
  # 分数就拆分分子分母计算，整数直接转数值
  num_vals <- ifelse(is_frac,
                     sapply(strsplit(x, "/"), function(parts) as.numeric(parts[1]) / as.numeric(parts[2])),
                     as.numeric(x))
  # 加个警告，提示无法转换的内容（比如非分数/整数的字符）
  na_count <- sum(is.na(num_vals))
  if (na_count > 0) {
    warning(paste("注意：有", na_count, "个值无法转换为数值，结果为NA：", paste(x[is.na(num_vals)], collapse = ", ")))
  }
  return(num_vals)
}

接下来，咱们用按列处理的方式来应用这个函数，因为数据框本质是列的集合，这样能完美保留原结构：

方法1：Base R 实现 #

先给你整个可复现的字符型数据框例子（和你的实际数据格式一致）：

# 构建字符型数据框（关键：stringsAsFactors=FALSE确保是字符型）
df <- data.frame(
  math = c("1/2", "3", "5/4", "7/3"),
  english = c("4", "2/5", "9", "1/6"),
  stringsAsFactors = FALSE
)

# 转换所有列，保持数据框结构
df_converted <- as.data.frame(lapply(df, convert_frac_to_num))

方法2：dplyr 实现（更简洁） #

如果你习惯用tidyverse工具链，代码会更清爽直观：

library(dplyr)

df_converted <- df %>% 
  mutate_all(convert_frac_to_num)

处理完成后，df_converted就是你要的数值型数据框，结构和原数据框完全一致，不会变成列表。

你之前用apply按行处理的问题在于，apply会先把数据框转成矩阵再处理，返回的结果是矩阵格式，直接赋值给df[]容易导致类型混乱；而lapply是针对每一列独立处理，再转成数据框，就完美解决了结构保留的问题。

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