R数据从结构化文件导入

Question

我有一个如下所示的 txt 文件:

year 1: ...year 2: ...........[data]1,2,3,43,4,53,5,6,7,8,9...

所以基本上它会在 [data] 行之前有 n 行，数据线下方是我要读入的内容。

我知道我可以手动删除 header ，但如果我能让 R 检测到关键字 [data] 并读入之后的内容，那将是理想的选择。

有什么建议吗？

此外，如您所见，我在每行上为实际数据设置了不同数量的变量。
有没有什么方法可以读取它以保留行分隔？

Answer 1

一种方法:

csvAfter <- function(file, marker="[data]", blank.lines.skip=FALSE) {
  lines <- readLines(file)
  i <- match(marker, lines)
  if (is.na(i)) {
    warning("Didn\'t find ", marker)
    return(NULL)
  }
  f <- textConnection(paste(lines[-(1:i)], collapse="\n"))
  on.exit(close(f), add=TRUE)
  return(read.csv(f, header=FALSE, fill=TRUE,
                  blank.lines.skip=blank.lines.skip))
}

例子:

r <- "year 1: ...
year 2: ...
....
....
[data]
1,2,3,4
3,4,5
3,5,6,7,8,9"
print(csvAfter(textConnection(r)))