如何用一个表更新另一个表

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如我有两个表，

表1
1      2
1      a
2      o
3      o
4      b
5      a

表2
1      2
2      a
3      b


如何将表1中的“o”更新为表2中的数据？
谢谢~     

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：如何用 如何

请描述的具体一点   最好有截图

表1中数据有缺失，用“o”表示，而表2中的数据刚好是缺失数据的补充，想用表2的数据更新表1中的缺失数据。数据量较大，只能批量操作。

1. a<-data.frame(x1=c(1,1,2,3,4,5),x2=c(2,"a",NA,NA,"b","a"))
   
2. b<-data.frame(x1=c(1,2,3),x2=c(2,"a","b"))
   
3. index<-which(is.na(a[,2]))
   
4. for(i in 1:length(index)){
   
5.   temp_index<-which(b[,1]==a[index[i],1])
   
6.   a[index[i],2]=b[temp_index,2]
   
7. }
   
8.   

复制代码

结果 a
x1 x2
  1  2
  1  a
  2  a
  3  b
  4  b
  5  a

玥落尘烟 发表于 2016-4-20 21:01
结果 a
x1 x2
  1  2

非常感谢！

1. a<-data.frame(x1=c(1,1,2,3,4,5),x2=c(2,"a",NA,NA,"b","a"))
   
2. b<-data.frame(x1=c(1,2,3),x2=c(2,"a","b"))
   
3. # 利用merge函数也可以实现
   
4. first <- merge(a[is.na(a$x2),],b,by="x1")
   
5. first$x2.x <-NULL
   
6. names(first) <- names(a)
   
7. rbind(a[!is.na(a$x2),],first)

复制代码

jiangbeilu 发表于 2016-4-22 16:39

谢谢！多问一句，如果a里面需要更新的不是缺失值，而是一些“旧”数据呢？如何用merge实现？