R语言多层结构遍历：循环与lapply实现变量type值统计

一、修正For循环代码 #

你的原循环存在三个问题：变量名拼写不一致（value vs val）、数据对象名错误（dict应为dictionary）、未实现最终的类型统计逻辑。修正后的代码如下：

# 初始化结果存储列表
result <- list()

# 遍历所有目标表名
for(table_name in project$name) {
  # 获取当前表中type列的唯一值
  type_unique <- unique(dictionary[[table_name]]$variables$type)
  
  # 判断并标记当前表的type类型
  if (length(type_unique) == 1) {
    result[[table_name]] <- ifelse(type_unique, "仅为TRUE", "仅为FALSE")
  } else {
    result[[table_name]] <- "二者混合"
  }
  
  # 打印当前表的统计结果
  print(result[[table_name]])
}

# 查看所有表的最终统计结果
result

二、用lapply函数实现 #

lapply是R中处理列表的高效函数，无需手动管理循环索引，实现方式有两种：

方式1：直接遍历dictionary列表（推荐） #

如果dictionary的每个元素对应一个目标表，直接遍历更简洁：

result_lapply <- lapply(dictionary, function(table_data) {
  type_unique <- unique(table_data$variables$type)
  if (length(type_unique) == 1) {
    ifelse(type_unique, "仅为TRUE", "仅为FALSE")
  } else {
    "二者混合"
  }
})

# 查看统计结果
result_lapply

方式2：基于project$name指定表名遍历 #

如果仅需要处理project$name中的表名，可按如下方式实现：

result_lapply <- lapply(project$name, function(table_name) {
  type_unique <- unique(dictionary[[table_name]]$variables$type)
  if (length(type_unique) == 1) {
    ifelse(type_unique, "仅为TRUE", "仅为FALSE")
  } else {
    "二者混合"
  }
})

# 为结果列表添加表名作为名称
names(result_lapply) <- project$name

# 查看统计结果
result_lapply

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