频率分类llll

##2.游戏频率编码)
table(data$D2b_6)
data$notuse <- as.numeric(data$D2b_6==0) 
data$rarely <- as.numeric(data$D2b_6==1)  #很少
data$occasional <- as.numeric(data$D2b_6>=2&data$D2b_6<=3)  #经常
data$usually <- as.numeric(data$D2b_6>=4&data$D2b_6<=5)  #非常频繁
table(data$usually)




table(data$interfre)
newdata$never <- as.numeric(newdata$interfre==1)       #从不
newdata$seldom <- as.numeric(newdata$interfre==2)      #很少
newdata$sometimes <- as.numeric(newdata$interfre==3)   #偶尔
newdata$often <- as.numeric(newdata$interfre==4)       #经常
newdata$frequently <- as.numeric(newdata$interfre==5)  #非常频繁
table(newdata$usually)
 

table(newdata$sometimes)

——————————————————————————————————————————————————————————————————————————————————————————
newdata<-newdata[newdata$a285<98&newdata$a285>0,]
sum(is.na(newdata$a285)) ##无缺失值
table(newdata$a285)

newdata$never=rep(NA,nrow(newdata))  
newdata$seldom=rep(NA,nrow(newdata)) 
newdata$sometimes=rep(NA,nrow(newdata)) 
newdata$often=rep(NA,nrow(newdata)) 
newdata$frequently=rep(NA,nrow(newdata)) 
for(i in 1:nrow(newdata)){
  if(newdata$a285[i]==1) newdata$never[i]=1
  else newdata$never[i]=0
  if(newdata$a285[i]==2) newdata$seldom[i]=1
  else newdata$seldom[i]=0
  if(newdata$a285[i]==3) newdata$sometimes[i]=1
  else newdata$sometimes[i]=0
  if(newdata$a285[i]==4) newdata$often[i]=1
  else newdata$often[i]=0
  if(newdata$a285[i]==5) newdata$frequently[i]=1
  else newdata$frequently[i]=0
}
 
table(newdata$sometimes)