R语言中读取列数不一致的数据，并依据列数筛选数据

1、

dir()
dat <- read.table('test.txt',fill = T)   ## fill = T，读取列数不一致的行，用“”填充
dat

result <- data.frame()                  ## 创建空数据框
result

for (i in 1:nrow(dat)) {
  if ((sum(dat[i,] != "") == 4))      ## 提取列数为4的行
  {
    result <- rbind(result,dat[i,])
  }
}
result