stata如何将多个单元格整体下移

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

. clear

. input c1 c2 c3 c4

             c1          c2          c3          c4
  1. 1 2 3 4
  2. 5 6 7 8
  3. end

. dataex

----------------------- copy starting from the next line -----------------------

1. * Example generated by -dataex-. To install: ssc install dataex
   
2. clear
   
3. input double(c1 c2 c3 c4)
   
4. 1 2 3 4
   
5. 5 6 7 8
   
6. end

复制代码

------------------ copy up to and including the previous line ------------------

如何将
3 4
7 8
整体向下移动两行，变成
. clear

. input c1 c2 c3 c4

             c1          c2          c3          c4
  1. 1 2 0 0
  2. 5 6 0 0
  3. 0 0 3 4
  4. 0 0 7 8
  5. end

. dataex

----------------------- copy starting from the next line -----------------------

1. * Example generated by -dataex-. To install: ssc install dataex
   
2. clear
   
3. input double(c1 c2 c3 c4)
   
4. 1 2 0 0
   
5. 5 6 0 0
   
6. 0 0 3 4
   
7. 0 0 7 8
   
8. end

复制代码

------------------ copy up to and including the previous line ------------------

Listed 4 out of 4 observations



当然，这里是变量数量少。如果数量很多的时候，比如 varlist c1-c200，怎么将c3-c4下移两行，c5-c6下移四行，c7-c8下移六行（以此类推）？
急求！谢谢大神指点迷津。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Stata tata 单元格 observations observation

请看例子：

1. * Example generated by -dataex-. To install: ssc install dataex
   
2. clear
   
3. input double(var1 var2 var3 var4)
   
4. 1 3 5 7
   
5. 2 4 6 8
   
6. 4 5 3 9
   
7. end
   
8. 
   
9. expand 2
   
10. replace var3=0 if _n<=3
    
11. replace var4=0 if _n<=3
    
12. replace var1=0 if _n>3
    
13. replace var2=0 if _n>3
    
14. 
    
15. . list,sep(3)
    
16. 
    
17.      +---------------------------+
    
18.      | var1   var2   var3   var4 |
    
19.      |---------------------------|
    
20.   1. |    1      3      0      0 |
    
21.   2. |    2      4      0      0 |
    
22.   3. |    4      5      0      0 |
    
23.      |---------------------------|
    
24.   4. |    0      0      5      7 |
    
25.   5. |    0      0      6      8 |
    
26.   6. |    0      0      3      9 |
    
27.      +---------------------------+

复制代码

zdlspace 发表于 2021-1-30 13:46
请看例子：

多谢多谢！不过这是变量数量小，如果很多变量，那么需要将 replace var 不停重复吗？有没有什么循环的方法？

zdlspace 发表于 2021-1-30 13:46
请看例子：

多谢指点！另外的问题解决了。谢谢！

我的方案有点复杂

1. * Example generated by -dataex-. To install: ssc install dataex
   
2. clear
   
3. input double(var1 var2 var3 var4 var5 var6 var7 var8)
   
4. 1 3 5 7 4 4 4 6
   
5. 2 4 6 8 5 5 5 5
   
6. 4 5 3 9 4 6 5 5
   
7. end
   
8. 
   
9. 
   
10. set obs 7
    
11. gen t=_n
    
12. tsset t
    
