1

データフレームのリストがあります:

dfl <- list(
  df1 = data.frame(a=1:3,b=letters[5:7],c=1:3,d=letters[1:3]),
  df2 = data.frame(d=1:4,b=1:4,e=1:4,f=letters[1:4]),
  df3 = data.frame(g=letters[2:6],b=1:5,h=1:5,i=letters[1:5]),
  df4 = data.frame(j=c(1.4,2.4,3.4588),b=letters[1:3],k=1:3,l=letters[1:3],t=7:9),  
  df5 = data.frame(m=1:4,b=1:4,n=1:4,o=letters[1:4]),    
  df6 = data.frame(p=1:5,b=1:5,q=1:5,r=letters[1:5],s=4:8)
)

各データ フレームには、異なる数の列、異なる列名、および異なるデータ型があります。XLS ファイル (Excel) にデータを 1 つのシートに書き込む方法はありますか?空の行またはデータ フレーム名で区切られている可能性があります。

現在、私は package を使用していますWriteXLSが、ここではデータ フレームを個別のシートにのみ書き込むことができます。

library(WriteXLS)
WriteXLS("dfl",ExcelFileName="MyExcel.xls")
4

2 に答える 2

2

別の方法は、XLConnectパッケージを使用することです。必要なものを正確に取得するためにこれをいじることができると確信していますが、それはほとんどの方法です。

library(XLConnect)
wb <- loadWorkbook("sampleFile.xlsx", create = T) 
createSheet(wb, name = 'Sheet1')                  
dflNrow <- 0                                      
for(df in dfl){
  dflNrow <- dflNrow + nrow(df)  
  XLConnect::writeWorksheet(wb, df, sheet = 'Sheet1', startRow = dflNrow)
}
saveWorkbook(wb)

このスクリプトを使用すると、データ フレームはスペースまたは「名前」で区切られませんが、ヘッダー行はグレーで表示されます。

于 2013-10-23T17:18:51.070 に答える
2

私はこのようなことを試してみます:

dflc <- lapply(dfl, function(x) {
  as.data.frame(sapply(x, function(y) {as.character(y)}),stringsAsFactors=FALSE)
  })

out <- rbind.fill.matrix(lapply(names(dflc),
        function(x) {
          rbind(
            c(x,rep('',ncol(dflc[[x]])-1)),
            names(dflc[[x]]),
            setNames(dflc[[x]],NULL),
            '')
        }
      ))

out[is.na(out)] <- ''
out <- as.data.frame(out)

out

outオブジェクトは次のようになります。

        1 2 3 4 5
1     df1        
2       a b c d  
3       1 e 1 a  
4       2 f 2 b  
5       3 g 3 c  
6                
7     df2        
8       d b e f  
9       1 1 1 a  
10      2 2 2 b  
11      3 3 3 c  
12      4 4 4 d  
13               
14    df3        
15      g b h i  
16      b 1 1 a  
17      c 2 2 b  
18      d 3 3 c  
19      e 4 4 d  
20      f 5 5 e  
21               
22    df4        
23      j b k l t
24    1.4 a 1 a 7
25    2.4 b 2 b 8
26 3.4588 c 3 c 9
27               
28    df5        
29      m b n o  
30      1 1 1 a  
31      2 2 2 b  
32      3 3 3 c  
33      4 4 4 d  
34               
35    df6        
36      p b q r s
37      1 1 1 a 4
38      2 2 2 b 5
39      3 3 3 c 6
40      4 4 4 d 7
41      5 5 5 e 8
于 2013-10-23T08:58:25.633 に答える