r - 想在 R 中自动化 cbind

Question

我的代码：

按前一个数据帧的第二列排序新数据帧的第一列

matchOrder<- function(x,y){
    y[match(x[,2], y[,1]),];
}

按前一个数据帧的第一列排序新数据帧的第一列

matchOrder1<- function(x,y){
    y[match(x[,1], y[,1]),];
}

根据需要创建单个数据框并绑定它们

onea<- one[order(one[,2]),];
twoa<- matchOrder(onea,two);
threea<- matchOrder(twoa,three);
foura<- matchOrder(threea,four);
##error
fivea<- matchOrder1(foura,five);
##error
finaltable<- cbind(onea, twoa, threea, foura, fivea);
finaltable;

我想要做的是当foura抛出错误时，我想做一个函数来粘贴和cbind在foura之前的所有内容（或任何错误），这样我不必总是在运行之前修改代码。

输出：

finaltable<- cbind(onea, twoa, threea);