R语言混合类型嵌套列表中字符型数字转数值类型的实现方法

# 加载purrr（属于tidyverse系列包）
library(purrr)

# 示例输入
raw_list <- list(
  'a' = list('1', '2'),
  'b' = list(
    'c' = list('3', 'x'),
    'd' = c('4', 'z'),
    'e' = '5'
  )
)

# 自定义转换辅助函数
convert_if_num <- function(x) {
  # 仅对长度为1的字符元素做转换判断
  if (is.character(x) && length(x) == 1) {
    num_x <- as.numeric(x)
    # 转换后不为NA则返回数值，否则返回原字符
    if (!is.na(num_x)) return(num_x)
  }
  # 其余情况全部返回原内容
  return(x)
}

# 递归处理嵌套列表
cleaned_list <- modify_tree(raw_list, ~ convert_if_num(.x))

结果验证 #

运行以下代码可确认输出符合要求：

str(cleaned_list)
# List of 2
#  $ a:List of 2
#   ..$ : num 1
#   ..$ : num 2
#  $ b:List of 3
#   ..$ c:List of 2
#   .. ..$ : num 3
#   .. ..$ : chr "x"
#   ..$ d: chr [1:2] "4" "z"
#   ..$ e: num 5

方案说明 #

• 核心使用purrr的modify_tree()函数实现嵌套列表的递归遍历，无需手动编写多层循环适配不同嵌套深度
• 辅助函数的判断逻辑规避了两个常见问题：
  • 对长度>1的字符向量（如示例中的c('4', 'z')）直接保留原内容，符合R原子向量不能混合类型的规则，避免非数字元素被强制转为NA
  • 仅对转后无NA的单个字符元素做数值转换，非数字字符完全保留原样

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