试图缩短组合多个数据帧的代码

Question

我有一个名为q1,q2,q3,q4,q5,...,q10的数据框。我想将每个数据帧的相似行组合成一个新的数据帧。例如，组合第一行：

beta1 <- rbind(q1[1,],q2[1,],q2[1,],q3[1,],
     q4[1,],q5[1,],q6[1,],q7[1,],q8[1,],q9[1,],q10[1,])

有更简单的方法吗？ 提前谢谢。

Answer 1

这应该可以解决问题：

do.call(rbind, lapply(mget(grep("^q\\d{1,2}$", ls(), value = TRUE)), "[", 1))