Question

如何使用R基函数将不同类变量的列表编写到文本文件中？

write和cat无法处理data.frames，write.table仅适用于表格。他们都没有正确处理列表。样本清单：

> test
[[1]]
[1] "a" "b" "c"

[[2]]
[1] "d" "e" "f"

[[3]]
[1] 1 2 3

[[4]]
  X.g. X.h. X.i.
1    g    h    i

[[5]]
[[5]][[1]]
[1] "k"

[[5]][[2]]
[1] "l"

[[5]][[3]]
[1] "m" "n"


[[6]]
[1] "2015-03-23 11:15:00 CET"

它由character，numeric，POSIXlt时间变量和另一个列表组成。

期望的结果 - 像这样的文本文件：

a b c
d e f
1 2 3
X.g.    X.h.    X.i.
1   g   h   i
k
l
m n
2015-03-23 11:15:00

Answer 1

我创建了一个脚本来按元素类处理列表并逐个打印到文件中：

write_list <- function (outlist, outfile,append=FALSE) {
    for (i in 1:length(outlist)) {
      if (i==1) app=append else app=TRUE
      if (is.character(outlist[[i]]) || is.numeric(outlist[[i]])) write(paste(outlist[[i]],collapse = " "),outfile, append=app)
      else 
        if (is.data.frame(outlist[[i]])) write.table(outlist[[i]],outfile, append=app, quote=FALSE, sep="\t")
        else 
          if (is.POSIXlt(outlist[[i]])) write (as.character(outlist[[i]]),outfile, append=app)
          else
            if  (is.list(outlist[[i]])) write_list(outlist = outlist[[i]], outfile, append = TRUE)

    }
}

is.POSIXlt是一个自定义函数：

is.POSIXlt <- function (ts) {
isPOS=c("POSIXlt", "POSIXt")

identical (class(ts),isPOS)
}

最终的if语句是递归调用 - 列表列表＆＃39;情况。它将自己称为内部列表并按元素处理。

将包含不同类的元素的列表写入文本文件

1 个答案: