如何读取R中的数据集，将n行设为1？

Question

我有这样的数据集：

11 85 1 1 2 1 1 1
1 1 1 1 1 1 1 1
1 1 75 -9. name
25 85 1 1 1 2 1 1
1 1 1 1 1 1 1 1
5 1 63 -9. name

我想每隔3行阅读一次，结果如下：

11 85 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 75 -9. name
25 85 1 1 1 2 1 1 1 1 1 1 1 1 1 1 5 1 63 -9. name

Answer 1

我们可以使用readLines

读取数据

lines <- readLines('file.txt')

创建一个分组变量grepl和paste这些行

lines1 <- unname(tapply(lines, c(0, head(cumsum(grepl("name", lines)),-1)),
                          paste, collapse=' '))
cat(lines1, sep="\n")
#11 85 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 75 -9. name
#25 85 1 1 1 2 1 1 1 1 1 1 1 1 1 1 5 1 63 -9. name