请考虑以下数据框:
first_name last_name
1 Al Smith
2 Al Jones
3 Jeff Thompson
4 Scott Thompson
5 Terry Dactil
6 Pete Zah
data <- data.frame(first_name=c("Al","Al","Jeff","Scott","Terry","Pete"),
last_name=c("Smith","Jones","Thompson","Thompson","Dactil","Zah"))
Run Code Online (Sandbox Code Playgroud)
在此数据框中,first_name与last_name相关的方式有三种:
我希望能够快速识别三种情况中的每一种并将它们输出到数据框.因此,结果数据框将是:
一对一
first_name last_name
1 Terry Dactil
2 Pete Zah
Run Code Online (Sandbox Code Playgroud)
一对多
first_name last_name
1 Al Smith
2 Al Jones
Run Code Online (Sandbox Code Playgroud)
多对一
first_name last_name
1 Jeff Thompson
2 Scott Thompson
Run Code Online (Sandbox Code Playgroud)
我想在dplyr包中做到这一点.