13. forvalues i=3(2)7{
    
14.         local j=(`i'+1)/2
    
15.         gen lvar`i'=L`j'.var`i'         
    
16. }
    
17. forvalues i=4(2)8{
    
18.         local j=`i'/2
    
19.         gen lvar`i'=L`j'.var`i'         
    
20. }
    
21. forvalues i=8(-1)3{
    
22.         replace lvar`i'=0 if mi(lvar`i')
    
23. order var1 var2 lvar`i' lvar`i+1'       
    
24. }
    
25. replace var1=0 if var1==.
    
26. replace var2=0 if var2==.
    
27. drop var3-var8 t
    
28. 
    
29. . list,sep(4)
    
30.      +-------------------------------------------------------------+
    
31.      | var1   var2   lvar3   lvar4   lvar5   lvar6   lvar7   lvar8 |
    
32.      |-------------------------------------------------------------|
    
33.   1. |    1      3       0       0       0       0       0       0 |
    
34.   2. |    2      4       0       0       0       0       0       0 |
    
35.   3. |    4      5       5       7       0       0       0       0 |
    
36.   4. |    0      0       6       8       4       4       0       0 |
    
37.      |-------------------------------------------------------------|
    
38.   5. |    0      0       3       9       5       5       4       6 |
    
39.   6. |    0      0       0       0       4       6       5       5 |
    
40.   7. |    0      0       0       0       0       0       5       5 |
    
41.      +-------------------------------------------------------------+
    
42. 
    
43.    

复制代码

1. * Example generated by -dataex-. To install: ssc install dataex
   
2. clear
   
3. input double(var1 var2 var3 var4 var5 var6 var7 var8)
   
4. 1 3 5 7 4 4 4 6
   
5. 2 4 6 8 5 5 5 5
   
6. 4 5 3 9 4 6 5 5
   
7. end
   
8. 
   
9. 
   
10. set obs 9
    
11. gen t=_n
    
12. tsset t
    
13. forvalues i=3(2)7{
    
14.         local j=`i'-1
    
15.         gen lvar`i'=L`j'.var`i'         
    
16. }
    
17. forvalues i=4(2)8{
    
18.         local j=`i'-2
    
19.         gen lvar`i'=L`j'.var`i'         
    
20. }
    
21. forvalues i=8(-1)3{
    
22.         replace lvar`i'=0 if mi(lvar`i')
    
23. order var1 var2 lvar`i' lvar`i+1'       
    
24. }
    
25. replace var1=0 if var1==.
    
26. replace var2=0 if var2==.
    
27. drop var3-var8 t
    
28. 
    
29. . list,sep(3)
    
30.      +-------------------------------------------------------------+
    
31.      | var1   var2   lvar3   lvar4   lvar5   lvar6   lvar7   lvar8 |
    
32.      |-------------------------------------------------------------|
    
33.   1. |    1      3       0       0       0       0       0       0 |
    
34.   2. |    2      4       0       0       0       0       0       0 |
    
35.   3. |    4      5       5       7       0       0       0       0 |
    
36.      |-------------------------------------------------------------|
    
37.   4. |    0      0       6       8       0       0       0       0 |
    
38.   5. |    0      0       3       9       4       4       0       0 |
    
39.   6. |    0      0       0       0       5       5       0       0 |
    
40.      |-------------------------------------------------------------|
    
41.   7. |    0      0       0       0       4       6       4       6 |
    
42.   8. |    0      0       0       0       0       0       5       5 |
    
43.   9. |    0      0       0       0       0       0       5       5 |
    
44.      +-------------------------------------------------------------+
    
45.    

复制代码

1. * Example generated by -dataex-. To install: ssc install dataex
   
2. clear
   
3. input double(var1 var2 var3 var4 var5 var6 var7 var8)
   
4. 1 3 5 7 4 4 4 6
   
5. 2 4 6 8 5 5 5 5
   
6. 4 5 3 9 4 6 5 5
   
7. end
   
8. 
   
9. 
   
10. set obs 9
    
11. gen t=_n
    
12. tsset t
    
13. forvalues i=3(2)7{
    
14.         local j=`i'-1
    
15.         gen lvar`i'=L`j'.var`i'         
    
16. }
    
17. forvalues i=4(2)8{
    
18.         local j=`i'-2
    
19.         gen lvar`i'=L`j'.var`i'         
    
20. }
    
21. forvalues i=8(-1)3{
    
22.         replace lvar`i'=0 if mi(lvar`i')
    
23. order var1 var2 lvar`i' lvar`i+1'       
    
24. }
    
25. replace var1=0 if var1==.
    
26. replace var2=0 if var2==.
    
27. drop var3-var8 t
    
28. 
    
29. ren lvar* var*
    
30. 
    
31. . list,sep(3)
    
32.        +-------------------------------------------------------+
    
33.      | var1   var2   var3   var4   var5   var6   var7   var8 |
    
34.      |-------------------------------------------------------|
    
35.   1. |    1      3      0      0      0      0      0      0 |
    
36.   2. |    2      4      0      0      0      0      0      0 |
    
37.   3. |    4      5      5      7      0      0      0      0 |
    
38.      |-------------------------------------------------------|
    
39.   4. |    0      0      6      8      0      0      0      0 |
    
40.   5. |    0      0      3      9      4      4      0      0 |
    
41.   6. |    0      0      0      0      5      5      0      0 |
    
42.      |-------------------------------------------------------|
    
43.   7. |    0      0      0      0      4      6      4      6 |
    
44.   8. |    0      0      0      0      0      0      5      5 |
    
45.   9. |    0      0      0      0      0      0      5      5 |
    
46.      +-------------------------------------------------------+
    
47. 
    

复制代码

zdlspace 发表于 2021-1-30 15:37

你好。var `i+1' 这种形式可以读出来吗？

修改了一下代码，如果你是200个变量，代码为：

1. set obs 200
   
2. gen t=_n
   
3. tsset t
   
4. forvalues i=200(-1)1{
   
5.         if mod(`i',2) {
   
6.          local j=`i'-1
   
7.         gen lvar`i'=L`j'.var`i'        
   
8.         }
   
9.      else{
   
10.                  local j=`i'-2
    
11.         gen lvar`i'=L`j'.var`i'        
    
12.          }
    
13.          replace lvar`i'=0 if mi(lvar`i')
    
14.          order lvar`i' lvar`i+1'   
    
15. }
    
16. drop var* t

复制代码

模拟一下200个变量

1. clear
   
2. set obs 2
   
3. forvalues i = 1/200 {
   
4. gen var`i' = 1 in 1/2
   
5. }
   
6. 
   
7. set obs 200
   
8. gen t=_n
   
9. tsset t
   
10. forvalues i=200(-1)1{
    
11.         if mod(`i',2) {
    
12.          local j=`i'-1
    
13.         gen lvar`i'=L`j'.var`i'         
    
14.         }
    
15.      else{
    
16.                  local j=`i'-2
    
17.         gen lvar`i'=L`j'.var`i'         
    
18.          }
    
19.          replace lvar`i'=0 if mi(lvar`i')
    
20.      order lvar`i' lvar`i+1'   
    
21. }
    
22. 
    
23. drop var* t
    
24. ren lvar* var*

复制代码