##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)
频率分类llll
于 2022-01-21 20:49:58 首次发布