想在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抛出错误时，我想创建一个函数，在foura（或任何错误）之前将所有内容粘贴并粘贴，这样我就不必在运行之前始终修改代码。

输出：

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