如何在 R 中创建以“#”开头的特定行

Question

我正在尝试将 csv 读入 R。我想删除以“#”开头的行之前的行，并将该行作为我的标题。由于以“#”开头的行总是在变化，我不想使用skip =。

目前当我做 read.csv("df.csv"):

abc     x      x.1     x.2
def
ghi
#     vbn      crt     ykl
4     rte       77     drf

我想要什么：

#     vbn      crt     ykl
4     rte       77     drf

我试过了：

df <- df[min(grep("vbn",df$x)) :nrow(vnb),]

我知道第二列的标题永远不会改变，并且永远是“vbn”，我认为这会起作用。但这是我的结果。

abc     x      x.1    x.2
#     vbn      crt    ykl
4     rte       77    drf

我也试过了：

library(data.table)
fread("df.csv")

但这不起作用，产生的结果与我刚刚做 read.csv("df.csv") 时的结果相同

任何帮助将不胜感激。如果我需要提供更多信息，请告诉我。谢谢。

Answer 1

这是一个两步的解决方案：我们首先使用 readlines 读取文件并找到以 # 开头的行，然后使用 fread 跳过所有先前的行再次读取。

# x <- readLines("myfile.csv")
x <- readLines(textConnection(text))

h <- grep("^#",x) # find the header row

# df <- data.table::fread("myfile.csv",skip=h-1)
df <- data.table::fread(text,skip=h-1)

# or the base-R alternative (@A.Val's comment)
# read.table(text = text, skip = h-1, comment.char="", header = T)
# read.table("myfile.csv", skip = h-1, comment.char="", header = T)
df

# vbn crt ykl
1: 4 rte  77 drf

数据

text <- "abc     x      x.1     x.2
def
ghi
#     vbn      crt     ykl
4     rte       77     drf"