我有几个CSV文件由空气传感器(TSI Bluesky和AirAsure)记录下来.该设备将数据记录到其SD卡中.与许多机器记录的文件一样，前59行是以#开头的注释，用于记录序列号等基本信息.这些音符很容易通过添加skip=59跳过.但是，通过打破记录，这些注释可能会出现在CSV文件的中间.同时，列名将再次重复.下面我有一个例子.
| #note | ||
| #note | ||
| #note | ||
| #note | ||
| col1 | col2 | col3 |
| unit1 | unit2 | unit3 |
| 1 | 2 | 3 |
| 1 | 2 | 3 |
| 1 | 2 | 3 |
| #note | ||
| #note | ||
| #note | ||
| #note | ||
| col1 | col2 | col3 |
| unit1 | unit2 | unit3 |
| 1 | 2 | 3 |
| 1 | 2 | 3 |
| 1 | 2 | 3 |
我如何跳过所有的note和unit，而只保留一个列名和所有数字？
此代码从文本中读取数据，因此如果您从某个文件夹加载CSV文件，请判断分隔符是否为"\t"或""
comment.char参数筛选所有注释:#note
text <-
"
#note
#note
#note
#note
col1 col2 col3
unit1 unit2 unit3
1 2 3
1 2 3
1 2 3
#note
#note
#note
#note
col1 col2 col3
unit1 unit2 unit3
1 2 3
1 2 3
1 2 3
"
library(dplyr)
df <- read.csv(text = text, comment.char = "#", sep = "\t")
filter(df, !col1 %in% c('col1', 'unit1'))
输出:
col1 col2 col3 1 1 2 3 2 1 2 3 3 1 2 3 4 1 2 3 5 1 2 3 6 1 2 3