如何估計 peers (同侪) 之效果？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

在财务中，有时我们会分析 peers  所带来之效果，但要如何认定 peers 呢？边有一个例子与大家方享，简单资料 (可由此取得 https://bbs.pinggu.org/forum.php? ... &page=1#pid54514084)

1. * Example generated by -dataex-. To install: ssc install dataex
   
2. clear
   
3. input str6 stkcd str10 reptdt str32 name str62 university str19 investor1 str36 graduate1
   
4. "002255" "2008-06-25" "傅东"    ""                                      "陈孝勇" "哈尔滨工业大学"
   
5. "002255" "2008-06-25" "伊恩江" ""                                      "陈孝勇" "哈尔滨工业大学"
   
6. "002255" "2008-06-25" "葛卫东" "扬州大学"                          "陈孝勇" "哈尔滨工业大学"
   
7. "002255" "2008-06-25" "钱飞舟" "江苏工学院"                       "陈孝勇" "哈尔滨工业大学"
   
8. "002255" "2008-06-25" "陈华"    ""                                      "陈孝勇" "哈尔滨工业大学"
   
9. "002255" "2008-06-25" "张卫兵" "镇江船舶学院"                    "陈孝勇" "哈尔滨工业大学"
   
10. "002255" "2008-06-25" "惠建明" ""                                      "陈孝勇" "哈尔滨工业大学"
    
11. "002255" "2008-06-25" "徐建新" "河海大学"                          "陈孝勇" "哈尔滨工业大学"
    
12. "002255" "2008-06-25" "瞿永康" ""                                      "陈孝勇" "哈尔滨工业大学"
    
13. "002255" "2008-06-25" "程建明" ""                                      "陈孝勇" "哈尔滨工业大学"
    
14. "002256" "2008-06-25" "郭健"    ""                                      "陈玮"    "兰州商学院"      
    
15. "002256" "2008-06-25" "王光明" ""                                      "陈玮"    "兰州商学院"      
    
16. "002256" "2008-06-25" "杨学明" ""                                      "单祥双" "厦门大学"         
    
17. "002256" "2008-06-25" "杨青坡" ""                                      "陈玮"    "兰州商学院"      
    
18. "002256" "2008-06-25" "吴俊峰" ""                                      "陈玮"    "兰州商学院"      
    
19. "002256" "2008-06-25" "刘科"    "贵州大学"                          "陈玮"    "兰州商学院"      
    
20. "002256" "2008-06-25" "陈永弟" ""                                      "陈玮"    "兰州商学院"      
    
21. "002256" "2008-06-25" "王平"    "厦门大学"                          "陈玮"    "兰州商学院"      
    
22. "002256" "2008-06-25" "金立新" "北京理工大学"                    "陈玮"    "兰州商学院"      
    
23. "002256" "2008-06-25" "刘浩"    "北京科技大学"                    "刘浩"    "北京科技大学"   
    
24. "002256" "2008-06-25" "李化春" ""                                      "陈玮"    "兰州商学院"      
    
25. "002256" "2008-06-25" "章建鑫" ""                                      "陈玮"    "兰州商学院"      
    
26. "002256" "2008-06-25" "沈少玲" ""                                      "陈玮"    "兰州商学院"      
    
27. "002256" "2008-06-25" "陈玮"    ""                                      "陈玮"    "兰州商学院"      
    
28. "002256" "2008-06-25" "鄢文彪" ""                                      "陈玮"    "兰州商学院"      
    
29. "002259" "2008-07-16" "李卫东" "西南财经大学"                    "严明"    "华东理工大学"   
    
30. "002259" "2008-07-16" "韩恂"    "西南交通大学,成都理工大学" "严明"    "华东理工大学"   
    
31. "002259" "2008-07-16" "魏建平" "上海国家会计学院"              "严明"    "华东理工大学"   
    
32. "002259" "2008-07-16" "蒋昌华" "西南农业大学"                    "严明"    "华东理工大学"   
    
33. "002259" "2008-07-16" "许才能" "兰州大学"                          "严明"    "华东理工大学"   
    
34. "002259" "2008-07-16" "蔚献民" "四川广播电视大学"              "严明"    "华东理工大学"   
    
35. "002259" "2008-07-16" "孙晗"    "北京理工大学"                    "严明"    "华东理工大学"   
    
36. "002259" "2008-07-16" "张昌林" "西南财经大学"                    "严明"    "华东理工大学"   
    
37. "002259" "2008-07-16" "杨彬"    "北京林业大学"                    "严明"    "华东理工大学"   
    
38. "002259" "2008-07-16" "江昌政" "四川大学"                          "严明"    "华东理工大学"   
    
39. "002259" "2008-07-16" "邓化民" "东北林业大学"                    "严明"    "华东理工大学"   
    
40. "002259" "2008-07-16" "董静涛" "西南财经大学"                    "严明"    "华东理工大学"   
    
41. "002259" "2008-07-16" "向中华" "四川大学"                          "严明"    "华东理工大学"   
    
42. "002259" "2008-07-16" "晏兵"    "西南交通大学"                    "严明"    "华东理工大学"   
    
43. "002259" "2008-07-16" "余钢"    "中山大学"                          "严明"    "华东理工大学"   
    
44. "002259" "2008-07-16" "朱宏耀" "西南财经大学"                    "严明"    "华东理工大学"   
    
45. "002266" "2008-08-06" "邵保安" "华中工学院"                       "宗佩民" "杭州商学院"      
    
46. "002266" "2008-08-06" "傅友爱" ""                                      "宗佩民" "杭州商学院"      
    
47. "002266" "2008-08-06" "史国犹" ""                                      "宗佩民" "杭州商学院"      
    
48. "002266" "2008-08-06" "郑怀勇" ""                                      "宗佩民" "杭州商学院"      
    
49. "002266" "2008-08-06" "章焕能" "西安理工大学"                    "宗佩民" "杭州商学院"      
    
50. "002266" "2008-08-06" "彭建义" ""                                      "宗佩民" "杭州商学院"      
    
51. "002266" "2008-08-06" "白福意" ""                                      "宗佩民" "杭州商学院"      
    
52. "002266" "2008-08-06" "鲍建江" ""                                      "宗佩民" "杭州商学院"      
    
53. "002266" "2008-08-06" "陈富卿" ""                                      "宗佩民" "杭州商学院"      
    
54. "002266" "2008-08-06" "余永清" "武汉水利电力学院"              "宗佩民" "杭州商学院"      
    
55. end

复制代码

而程序为 (感谢 Andrew Musau 之建议)

1. destring stkcd, replace
   
2. levelsof stkcd, local(id)
   
3. foreach i in `id' {
   
4.   levelsof university if stkcd==`i', local(uid`i')
   
