[求助]请高手帮忙看一段程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

 n1<-9802
 n2<-3821

for(i in 1:n1){
+ for(j in 1:n2){
+ if((sh1$HHID==sh2$HHID[j]) & (sh1$LINE==sh2$LINE[j]))  sh3<-cbind(sh1[i,],sh2[j,])
+ j<-j+1}
+ i<-i+1}

我有两个数据文件分别sh1和sh2，它们有两个共同的变量HHID和LINE（当然各自还有自己的变量），sh1文件中这两个变量下的数据要多些。现在我想寻找这两个文件中这两个变量下相同的数据，并且将这些相同的数据组成文件sh3。

上面是我自己写的程序。请高手帮我看下哪里有问题。

非常感谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：求助 程序 高手 帮忙

为什么不用SAS，SAS对这样的数据处理很方便。

感觉SAS投入太高

产出太低

呵呵，不会用SAS。

那楼上的能不能写个SAS程序呢？

有没有高手能不能帮我看下这个R程序啊？

position1 <- match(sh1$HHID, sh2$HHID) & match(sh1$LINE, sh2$LINE)
position2 <- match(sh2$HHID, sh1$HHID) & match(sh2$LINE, sh1$LINE)

tmp1 <- sh1[!is.na(position1),]
tmp2 <- sh2[!is.na(position2),]

out <- rbind(tmp1, tmp2)

p.s. you use "for" loop a little bit wrongly, please refer to R manual

谢谢楼上的！你的这种方法确实不错。不过在运行时会显示两个tmp1和tmp2数据长度不一致。

我用merge（）行么？？

除非是规定了sh1和sh2的那两个变量之间有什么关系，否则tmp1和tmp2的长度没有关系
tmp1是sh1中与sh2数据相同的那一部分，后者则是sh2中与sh1相同的部分
从你所说，你想分别从两个数据中挑出某两个变量有相同数值的cases，并组成一个新数据
如果是，那么把tmp1和tmp2用emerge并列起来是不对的
只需简单地rbind就行

我是想从从两个数据中挑出某两个变量有相同数值的cases，并连同其它变量一起组成新的数据文件。

这样不行么

按你的说法，假设 sh1 和 srh2 分别如下：

sh1
HHID  LINE  otherVar
 1 30  1
 8 23  2
 2 27  3
 2 23  4
 5 24  5
 7 21  6
 6 22  7
 9 29  8
10 26  9
 8 24 10
 7 30 11
10 27 12
 9 25 13
 4 24 14
 3 25 15

sh2
 HHID  LINE  otherVAR
 15 30  1
 10 28  2
 15 29  3
 11 30  4
  6 27  5
  7 27  6
 12 27  7
 12 25  8
  6 26  9
  9 30 10

按我的程序
position1 <- match(sh1$a, sh2$a) & match(sh1$b, sh2$b)
position2 <- match(sh2$a, sh1$a) & match(sh2$b, sh1$b)

tmp1 <- sh1[!is.na(position1),]
tmp2 <- sh2[!is.na(position2),]

我不明白，有什么理由一定保证 tmp1 和 tmp2 会有同样的长度，并且能把tmp1 和 tmp2并列起来？！(你知不知道并列起来将意味着什么？）
我更不明白，是我没说清楚，还是你根本就没有真正明白你想要解决的问题！

P.S.  请不要在标题上注明什么“高手”。就你目前的水平，根本无须高手来回答你，真正的高手也根本不屑回答你这么如此初级、而且不带自己思考的问题。换句话说， 你现在的有这样那样的问题，只是因为你不努力学习，跟高手不高手的一点关系都没有。这么初级的问题还一问再问！如果你就想着别人帮你解决一切，而实在   懒得   自己去思考，那么，我的忠告是：S-Plus/R根本不适合你，你不妨于学别的软件。学习R的人，不一定都是很聪明的（比如我），但一定是很勤奋的、至少 是勤于思考的（比如我）。我不是没问题，但我没有像你这种自己不努力学习、不自己思考、而只会张嘴就问的问题。如果你无法接受我这些话，那么你真的应该放 弃S-Plus/R了。

Good Luck!

[此贴子已经被作者于2008-4-7 7:21:42编辑过]

不好意思，我想我明白你的意思，是我没表述清楚。两个文件中的其它变量个数是不一样的，所以用rbind（）不对。不管怎么样，我现在得到我要的结果了。谢谢。

P.S.我承认我现在是过于懒惰了，接受批评。我觉得有时候得到别人的指点学习比一个人学习要好。我标题上写“高手”是觉得比我强的都是高手。

Thank You！

[此贴子已经被作者于2008-4-7 9:35:26编辑过]