我想找到一种通过将cbind()许多单独的对象连接在一起来创建 data.frame 的方法。例如，如果 A、B、C 和 D 都是长度相等的向量，则可以创建data.frameABCD
ABCD <- cbind(A,B,C,D)
但是，当要组合的对象数量变大时，输入所有对象的名称会变得很乏味。此外，有没有办法调用cbind()对象名称的向量，例如
objs <- c("A", "B", "C", "D")
ABCD <- cbind(objs)
或在包含所有要组合的对象的列表上，例如
obj.list <- list(A,B,C,D)
ABCD <- cbind(obj.list)
目前，我能想到的唯一解决方法是使用paste(), cat(), write.table(), 并source()构造 的参数cbind()，将其编写为脚本并获取它。这似乎是一个非常讨厌的组合。此外，我已经研究过do.call()但似乎无法找到一种方法来完成我想要的。
该do.call功能在这里非常有用：
A <- 1:10
B <- 11:20
C <- 20:11
> do.call(cbind, list(A,B,C))
[,1] [,2] [,3]
[1,] 1 11 20
[2,] 2 12 19
[3,] 3 13 18
[4,] 4 14 17
[5,] 5 15 16
[6,] 6 16 15
[7,] 7 17 14
[8,] 8 18 13
[9,] 9 19 12
[10,] 10 20 11
首先你需要get你想要的对象并将它们存储在一起作为一个列表；如果您可以将它们的名称构造为字符串，则使用该get函数。在这里，我创建了两个变量，A并且B：
> A <- 1:4
> B <- rep(LETTERS[1:2],2)
然后我构造一个字符向量，其中包含它们的名称（存储为ns）和get这些变量使用lapply. 然后我将列表的名称设置为与其原始名称相同。
> (ns <- LETTERS[1:2])
[1] "A" "B"
> obj.list <- lapply(ns, get)
> names(obj.list) <- ns
> obj.list
$A
[1] 1 2 3 4
$B
[1] "A" "B" "A" "B"
然后你可以使用do.call; 第一个参数是你想要的函数，第二个是一个包含你想要传递给它的参数的列表。
> do.call(cbind, obj.list)
A B
[1,] "1" "A"
[2,] "2" "B"
[3,] "3" "A"
[4,] "4" "B"
但是，正如 aL3xa 正确指出的那样，这会生成一个矩阵，而不是一个数据框，如果变量是不同的类，这可能不是您想要的；这里 myA被强制转换为字符向量而不是数字向量。要从列表中创建数据框，只需调用data.frame它即可；然后保留变量的类。
> (AB <- data.frame(obj.list))
A B
1 1 A
2 2 B
3 3 A
4 4 B
> sapply(AB, class)
A B
"integer" "factor"
> str(AB)
'data.frame': 4 obs. of 2 variables:
$ A: int 1 2 3 4
$ B: Factor w/ 2 levels "A","B": 1 2 1 2
但是，您应该记住，cbind当仅应用于原子向量（double在本例中）时，它将返回一个原子向量（矩阵）。正如您在@prasad 和@Aaron 的回答中看到的，结果对象是一个矩阵。如果您指定其他原子向量（整数、双精度、逻辑、复数）以及字符向量，它们将被强制转换为字符。然后你有一个问题 - 你必须将它们转换为所需的类。所以，
如果 A、B、C 和 D 都是长度相等的向量，则可以创建 data.frame ABCD
ABCD <- data.frame(A, B, C, D)
也许你应该问“我怎样才能轻松地收集各种长度相等的向量并将它们放在一个data.frame”中？ cbind很棒，但有时这不是您想要的...
您可以使用 eapply 将环境中的所有向量放入列表中。
obj.list <- eapply(.GlobalEnv,function(x) if(is.vector(x)) x)
obj.list <- obj.list[names(obj.list) %in% LETTERS]