从名称到标签自动更改名称

Question

我有dataframe，它是df的一个子集，我想为标签交换名称。

完整的列表有255行，而我总是有一个列数量可变的子集。我如何自动化这一点，以便它自动进行交换？我能不能用向量和矩阵来解决这个问题而不是数据。我解决了，但我的方法很笨拙。我正在寻找一种更好的方法来执行这种类型的名称值交换。

label <- c("Current Loan Payment", "Current Loan Payment Amount","Current Loan Payment Due Date","Fixed/Manual Loan Payment Amount","Is Manual Amortization Schedule","Re-amortize as Balloon Payment")

name <- c("Credit__Current_Loan_Payment__c" , "Credit__Current_Loan_Payment_Amount__c", "Credit__Current_Loan_Payment_Due_Date__c","Credit__Manual_Loan_Payment_Amount__c","Credit__Is_Manual_Amortization_Schedule__c","Credit__Re_amortize_as_Balloon_Payment__c" )

df <- data.frame(label, name)

df.namesToSwap <- c("Credit__Current_Loan_Payment__c", "Credit__Is_Manual_Amortization_Schedule__c" )

df.labelsIWant <- c("Current Loan Payment", "Is Manual Amortization Schedule")

Answer 1

一种选择是从mgsub到qdap

library(qdap)
df$name <- mgsub(df.namesToSwap, df.labelsIWant, df$name)
df$name
#[1] "Current Loan Payment"                      "Credit__Current_Loan_Payment_Amount__c"    "Credit__Current_Loan_Payment_Due_Date__c" 
#[4] "Credit__Manual_Loan_Payment_Amount__c"     "Is Manual Amortization Schedule"           "Credit__Re_amortize_as_Balloon_Payment__c"