이름을 자동으로 이름으로 바꿉니다.

Question

df의 하위 집합 인 dataframe이 있는데 레이블의 이름을 바꾸고 싶습니다.
전체 목록에는 255 개의 행이 있으며 항상 가변 양의 열이있는 하위 세트가 있습니다. 어떻게하면 자동으로 스왑을 수행 할 수 있습니까? 데이터 프레임 대신 벡터와 행렬을 사용하여이를 해결할 수 있습니까? 나는 그것을 해결했지만 내 방법 clunky입니다. 나는 이름 값 스왑이 유형을 할 더 나은 방법을 찾고 있는데요.

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

하나의 옵션은 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" 

에서 mgsub입니다