核心价值观 分组

##核心价值观（12组）
name.hxjzg<-paste0('g7_',c(2,3,5,6,8,9,11,12,14,15,17,18)) #12个选项在data中的名称
data.hxjzg<-as.matrix(data[,name.hxjzg]) #12个选项单独存为一个数据，便于后面的NA处理
dim(data.hxjzg)  #查看维度
data.omit.NA<-gtools::na.replace(data.hxjzg,0) #矩阵中的缺失值用0代替
sum.hxjzg<-rowSums(data.omit.NA)/5 #求每行的和，再除以最大备选个数5
table(sum.hxjzg) #查看分布情况
data$hxjzg01<-ifelse(sum.hxjzg>=0.5,1,0)#1表示选取了大于50%（即2.5个以上）的人，反之为0
table(data$hxjzg01)