2013-11-28 22 views
0

我想一個excel數據庫導出到一個TXT文件的數據幀的所有列,我總是用: 片(「name.txt」), 我的數據幀, 片() 現在,我有一個包含18個變量的數據庫,當我將它導出到一個txt文件時,出現了前12個變量,並且變量13至18出現在另一個數據集之下。匯的功能不出口我

用也以下代碼:

function (..., Modes = list(), Names = NULL) { 
    sdata <- list(...) 
    snames <- as.character(substitute(list(...))[-1L]) 
    if (is.null(sdata)) { 
     if (is.null(Names)) { 
      odata <- vector("list", length = max(1, length(Modes))) 
     } 
     else { 
      if ((length(Names) != length(Modes)) && length(Modes)) { 
       warning("modes argument ignored") 
       Modes <- list() 
      } 
      odata <- vector("list", length = length(Names)) 
      names(odata) <- Names 
     } 
     ncols <- rep.int(1, length(odata)) 
     coltypes <- rep.int(1, length(odata)) 
    } 
    else { 
     ncols <- de.ncols(sdata) 
     coltypes <- ncols[, 2L] 
     ncols <- ncols[, 1] 
     odata <- de.setup(sdata, snames, ncols) 
     if (length(Names)) 
      if (length(Names) != length(odata)) 
       warning("'names' argument ignored") 
      else names(odata) <- Names 
     if (length(Modes)) 
      if (length(Modes) != length(odata)) { 
       warning("'modes' argument ignored") 
       Modes <- list() 
      } 
    } 
    rdata <- dataentry(odata, as.list(Modes)) 
    if (any(coltypes != 1L)) { 
     if (length(rdata) == sum(ncols)) 
      rdata <- de.restore(rdata, ncols, coltypes, snames, 
       sdata) 
     else warning("could not restore variables properly") 
    } 
    return(rdata) 
} 
<bytecode: 0x07a0ad74> 
<environment: namespace:utils> 
+0

在[r]中進行選擇時,只有一個在這個下面的貼子的副本:http://stackoverflow.com/questions/20272137/r-sink-split-table-in-some-lines –

回答

1

假設你有一個很好的理由使用sink()而不是write.table(),你需要增加寬度選項,該選項控制在何處行已換:

options(width=900)