R语言如何单行实现多个字符串对象到数值类型的批量转换

问题场景 #

现有3个存储数字内容的字符串变量：

a = "1"
b = "2"
c = "3"

逐行调用as.numeric()赋值的写法冗余度高：

a = as.numeric(a)
b = as.numeric(b)
c = as.numeric(c)

需要实现单行完成批量类型转换，达到类似a,b,c = as.numeric(a,b,c)的效果。

可行实现方案 #

• 基础R原生方案（无需安装任何包，最推荐）
  直接用mget()批量读取目标变量、lapply()统一做类型转换、list2env()把转换后的值写回对应变量名，单行即可完成：

  list2env(lapply(mget(c("a", "b", "c")), as.numeric), envir = .GlobalEnv)
  

  执行后会直接在当前全局环境更新a、b、c三个变量，类型自动从字符型转为数值型，不会出现赋值错位问题。如果偏好R原生管道写法，也可以写成：

  mget(c("a", "b", "c")) |> lapply(as.numeric) |> list2env(.GlobalEnv)
  

• 平行赋值写法（需第三方包支持）
  如果想要完全贴合多变量平行赋值的书写逻辑，可以使用zeallot包提供的多变量解包赋值运算符，写法和预期效果完全一致：

  # 首次使用需先安装：install.packages("zeallot")
  library(zeallot)
  c(a, b, c) %<-% lapply(list(a, b, c), as.numeric)
  

小提示 #

如果同类型变量数量较多，更推荐把这类变量统一存放在列表或数据框中管理，后续做批量类型转换、计算等操作时不需要直接修改全局环境变量，代码可维护性更高。

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