如何在R中比较变量并返回公共变量

我有一个非常简单的数据集，其中一列是ID号，另一列是那个人的DOB

例如：

x_df <- data.frame(stringsAsFactors=FALSE,
          ID = c("ID-1", "ID-2", "ID-2", "ID-3", "ID-4", "ID-5"),
         DOB = c("4/16/1955", "9/4/1976", "9/4/1976", "4/16/1955", "2/10/1995",
                 "11/29/1980")
)

---

x_df让我们按DOB排列数据，可以比较数据对

library(tidyverse)

x_df %>% 
  group_by(DOB) %>% 
  mutate(idord = paste0("x", 1:n()) ) %>% 
  spread(idord, ID) %>% 
  filter(x1 != x2)

结果是

  DOB       x1    x2   
  <chr>     <chr> <chr>
1 4/16/1955 ID-1  ID-3

一个单元格中的ID数和所有ID数

  DOB       idcount IDall    
  <chr>       <int> <chr>    
1 4/16/1955       2 ID-1|ID-3

DOB idcount IDall
1955年4月16日2 ID-1 | ID-3

  DOB       idcount IDall    
  <chr>       <int> <chr>    
1 4/16/1955       2 ID-1|ID-3