Given three data frames:
df1 <- data.frame( id = c(1:3), ctry1 = c("us", "es", "fr"), ctry2 = c("ve", "pa&qu