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