如何在R中批量将指定列/列范围从字符型转为数值型

问题说明 #

你需要将指定范围或单独列从字符型转为数值型，且避免误转Row这类不需要转换的列，完全不用逐个列编写as.numeric，用dplyr的across()函数就能高效实现。

原代码问题分析 #

你之前用mutate_if(c(First_Date:Last_Date), as.numeric)是错误的，因为First_Date和Last_Date是列名字符串，冒号:不能用于字符向量的范围选择，需要用dplyr提供的列选择语法来指定目标列。

解决方案1：转换指定范围的列（从2023-02-01到2023-10-01） #

针对你的数据集，目标列是第4列到最后一列，有几种灵活的选择方式：

方法A：通过列位置范围选择

library(dplyr)
library(readxl)

Final <- read_excel("C:/X/X/X- X/Desktop/Final.xlsx")

# 转换第4列到最后一列
Final <- Final %>%
  mutate(across(4:last_col(), as.numeric))

方法B：通过列名范围选择（兼容字符型列名）

如果想明确用列名范围，需要用all_of()将字符向量转为dplyr可识别的列选择器：

First_Date <- colnames(Final)[4]
Last_Date <- tail(colnames(Final),1)

Final <- Final %>%
  mutate(across(all_of(First_Date):all_of(Last_Date), as.numeric))

方法C：通过列名特征选择（适合日期列场景）

如果你的日期列都是YYYY-MM-DD格式，还可以用正则匹配精准选择：

Final <- Final %>%
  mutate(across(matches("^\\d{4}-\\d{2}-\\d{2}$"), as.numeric))

解决方案2：转换若干单独指定的列 #

如果需要转换非连续的单独列，直接列出目标列名即可（含特殊字符的列名用反引号包裹）：

# 示例：转换`2023-02-01`、`2023-05-01`、`2023-10-01`三列
Final <- Final %>%
  mutate(across(c(`2023-02-01`, `2023-05-01`, `2023-10-01`), as.numeric))

验证转换结果 #

执行转换后，可通过str(Final)查看列类型，确认目标列已转为数值型，而UniqueID、Xreg、Row仍保持字符型。

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