可以编程实现，但这样做的意义何在？

想看其他人的一些个体特征，对某个人主观感受的影响，因为比较总是选择与自己相似的人进行的，比如：年龄差不多的，或者受教育程度差不多的人？

你好，这个问题我觉得我可以试试看，可否将数据（或者部分数据也可以）发给我？我对照着数据做个程序试试。

示意数据见附件。相应程序如下：

gen ave=.
lab var ave "average income (+/-5yrs) within community"
   
foreach c in 1 2 3 {
    qui count if community==`c'
    local nobs`c'=r(N)
   
    forval i=1/`nobs`c'' {
        qui sum age if person==`i' & community==`c'
        local age`i'`c'=r(mean)
        qui sum income if person==`i' & community==`c'
        local income`i'`c'=r(mean)   
        }     

    forval i=1/`nobs`c'' {
        local sum=0
        local count=0
        forval j=1/`nobs`c'' {
            if (`age`j'`c''>=`age`i'`c''-5) & (`age`j'`c''<=`age`i'`c''+5) & (`j'!=`i') {
                local sum=`sum'+`income`j'`c''
                local count=`count'+1
                }
            else {
                local sum=`sum'
                local count=`count'
                 }
                }
          replace ave=`sum'/`count' if person==`i' & community==`c'
          }   
}

根据楼上的示意数据我也编了个程序，希望能对楼主有帮助：

gen ls = .
gen ave = .

forvalues i = 1/34{
  drop ls
  gen ls = .


  forvalues j = 1/34{
    local comm = community[`i']
    if community[`j'] == `comm' & abs(age[`j']-age[`i'])<=5 & `j' != `i'{
          qui kgjc ls 1
          local kg = r(ls)
          replace ls = income[`j'] in `kg'
        }
  }
  qui sum ls
  local m = r(mean)
  dis `m'
  replace ave = `m' in `i'
}