dat1 <- data.frame(
ID = 1:5,
r2_candidate =
c("F", "J", "Z", "Y", "Q"),
r2_sex =
c("m", "f", "f", "m", "m"))
dat2 <- data.frame(
ID =
c(1, 2, 3, 4, 5, 6),
r1_candidate =
c("A", "B", "C", "D", "E", "F"),
r1_sex =
c("m", "m", "f", "m", "f", "f"),
r2_candidater =
c("F", "j", "Z", "Y", "Q", NA),
"2_sex" =
c("m", "f", "f", "m", "m", "N"))
dplyr::inner_join(dat1,dat2,by="ID")
#> ID r2_candidate r2_sex r1_candidate r1_sex r2_candidater X2_sex
#> 1 1 F m A m F m
#> 2 2 J f B m j f
#> 3 3 Z f C f Z f
#> 4 4 Y m D m Y m
#> 5 5 Q m E f Q m