一切都在标题中，我从一个数据库中得到了很多列，两个包含两个包含代码和一些变量的标签，我想要一个简单的方法来创建一半的因子，对于每个因子级别/与原始两个变量匹配的代码。
以下是两个因素的原始数据的例子
| customer_type | customer_type_name | customer_status | customer_status_name |
|----------------------|----------------------|----------------------|----------------------|
| 1 | A | 2 | Beta |
| 2 | B | 2 | Beta |
| 3 | C | 1 | Alpha |
| 2 | B | 3 | Gamma |
| 1 | A | 4 | Delta |
| 3 | C | 2 | Beta |
即。从数据框“帐户”
更简单的方法（在函数中调用大量变量更简单）a<-accounts[,c("customertypecode","customertypecodename")]
a<-a[!duplicated(a),]
a<-a[order(a$customertypecode),]
accounts$customertypecode<-factor(accounts$customertypecode,labels=a$customertypecodename[!is.na(a$customertypecodename)])