R：水平追加表格

Question

我有兩個'數據框'，我想追加到一個單一的CSV文件。我知道可以使用寫入。表來追加它們，但write.table將它們垂直追加。有沒有一種方法可以水平追加它們？

編輯：兩個數據集是7x2（這是常數）和Sx7其中S是可變的。 S可能非常大，可能高達1000或更多。

編輯2：我想讓它們按照Sx7先排列，然後是一列空格，然後是7x2。我不希望它們被換位，因爲S可能非常大，我希望能夠在LibreOffice/Excel中讀取它們。

Answer 1

這絕對是一個快速入侵。

您使用cbind的問題是數據幀的大小不一樣。解決這個問題的一個快速方法是使它們的大小相同，用一些東西填充空格，在我的情況下是NAs。然後，您可以將所有數據框綁定並將其作爲一個大數據框輸出到文件中。這將使它們的外觀水平添加，當然還有所有冗餘填充。

#create a list of the dataframes 
dfList<-list(df1, df2) 
#find the max rows 
maxRows<-max(sapply(dfList, nrow)) 

#define a function that makes all dataframes "cbind-able" 

equalRows<-function(df, numRows){ 
    numColumns<-ncol(df) 
    targetRows<-numRows-nrow(df) 
    toAppend<-as.data.frame(matrix(rep(NA, numColumns*targetRows), nrow=targetRows, ncol=numColumns)) 
    colnames(toAppend)<-colnames(df) 
    rbind(df, toAppend) 
} 

#create our new cbind-able dataframes 
newdfList<-lapply(dfList, function(df){ 

      if(nrow(df)==maxRows){ 
       df 
      }else{ 
       equalRows(df, maxRows) 
      } 
     }) 

#put them all in one for output 
dfResult<-newdfList[[1]] 
for(i in 2:length(newdfList)){ 
    dfResult<-cbind(dfResult, newdfList[[i]]) 
}