मेरे पास एक वेक्टर है जैसे: a = c(1:10)और मुझे कई मान निकालने होंगे, जैसे:2, 3, 5
वेक्टर में उन संख्याओं (वे वेक्टर में स्थिति नहीं हैं ) को कैसे हटाएं ?
फिलहाल मैं वेक्टर को लूप करता हूं और कुछ ऐसा करता हूं:
a[!a=NUMBER_TO_REMOVE]लेकिन मुझे लगता है कि एक फ़ंक्शन है जो इसे स्वचालित रूप से करता है।
जवाबों:
%in%ऑपरेटर आपको बताता है जो तत्वों को दूर करने के numers में से एक हैं:
> a <- sample (1 : 10)
> remove <- c (2, 3, 5)
> a
[1] 10 5 2 7 1 6 3 4 8 9
> a %in% remove
[1] FALSE TRUE TRUE FALSE FALSE FALSE TRUE FALSE FALSE FALSE
> a [! a %in% remove]
[1] 10 7 1 6 4 8 9ध्यान दें कि यह चुपचाप अतुल्य वस्तुओं (जैसे NAया Inf)साथ में (जब तक यह aसूचीबद्ध नहीं है, तब तक डुप्लिकेट मान रखेगा) को हटा देगा remove।
यदि aइसमें अतुलनीय सामग्री हो सकती है, लेकिन removeहम इसका उपयोग नहीं कर सकते हैं match, तो इसे 0गैर-मैचों और अतुलनीयों के लिए वापस जाने के लिए कह सकते हैं ( %in%यह एक उत्कृष्ट शॉर्टकट है match):
> a <- c (a, NA, Inf)
> a
[1] 10 5 2 7 1 6 3 4 8 9 NA Inf
> match (a, remove, nomatch = 0L, incomparables = 0L)
[1] 0 3 1 0 0 0 2 0 0 0 0 0
> a [match (a, remove, nomatch = 0L, incomparables = 0L) == 0L]
[1] 10 7 1 6 4 8 9 NA Infincomparables = 0नहीं है जरूरत incomparables वैसे भी मेल नहीं खाएगा के रूप में, लेकिन मैं इसे पठनीयता के कारण शामिल था।
यह है, btw।, setdiffआंतरिक रूप से क्या करता है (लेकिन बिना uniqueडुप्लिकेट को फेंकने के लिए aजिसमें नहीं हैं remove)।
यदि removeअतुलनीय हैं, तो आपको उनके लिए व्यक्तिगत रूप से जांच करनी होगी, जैसे
if (any (is.na (remove)))
a <- a [! is.na (a)](यह अंतर नहीं करता है NA, NaNलेकिन आर मैनुअल वैसे भी चेतावनी देता है कि किसी को उन दोनों के बीच अंतर होने पर भरोसा नहीं करना चाहिए)
के लिए Inf/ -Infआपको दोनों की जांच करनी होगी signऔरis.finite
aउस में भी हटा देगा remove। यदि यह कोई समस्या नहीं है, तो आप भी उपयोग कर सकते हैं setdiff। setdiff, btw, का उपयोग करता matchहै जिसके %in%लिए एक शॉर्टकट है।
आप उपयोग कर सकते हैं setdiff।
दिया हुआ
a <- sample(1:10)
remove <- c(2, 3, 5)फिर
> a
[1] 10 8 9 1 3 4 6 7 2 5
> setdiff(a, remove)
[1] 10 8 9 1 4 6 7aदूसरे फ़ंक्शन का परिणाम होता है तो आप 3 के बजाय एक लाइन में चीजों को कर सकते हैं और एक अस्थायी चर
%in%समाधान से भिन्न परिणाम उत्पन्न करेगा यदि इनपुट वेक्टर में डुप्लिकेट शामिल हैं (जिस स्थिति setdiffमें केवल अद्वितीय सेट लौटाएगा , अर्थात बिना डुप्लिकेट के)
fsetdiffके data.tableपैकेज एक है allझंडा (डिफ़ॉल्ट एफ) कि इनपुट वेक्टर में डुप्लिकेट रखने के लिए अनुमति देता है।
आप इसे निम्नानुसार कर सकते हैं:
> x<-c(2, 4, 6, 9, 10) # the list
> y<-c(4, 9, 10) # values to be removed
> idx = which(x %in% y ) # Positions of the values of y in x
> idx
[1] 2 4 5
> x = x[-idx] # Remove those values using their position and "-" operator
> x
[1] 2 6कुछ ही समय
> x = x[ - which(x %in% y)]whichहै। यह मूल रूप से @cbeleites उत्तर के समान है।
whichTRUE मानों का अनुक्रमणिका देता है। इसलिए माइनस साइन का उपयोग "इन इंडेक्स के अलावा अन्य इंडेक्स" को कहने के लिए किया जा सकता है। यह whichभी अधिक पठनीय है क्योंकि यह प्राकृतिक भाषा के करीब है।
के बजाय
x <- x[! x %in% c(2,3,5)]पैकेज का उपयोग कर purrrऔर magrittr, आप कर सकते हैं:
your_vector %<>% discard(~ .x %in% c(2,3,5))यह subsetकेवल एक बार वेक्टर नाम का उपयोग करके टिंग के लिए अनुमति देता है । और आप इसे पाइपों में इस्तेमाल कर सकते हैं :)
पहले हम एक नए ऑपरेटर को परिभाषित कर सकते हैं,
"%ni%" = Negate( "%in%" )फिर, एक्स की तरह नहीं हटा में
x <- 1:10
remove <- c(2,3,5)
x <- x[ x %ni% remove ]या हटाने के लिए क्यों जाएं, सीधे जाएं
x <- x[ x %ni% c(2,3,5)]अपडेट करें:
उपरोक्त सभी उत्तर बार-बार दिए गए मानों के लिए काम नहीं करेंगे, @ BenBolker का उत्तर duplicated()यह है कि यह हल करता है:
full_vector[!full_vector %in% searched_vector | duplicated(full_vector)]मूल उत्तर: यहां मैं इसके लिए एक छोटा सा कार्य लिखता हूं:
exclude_val<-function(full_vector,searched_vector){
found=c()
for(i in full_vector){
if(any(is.element(searched_vector,i))){
searched_vector[(which(searched_vector==i))[1]]=NA
}
else{
found=c(found,i)
}
}
return(found)
}तो, चलो कहते हैं full_vector=c(1,2,3,4,1)औरsearched_vector=c(1,2,3) ।
exclude_val(full_vector,searched_vector)(4,1) वापस आएगा, हालांकि उपरोक्त उत्तर बस वापस आ जाएंगे (4)।
full_vector[!full_vector %in% searched_vector | duplicated(full_vector)]?
full_vector = c(1,1,1,2,3); searched_vector = c(1,1,3);- जो 1, 1, 2सही उत्तर के बजाय पैदा करता है 1, 2।
removeif <- function(from, where) { for (i in where) if (i %in% from) {from = from[-match(i, from)]}; from}
q <- c(1,1,2,2,3,3,3,4,4,5,5,7,7)
rm <- q[11]
remove(rm)
q
q[13] = NaN
q
q %in% 7यह एक वेक्टर में 13 को एक संख्या (NAN) नहीं के रूप में सेट करता है, यह गलत निष्कासन (q [c (11,12,13))] दिखाता है यदि आप यह कोशिश करते हैं कि आप देखेंगे कि हटाएं फ़ंक्शन वेक्टर नंबर पर काम नहीं करता है। आप पूरे वेक्टर को हटा देते हैं लेकिन शायद एक भी तत्व नहीं है।
वहाँ भी है subsetजो कभी-कभी उपयोगी हो सकता है:
a <- sample(1:10)
bad <- c(2, 3, 5)
> subset(a, !(a %in% bad))
[1] 9 7 10 6 8 1 4
setdiffबेहतर है, क्योंकि यह एक ऑपरेशन में सब कुछ करता है, और केवल एक बार संशोधित वेक्टर का संदर्भ देता है।