如何高效实现R语言中重复28次的列值批量粘贴操作？

核心思路 #

无需手动重复28次分段赋值，利用R的向量化或列表操作，一步完成目标列的填充。

方案一：基础R向量化操作（最简洁高效） #

直接提取目标列的前58行，转置后展开为向量，直接赋值给Alpha_Diversity列：

# 提取第1-28列的前58行，转置后转为向量，完成赋值
new_alpha_DNA$Alpha_Diversity <- as.vector(t(new_alpha_DNA[1:58, 1:28]))

说明：转置(t())会把原数据框的列转为行，再通过as.vector()展开后，元素顺序正好是「第1列前58行 → 第2列前58行 → ... → 第28列前58行」，完全匹配你需要的分段填充逻辑。

方案二：适配paste需求的列表操作 #

如果你的场景中需要保留paste操作（比如强制转字符格式），可以用lapply遍历列后合并：

# 遍历每一列，对前58行执行paste操作，再合并为向量赋值
col_values <- lapply(new_alpha_DNA[1:58, 1:28], paste)
new_alpha_DNA$Alpha_Diversity <- unlist(col_values)

说明：lapply会对每一列的前58行单独处理，unlist将处理后的列表转为有序向量，顺序同样符合分段要求。

优势对比 #

这两种方案都避免了冗余的手动分段赋值，代码量大幅减少，同时利用R的内置向量/列表操作优化执行效率，数据量越大，优势越明显。

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