略微有点复杂的数据拆分处理问题，有例子

先上栗子：

X	Y	X	Z	Y	Z
103	1	103	103	1	103
103	2	541	3	2	103
541	3	542	4	3	3
542	4	480	480	4	4
480	5	495	7	5	480
480	6	512	8	6	480
495	7	481	9	7	7
512	8	513	10	8	8
481	9	55	134	9	9
513	10	56	134	10	10
55	134	57	134	134	134
56	134	40	115	115	115
57	134	41	115
40	115
41	115

--------------------------------------------------------------------------------------------
以上是xy，xz，yz表格---------希望通过xy图表得到xz，yz图表。
z等于说是新建立的一个衡量标准，使得一个含有x的数据可以merge m：1 x using xz表格；另一个含有y的数据可以merge m：1 y using yz表格。
xz表格中x的数字都只出现一次，不重复
yz表格中y的数字都只出现一次，不重复

求stata做法，不行的话一些code意见或者想法作为参考也行！

1. *********create   x_z database***************
   
2. cd d:\
   
3. use ddd,clear
   
4. sort x y
   
5. duplicates drop x,force
   
6. gen id_x=_n
   
7. save single.dta,replace
   
8. 
   
9. use ddd,clear
   
10. sort x y
    
11. bysort x : gen repeat_num=_n
    
12. bysort x : gen total_num=_N
    
13. merge m:1 x using single
    
14. drop _merge
    
15. keep if total_num==1
    
16. keep x y id_x
    
17. save no_dup,replace
    
18. 
    
19. 
    
20. use ddd,clear
    
21. sort x y
    
22. bysort x : gen repeat_num=_n
    
23. bysort x : gen total_num=_N
    
24. merge m:1 x using single
    
25. drop _merge
    
26. keep if total_num>1
    
27. duplicates drop x,force
    
28. drop y
    
29. gen y=x
    
30. keep x y id_x
    
31. save dup,replace
    
32. 
    
33. appen using no_dup,generate(dup_database)
    
34. order x y id_x
    
35. sort x y
    
36. rename y z
    
37. save final_xz.dta,replace
    
38. 
    
39. 
    
40. 
    
41. *********create   y_z database***************
    
42. cd d:\
    
43. use ddd,clear
    
44. rename x s1
    
45. rename y s2
    
46. rename s1 y
    
47. rename s2 x
    
48. save ddd1,replace
    
49. 
    
50. 
    
51. use ddd1,clear
    
52. sort x y
    
53. duplicates drop x,force
    
54. gen id_x=_n
    
55. save single1.dta,replace
    
56. 
    
57. use ddd1,clear
    
58. sort x y
    
59. bysort x : gen repeat_num=_n
    
60. bysort x : gen total_num=_N
    
61. merge m:1 x using single1
    
62. drop _merge
    
63. keep if total_num==1
    
64. keep x y id_x
    
65. save no_dup1,replace
    
66. 
    
67. 
    
68. use ddd1,clear
    
69. sort x y
    
70. bysort x : gen repeat_num=_n
    
71. bysort x : gen total_num=_N
    
72. merge m:1 x using single1
    
73. drop _merge
    
74. keep if total_num>1
    
75. duplicates drop x,force
    
76. drop y
    
77. gen y=x
    
78. keep x y id_x
    
79. save dup1,replace
    
80. 
    
81. appen using no_dup1,generate(dup_database)
    
82. order x y id_x
    
83. sort x y
    
84. rename y z
    
85. rename x y
    
86. rename id_x id_y
    
87. save final_yz.dta,replace

复制代码

jungsee 发表于 2014-4-2 11:29

在前面proc.基础上，补充这个code,从而使连续重复后面的数据行(不重复行)，z value变成和y value, 但是在前一步处理过的 y 值出现过重复的数据行 保持不变。如果，你有其他要求，只要做相应调整即可。hope it helps!!!

use final_yz.dta,clear
sort y
gen lagz=z[ _n-1]
gen temp=-y
sort temp
gen leadz=z[ _n-1]
drop temp
sort y
gen if_1=0
gen if_2=0
gen if_total=0
replace if_1=1 if z==lagz
replace if_2=1 if z==leadz
replace if_total=1 if if_1==1  | if_2!=0

replace z=y if if_total==0 & dup_database==1
save final_yz02.dta,replace