R 如何将多个整数绑定到向量中

我有以下xts对象：

> b1
                DJI   GSPC    IXIC    RUT
2007-01-03 12474.52 1416.6 2423.16 787.42

以及以下功能：

fun_cols_change <- function(data) {
  for (i in seq_along(colnames(b1))) {

    x <- c(i)
    y <- c(ncol(b1) + i)
    z <- c(ncol(merge(b1, c1)) + i)

    print(x)
    print(y)
    print(z)

  }
}

fun_cols_change <- function(data) {

  my_vec = c()

  for (i in seq_along(colnames(b1))) {

    x <- c(i)
    y <- c(ncol(b1) + i)
    z <- c(ncol(merge(b1, c1)) + i)

    print(x)
    print(y)
    print(z)

    my_vec <- c(my_vec, x, y, z)

  }
  return(my_vec)
}

fun_cols_change(e1) 

[1]  1  5  9  2  6 10  3  7 11  4  8 12

其结果是：

[1] 1
[1] 5
[1] 9
[1] 2
[1] 6
[1] 10
[1] 3
[1] 7
[1] 11
[1] 4
[1] 8
[1] 12

如何将这些整数绑定到一个向量中，该向量如下所示：

c(1,5,9,2,6,10,3,7,11,4,8,12)

---

我尝试了lappy、do.call、merge、cbind的不同组合，但都没有成功。

我相信有很多方法可以实现这一点。以下是在函数中构建向量的一种方法：

fun_cols_change <- function(data) {
  for (i in seq_along(colnames(b1))) {

    x <- c(i)
    y <- c(ncol(b1) + i)
    z <- c(ncol(merge(b1, c1)) + i)

    print(x)
    print(y)
    print(z)

  }
}

fun_cols_change <- function(data) {

  my_vec = c()

  for (i in seq_along(colnames(b1))) {

    x <- c(i)
    y <- c(ncol(b1) + i)
    z <- c(ncol(merge(b1, c1)) + i)

    print(x)
    print(y)
    print(z)

    my_vec <- c(my_vec, x, y, z)

  }
  return(my_vec)
}

fun_cols_change(e1) 

[1]  1  5  9  2  6 10  3  7 11  4  8 12

fun\u cols\u change
fun_cols_change <- function(data) {

  my_vec = c()

  for (i in seq_along(colnames(b1))) {

    x <- c(i)
    y <- c(ncol(b1) + i)
    z <- c(ncol(merge(b1, c1)) + i)

    print(x)
    print(y)
    print(z)

    my_vec <- c(my_vec, x, y, z)

  }
  return(my_vec)
}

fun_cols_change(e1) 

[1]  1  5  9  2  6 10  3  7 11  4  8 12