5.   levelsof graduate1 if stkcd==`i', local(gid`i')
   
6.   local diff`i': list uid`i' - gid`i'
   
7.   local present`i': list uid`i'- diff`i'
   
8.   local p`i': subinstr local present`i' `" "' `", "', all
   
9.   local n`i': word count `p`i''
   
10. }
    
11. 
    
12. foreach i in `id' {
    
13.   if `n`i''>0 {
    
14.       local wanted "`wanted' `i'"
    
15.       local wanted: subinstr local wanted " " ",", all
    
16.   }
    
17. }
    
18. gen varwanted = inlist(stkcd, 0.1`wanted')
    
19. list, clean

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

1. tempfile a  
   
2. save "`a'"
   
3. 
   
4. keep stkcd graduate1
   
5. duplicates drop stkcd graduate1,force
   
6. rename  graduate1 university
   
7. 
   
8. merge 1:m stkcd university   using  "`a'"
   
9. drop if _merge==1
   
10. bysort stkcd : egen index=total(_merge==3)
    
11. replace index=1 if index!=0
    
12. drop _merge
    
13. list

复制代码

还用上循环语句了。看着不错

黃河泉 发表于 2018-11-4 10:27
在财务中，有时我们会分析 peers  所带来之效果，但要如何认定 peers 呢？边有一个例子与大家方享，简单资料 ...

太棒了，谢谢黄老师。

苦鬼2014 发表于 2018-11-5 21:30
太棒了，谢谢黄老师。

Romalpa Akzo 之建议更精简：

1. expand 2, gen(ex)
   
2. replace graduate1 = university if ex
   
3. bys stkcd graduate1 (ex): gen tag = (ex[1] != ex[_N]) if !missing(graduate1)
   
4. by stkcd: egen wanted = max(tag)
   
5. drop if ex
   
6. drop ex tag

复制代码

谢谢黄老师分享！