बराबर मानों के संगत रनों में इंडेक्स जोड़ें

Question

क्या लूप का उपयोग करने से काउंटर इंडेक्स बनाने का कोई तेज़ तरीका है? समान मूल्यों के संगत रनों के भीतर, सूचकांक एक जैसा होना चाहिए। मुझे लूपिंग बहुत धीमी लगती है खासकर जब डेटा इतना बड़ा होता है।

उदाहरण के लिए, यहाँ इनपुट और वांछित आउटपुट है

x <- c(2, 3, 9, 2, 4, 4, 3, 4, 4, 5, 5, 5, 1) 

वांछित जिसके परिणामस्वरूप काउंटर:

c(1, 2, 3, 4, 5, 5, 6, 7, 7, 8, 8, 8, 9) 

ध्यान दें कि गैर -contiguous रन अलग अनुक्रमित है। जैसे मूल्यों 2 और 4

मेरे अक्षम कोड के वांछित अनुक्रमित देखना यह है:

group[1]<-1 
counter<-1 
for (i in 2:n){ 
if (x[i]==x[i-1]){ 
    group[i]<-counter 
}else{ 
    counter<-counter+1 
    group[1]<-counter} 
} 

Answer 1

आप इस तरह संख्यात्मक मान है, तो आप diff और cumsum उपयोग कर सकते हैं मूल्यों में परिवर्तन को जोड़ने के लिए

x <- c(2,3,9,2,4,4,3,4,4,5,5,5,1) 
cumsum(c(1,diff(x)!=0)) 
# [1] 1 2 3 4 5 5 6 7 7 8 8 8 9 

Answer 2

data.table का उपयोग करना, समारोह rleid() है जो:

require(data.table) # v1.9.5+ 
rleid(x) 
# [1] 1 2 3 4 5 5 6 7 7 8 8 8 9 

Answer 3

यह चरित्र मूल्यों का सांख्यिक के साथ काम करेंगे:

rep(1:length(rle(x)$values), times = rle(x)$lengths) 
#[1] 1 2 3 4 5 5 6 7 7 8 8 8 9 

तुम भी थोड़ा अधिक कुशल हो सकता rle सिर्फ एक बार (2x के बारे में तेजी से) पर कॉल करके और एक बहुत मामूली गति सुधार का उपयोग कर बनाया जा सकता है rep.int बजाय rep:

संपादन के लिए

y <- rle(x) 
rep.int(1:length(y$values), times = y$lengths)