R语言中如何读取列数不一致的数据框

 

1、测试数据

 

 

2、读取数据

dir()
dat <- read.table("a.txt", fill = T, header = F)   ## 增加fill = T参数可以读取列数不一致的数据框
dat
dat[dat == ""] = NA                                ## 将缺失值用NA补充
dat

 

 

3、简单处理（求第3行的和）

dat
sum(dat[3,])                          
sum(dat[3,], na.rm = T)
sum(as.numeric(dat[3,]), na.rm = T)      ## 求第三行的和

 

 

4、求第1行的和

dat
sum(dat[1,])
grep("^[0-9]$", dat[1,])                    ## 返回第一行中数值项的索引值
sum(dat[1,][grep("^[0-9]$",dat[1,])])       ## 对数值项求和