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