将数据帧的行与“主”行进行比较

作者: 布偶的表弟派大星丶
发布时间: 2024-04-13 12:22:53 (11天前)
转自：

4 条回复

0#
回复此人
妖邪 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 考虑 <code> merge </code> 再次，你可以指定 <code> all.x </code> （即， <code> LEFT JOIN </code> ）保留原始数据。以下用途 <code> within </code> 和 <code> transform </code> 作为上下文管理器添加/更新 <EM> 结果 </EM> 列并返回更新的数据框： </p> <pre> <code> final_df <- within(merge(DF, transform(Compare, result = "match"), all.x=TRUE), result <- ifelse(is.na(result), "no match", "match")) final_df # A B C D E result # 1 1 1 5 1 4 no match # 2 4 5 6 2 2 match # 3 5 4 3 3 3 no match # 4 6 2 2 4 4 no match </code> </pre> </DIV>

编辑
1#
回复此人
v-star*위위 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <pre> <code> apply(DF,1,paste,collapse=" ") %in% apply(Compare,1,paste,collapse=" ") [1] FALSE TRUE FALSE FALSE </code> </pre> <P> 这有点作弊，因为apply本身就是一个循环，但这仍然比你的解决方案更快： </p> <pre> <code> Unit: microseconds expr min lq mean median uq max neval cld iod 375.289 488.41 627.6017 570.742 705.7295 2050.474 100 a op 9070.273 10491.32 14143.7312 11770.471 15281.4865 96645.749 100 b </code> </pre> </DIV>

编辑
2#
回复此人
荧惑 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 这将在baseR中工作 </p> <pre> <code> DF[ do.call("paste", DF) %in% do.call("paste", Compare), ] # A B C D E # 2 4 5 6 2 2 </code> </pre> <P> 要不就： </p> <pre> <code> do.call("paste", DF) %in% do.call("paste", Compare) #[1] FALSE TRUE FALSE FALSE </code> </pre> </DIV>

编辑

登录后才能参与评论