如何在R语言中一次性创建命名行并赋值，合并数据框？

当然可以，而且完全不用写循环，用R的向量化操作或者tidyverse工具就能高效完成需求，一次性搞定行的创建、命名和赋值。

核心思路 #

你的需求是从result列表中，对每个aptname对应的Domain和Tactics转置后求和，最终生成以aptname为行名的newdf数据框。以下是两种更优的实现方式：

方法一：Base R 原生实现 #

利用sapply批量处理列表元素，一次性完成计算、合并和行名设置：

# 批量计算并转置，直接生成目标数据框
newdf <- t(sapply(names(result), function(aptname) {
  t(result[[aptname]][["Domain"]]) + t(result[[aptname]][["Tactics"]])
}))

# 设置行名为aptname
rownames(newdf) <- names(result)

方法二：Tidyverse 工具链实现 #

如果习惯用tidyverse风格的代码，用purrr::map_dfr可以更流畅地完成：

library(tidyverse)

newdf <- map_dfr(names(result), function(aptname) {
  # 提取数据转置后转成 tibble，再求和
  domain <- result[[aptname]][["Domain"]] %>% t() %>% as_tibble()
  tactics <- result[[aptname]][["Tactics"]] %>% t() %>% as_tibble()
  domain + tactics
}, .id = "aptname") %>%  # 保留aptname作为列
  column_to_rownames("aptname")  # 将aptname列转为行名

为什么不用循环？ #

R中的循环效率较低，尤其是当result包含大量元素时，上述向量化/批量处理的方式执行速度更快，代码也更简洁易读，同时完全满足你“一次性完成行创建、命名与赋值”的需求。

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