निकालें अक्षर हैं जो दो तार

Question

मैं adist का इस्तेमाल किया है अक्षर हैं जो दो तार के बीच भिन्न की संख्या की गणना करने के लिए अलग-अलग:

a <- "Happy day" 
b <- "Tappy Pay" 
adist(a,b) # result 2 

अब मैं उन चरित्र है कि अलग निकालने के लिए चाहते हैं। मेरे उदाहरण में, मैं स्ट्रिंग "Hd" (या "TP" प्राप्त करना चाहता हूं, इससे कोई फर्क नहीं पड़ता)।

मैंने adist, agrep और stringi में देखने की कोशिश की लेकिन कुछ भी नहीं मिला।

Answer 1

आप संचालन के निम्नलिखित अनुक्रम का उपयोग कर सकते हैं:

• strsplit() का उपयोग कर स्ट्रिंग को विभाजित करें।
• उपयोग setdiff() एक को कम करने के समारोह में तत्वों
• लपेटें तुलना करने के लिए

इस प्रयास करें:

Reduce(setdiff, strsplit(c(a, b), split = "")) 
[1] "H" "d" 

Answer 2

जब तक a और b रूप में एक ही लंबाई हम ऐसा कर सकते हैं:

s.a <- strsplit(a, "")[[1]] 
s.b <- strsplit(b, "")[[1]] 
paste(s.a[s.a != s.b], collapse = "") 

देने:

[1] "Hd" 

इस कोड की स्पष्टता के मामले में सीधा लगता है और के लिए बंधे लगता है यहां प्रदान किए गए समाधानों में से सबसे तेज़ हालांकि मुझे लगता है कि मैं f3:

f1 <- function(a, b) 
    paste(setdiff(strsplit(a,"")[[1]],strsplit(b,"")[[1]]), collapse = "") 

f2 <- function(a, b) 
    paste(sapply(setdiff(utf8ToInt(a), utf8ToInt(b)), intToUtf8), collapse = "") 

f3 <- function(a, b) 
    paste(Reduce(setdiff, strsplit(c(a, b), split = "")), collapse = "") 

f4 <- function(a, b) { 
    s.a <- strsplit(a, "")[[1]] 
    s.b <- strsplit(b, "")[[1]] 
    paste(s.a[s.a != s.b], collapse = "") 
} 

a <- "Happy day" 
b <- "Tappy Pay" 

library(rbenchmark) 
benchmark(f1, f2, f3, f4, replications = 10000, order = "relative")[1:4] 

अपने लैपटॉप पर एक ताजा सत्र पर निम्नलिखित दे रही है:

test replications elapsed relative 
3 f3  10000 0.07 1.000 
4 f4  10000 0.07 1.000 
1 f1  10000 0.09 1.286 
2 f2  10000 0.10 1.429 

मैं मान लिया है कि मतभेदों को इसी चरित्र की स्थिति में होना चाहिए। आप स्पष्ट करना चाहते हैं कि क्या यह इरादा है या नहीं।

Answer 3

वास्तव में इस पर गर्व नहीं है, लेकिन यह काम करने के लिए लगता है:

sapply(setdiff(utf8ToInt(a), utf8ToInt(b)), intToUtf8) 

परिणाम: पत्र में

[1] "H" "d" 

Answer 4

स्प्लिट और सेट के रूप में अंतर ले:

> setdiff(strsplit(a,"")[[1]],strsplit(b,"")[[1]]) 
[1] "H" "d" 

Answer 5

आप से एक regex चरित्र वर्ग के रूप में चर में से एक और gsub बाहर का उपयोग कर सकते अन्य एक:

gsub(paste0("[",a,"]"),"",b) 
[1] "TP" 
gsub(paste0("[",b,"]"),"",a) 
[1] "Hd"