如何在R语言中将向量元素按固定数量分组并拼接？

不需要用for循环，R里用向量化操作就能简洁实现需求，以下是两种高效的写法：

方法一：split + sapply #

先把向量按每4个元素分组，再对每组进行字符串拼接：

a <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
# 生成分组标记，将向量分为5组，每组4个元素
groups <- split(a, gl(length(a)/4, 4))
# 每组内用换行符(\n)拼接成字符串
result <- sapply(groups, function(x) paste(x, collapse = "\n"))

方法二：tapply 一步到位 #

直接用tapply完成分组和拼接：

a <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
result <- tapply(a, gl(length(a)/4, 4), function(x) paste(x, collapse = "\n"))

验证结果 #

运行上述代码后，result的输出就是你需要的格式：

[1] "1\n2\n3\n4"       "5\n6\n7\n8"       "9\n10\n11\n12"    "13\n14\n15\n16"   "17\n18\n19\n20"

补充：不推荐的for循环写法（仅作参考） #

虽然可以用for循环实现，但R的向量化操作更高效简洁，因此不推荐：

a <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
n_groups <- length(a) %/% 4
result <- character(n_groups)
for (i in 1:n_groups) {
  start <- (i-1)*4 + 1
  end <- i*4
  result[i] <- paste(a[start:end], collapse = "\n")
}

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