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