如何在R语言的数据框中去除数字末尾的%符号

下面提供两种在R中处理数据框末尾带%元素的方法，分别基于base R和tidyverse工具集：

方法一：Base R 实现 #

无需额外安装包，直接用基础函数处理：

# 遍历数据框的每一列，处理带%的元素
data[] <- lapply(data, function(col) {
  # 标记所有末尾带有%的元素
  has_percent <- grepl("%$", col)
  # 对符合条件的元素去除%并转换为数值型
  if (any(has_percent)) {
    col[has_percent] <- as.numeric(sub("%$", "", col[has_percent]))
  }
  # 返回处理后的列
  col
})

# 查看处理后的数据结构
str(data)

代码说明 #

• grepl("%$", col)：使用正则表达式%$匹配以%结尾的字符串，返回逻辑向量标记符合条件的元素
• sub("%$", "", col[has_percent])：将选中元素末尾的%替换为空字符串，再通过as.numeric()转换为数值类型
• data[] <- ...：确保处理后的数据仍保持数据框格式，而非列表

方法二：Tidyverse 实现 #

使用dplyr和stringr包简化操作，代码更简洁直观：

# 加载所需包（若未安装先运行 install.packages(c("dplyr", "stringr"))）
library(dplyr)
library(stringr)

# 筛选出存在%结尾元素的列，批量处理
data_cleaned <- data %>%
  mutate(across(
    where(~any(str_detect(., "%$"))),  # 筛选目标列
    ~as.numeric(str_remove(., "%$"))   # 去除%并转数值
  ))

# 查看处理结果
str(data_cleaned)

代码说明 #

• where(~any(str_detect(., "%$")))：动态筛选出至少有一个元素以%结尾的列
• str_remove(., "%$")：移除字符串末尾的%，as.numeric()转换为数值类型
• across()：对选中的列批量应用处理逻辑

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