r - Rでcbindを自動化したい

Question

私のコード:

新しいデータ フレームの列 1 を前のデータ フレームの列 2 で並べ替える

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

前のデータ フレームの列 1 ごとに新しいデータ フレームの列 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 (またはエラー) の前にすべてを貼り付けて cbind する関数を作成することです。この方法では、実行する前に常にコードを変更する必要はありません。

出力：

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