R语言：如何将含百分号与小数的字符列转换为数值列

针对你的数据框中混合了普通小数和带百分号字符串的列，我们可以通过自定义函数批量处理这类列，将其统一转换为数值类型，同时正确解析百分比值（除以100）。

自定义转换函数 #

首先编写一个通用函数，处理单个向量的转换逻辑：

convert_percent <- function(x) {
  # 统一转为字符格式，兼容原始混合数值/字符的情况
  x_char <- as.character(x)
  # 检测哪些元素包含百分号
  has_percent <- grepl("%", x_char)
  # 去掉百分号并转为数值
  num_val <- as.numeric(sub("%", "", x_char))
  # 对带百分号的值除以100，其余保持原数值
  ifelse(has_percent, num_val / 100, num_val)
}

方法1：Base R 批量处理指定列 #

直接通过lapply对目标列应用转换函数：

# 指定需要转换的列名
cols_to_convert <- c("x_1", "x_2", "x_3")
# 应用转换函数
df[cols_to_convert] <- lapply(df[cols_to_convert], convert_percent)

执行后查看结果：

> df
  Company    x_1 x_y_1    x_2 x_y_2    x_3 x_y_3
1     abc 0.0500 val_1 0.0350 val_1 0.8300 val_1
2     def 0.0060 val_2 0.1200 val_2 0.4000 val_2
3     ghi 0.1125 val_3 0.7000 val_3 0.0090 val_3

方法2：Tidyverse (dplyr) 实现 #

如果你习惯使用tidyverse生态，可以用dplyr::across批量处理列：

library(dplyr)

df <- df %>%
  mutate(across(c(x_1, x_2, x_3), ~ {
    x_char <- as.character(.x)
    has_percent <- grepl("%", x_char)
    num_val <- as.numeric(sub("%", "", x_char))
    ifelse(has_percent, num_val / 100, num_val)
  }))

关键逻辑说明 #

1. 先将列转为字符格式：避免原始列因混合数值和字符被识别为因子类型，导致转换错误；
2. 检测百分号：通过grepl精准定位需要特殊处理的元素；
3. 百分比值转换：去掉百分号后除以100，将百分比转为小数形式；
4. 批量处理：通过lapply或across实现多列的一次性转换，无需重复编写代码。

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