0

我想将 excel 数据库导出到文件 txt，我总是使用： sink("name.txt") ，我的数据框， sink() 现在，我有一个包含 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>
4

1 回答 1

1

假设您有充分的理由使用sink()而不是write.table()，则需要增加宽度选项，该选项控制换行的位置：

options(width=900)
于 2013-11-28T19:16:41.400 回答