#计算全部变量（共32个）的分类计数和构成比

aa<-read.csv('C:\\Users\\tangy\\Desktop\\newdata全部编码.csv')

bbb<-

function(x){

nn<-names(aa)[x]

table9<-table(aa[,x])

prop9<-round(prop.table(table9),3)

print(nn);print(table9);print(prop9)

}

for(i in 2:33){

bbb(i)

}

---

#计算每个变量缺失的数目

ccc<-function(y)

{

v<-sum(is.na(aa[,y]))

nn<-names(aa)[y]

print(nn);print(v)

}

for(i in 1:33)

{

ccc(i)

}