请教如何快速处理这类问题！谢谢

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

处理问题的时候遇到一个问题，看似简单，但因为数据量大使用for循环非常慢，请教大神能否有快速的方案。谢谢！
需求是：把table的表格 按照name 列把ID数值合并入object中。如图，谢谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：如何快速 object for循环 Table ABLE

希望高手出手帮助，感谢

id = data.frame(
     name= c("张三", "李四","王五"),
     ID  = c("001","002","003"))

df_id = data.frame(
     name= c("张三", "李四","六六","王五","老八"),
     ID  = c(NA,NA,NA,NA,NA),
     salary = c(NA,NA,NA,NA,NA),
     fat = c(NA,NA,NA,NA,NA))


# table:取出来的数据
# object：每个ID流水号的大表
# val：值所在列的名称+”.y
# key: 合并列的名称
mergeFun <- function(table,object,val = "ID.y",key = "name"){
  colname <- colnames(object)
  new <- merge(table,object,by = key,all = T,suffixes=c("",".y"))
  new <- new[,-which(colnames(new) %in% c(val))]
}

id_table <- mergeFun(id,df_id)

自己解决了，谢谢
如果有更好方案，欢迎指出，谢谢

1. df_id %>% left_join(id, by="name") %>% mutate(ID=ID.y) %>% select(-ID.x, -ID.y)

复制代码

呵呵 这类问题解释过好多次了 真的不想再回答了 不过楼主自己的方法也着实动了脑筋

llb_321 发表于 2020-11-19 00:44
呵呵 这类问题解释过好多次了 真的不想再回答了 不过楼主自己的方法也着实动了脑筋

给lib_321老师点赞