相关疑难解决方法(0)

我有以下数据框:

??????????????????
? Code ? Airline ?
??????????????????
?    1 ? AF      ?
?    1 ? KL      ?
?    8 ? AR      ?
?    8 ? AZ      ?
?    8 ? DL      ?
??????????????????

dat <- structure(list(Code = c(1L, 1L, 8L, 8L, 8L), Airline = structure(c(1L, 
5L, 2L, 3L, 4L), .Label = c("AF  ", "AR  ", "AZ  ", "DL", "KL  "
), class = "factor")), .Names = c("Code", "Airline"), class = "data.frame", row.names = c(NA, 
-5L))

我的目标是让每家航空公司查找所有共享代码,即一个或多个其他航空公司使用的代码.所以输出就是

+--------------------+
| Airline …