bbs0805 发表于 2013-11-27 21:39
在指定变量的行中输入要赋值的变量名，然后执行以下程序：

local var "var1 var2"       //指定变量
foreach v of var `var' {
      tempvar v1 v2 freq no
      gen `v1'=substr(`v',1,1)
      gen `v2'=substr(`v',2,1)
      gen n`v'=2
      replace n`v'=1 if `v1'!=`v2'
      gen `no'=_n
      sort `v'
      bysort `v': gen `freq'=_N
      quietly sum `freq'
      local max=r(max)
      replace n`v'=0 if `freq'==`max' & n`v'!=1
      sort `no'
}
执行后的结果如下：
var1  var2 nvar1 nvar2
AB    AA     1       2
AB    AB     1       1
AA    BB     0       0
BB    CC      2       0
AA    BC     0       1
BB    BB     2       0
AB    CC     1       0
AA    BC     0       1
AA    BB     0       0
AB    CC     1       0
BB    BC     2       1

dxystata 发表于 2013-11-27 22:22
如何自动给新产生的变量label values呢？