R语言：如何将循环生成的多个整数绑定为指定格式的向量

你的问题核心是原来的函数只是打印了每组数字，没有把它们存储下来以便后续合并成一个向量。我们可以通过两种简单方式实现需求：修改原函数来收集结果，或者用向量化操作直接生成目标序列。

方法1：修改原循环函数，收集结果 #

直接在函数里初始化一个空向量，每次循环把x、y、z按顺序追加进去，最后返回这个向量即可：

fun_cols_change <- function(data) {
  result <- c()
  num_cols_b1 <- length(colnames(b1)) # 提前获取b1的列数，避免重复计算
  num_cols_b1_c1 <- ncol(merge(b1, c1)) # 提前获取merge(b1,c1)的列数
  for (i in seq_len(num_cols_b1)) {
    x <- i
    y <- num_cols_b1 + i
    z <- num_cols_b1_c1 + i
    result <- c(result, x, y, z)
  }
  return(result)
}

# 执行函数得到目标向量
target_vec <- fun_cols_change(e1)
target_vec
# 输出: [1]  1  5  9  2  6 10  3  7 11  4  8 12

方法2：用向量化操作替代循环（更高效） #

因为你的i是从1到ncol(b1)（也就是4），我们可以直接生成三个对应序列，然后用rbind按行组合后转成向量，完全不用循环：

# 生成三个对应序列
i_seq <- seq_len(ncol(b1)) # 1:4
x_seq <- i_seq
y_seq <- ncol(b1) + i_seq # 5:8
z_seq <- ncol(merge(b1, c1)) + i_seq # 9:12

# 按顺序拼接每组元素
target_vec <- c(rbind(x_seq, y_seq, z_seq))
target_vec
# 输出: [1]  1  5  9  2  6 10  3  7 11  4  8 12

为什么之前的方法没成功？ #

你之前尝试的lapply、do.call等方法无效，是因为原函数只是通过print输出内容，没有返回任何结构化的数据（比如列表或向量）。只有让函数返回可操作的数据集，这些方法才能发挥作用。上面的两种方式都先把需要的数值存储起来，再整合成你想要的向量格式。

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