आर: gsub का उपयोग कर वर्णों को प्रतिस्थापित करें, फ़ंक्शन कैसे बनाएं?

Question

मैं डेटा.फ्रेम में वर्णों को प्रतिस्थापित करने की कोशिश कर रहा हूं। मैं इस

> df <- data.frame(var1 = c("aabbcdefg", "aabbcdefg")) 
> df 
     var1 
1 aabbcdefg 
2 aabbcdefg 
> df$var1 <- gsub("a", "h", df$var1) 
> df$var1 <- gsub("b", "i", df$var1) 
> df$var1 <- gsub("c", "j", df$var1) 
> df$var1 <- gsub("d", "k", df$var1) 
> df$var1 <- gsub("e", "l", df$var1) 
> df$var1 <- gsub("f", "m", df$var1) 
> df 
     var1 
1 hhiijklmg 
2 hhiijklmg 
> 

लिए एक समाधान है, लेकिन मैं कई gsub कॉल का उपयोग, यह बहुत अच्छा होगा इस पर एक बार करने के लिए एक समारोह का उत्पादन करने से बचने के लिए चाहते हैं? आगे बढ़ने के लिए कोई विचार हो?

Answer 1

आप from और to वैक्टर बना सकते हैं:

from <- c('a','b','c','d','e','f') 
to <- c('h','i','j','k','l','m') 

और फिर vectorialize gsub समारोह:

gsub2 <- function(pattern, replacement, x, ...) { 
for(i in 1:length(pattern)) 
x <- gsub(pattern[i], replacement[i], x, ...) 
x 
} 

कौन देता है:

> df <- data.frame(var1 = c("aabbcdefg", "aabbcdefg")) 
> df$var1 <- gsub2(from, to, df$var1) 
> df 
     var1 
1 hhiijklmg 
2 hhiijklmg 

Answer 2

आप chartr हैं:

+०१२३५१६४१०६१

df$var1 <- chartr("abcdef", "hijklm", df$var1) 
df 
#  var1 
# 1 hhiijklmg 
# 2 hhiijklmg 

Answer 3

आप chartr उपयोग करने के लिए क्योंकि प्रतिस्थापन एक से अधिक चरित्र हो सकता है नहीं करना चाहते हैं, तो एक और विकल्प gsubfn पैकेज से gsubfn उपयोग करने के लिए (मैं जानता हूँ कि इस gsub नहीं है, लेकिन gsub पर एक विस्तार है)।

> library(gsubfn) 
> tmp <- list(a='apple',b='banana',c='cherry') 
> gsubfn('.', tmp, 'a.b.c.d') 
[1] "apple.banana.cherry.d" 

प्रतिस्थापन भी एक समारोह है कि मैच लेने के लिए और है कि मैच के लिए प्रतिस्थापन मूल्य वापसी होगी हो सकता है: यहाँ एक उदाहरण है।