2016-11-04 20 views
1

私はdfのサブセットであるデータフレームを持っており、ラベルの名前を入れ替えたいと思います。
完全なリストは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") 

答えて

2

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です
関連する問題