如何在R数据框中设置统一的小数点分隔符？

问题分析 #

你的数据框中部分列（a、b）使用逗号作为小数点，部分列（c）使用点，且所有列都是字符型。直接转数值时a、b列会变成NA，之前的gsub和lapply用法存在错误：

• 直接对数据框用gsub会将整个数据框扁平化为字符向量，无法保留数据框结构；
• lapply的函数中误用了df而非当前列x，导致处理逻辑错误，最终得到列表而非数据框。

正确解决方案 #

方法1：指定列手动处理

如果明确知道哪些列需要替换，可以直接针对这些列操作：

# 替换a、b列的逗号为小数点
df[c("a", "b")] <- lapply(df[c("a", "b")], function(x) gsub(",", ".", x))

# 将a、b、c列转换为数值型
df[c("a", "b", "c")] <- lapply(df[c("a", "b", "c")], as.numeric)

方法2：自动处理所有字符列

如果不确定哪些列存在逗号分隔符，可以写一个通用函数批量处理：

# 定义处理函数：替换逗号为点并转数值（非字符列保持原样）
convert_decimal_col <- function(col) {
  if (is.character(col)) {
    col <- gsub(",", ".", col)
    col <- as.numeric(col)
  }
  return(col)
}

# 应用函数到整个数据框，再转回数据框
df <- as.data.frame(lapply(df, convert_decimal_col))

验证结果 #

处理后的数据框将统一使用点作为小数点，且a、b、c列都会转为数值型，DateTime列保持原格式：

DateTime   a   b   c
1 2000-01-01 00:30:00 3.4 6.1 9.5
2 2000-01-01 00:45:00 3.5 6.8 7.4

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