आर: दोहराया मूल्यों निकालें और एक द्विआधारी वेक्टर में पहली एक रखने

Question

मैं बार-बार लोगों को दूर लेकिन एक द्विआधारी वेक्टर में पहली रखने के लिए करना चाहते हैं:

x = c(0,0,1,1,0,1,0,1,1,1,0,1) # the input 
y = c(0,0,1,0,1,0,1,0,1)  # the desired output 

यानी, एक 1 और दो 1 की 1 के पहले और तीसरे सेट को क्रमशः हटा दिया गया है, और सेट में पहला रखा गया है।

मैं cumsum के साथ उपयोग करने की कोशिश कर रहा हूं लेकिन अभी तक इसे अभी तक नहीं समझ पाया है। किसी भी सुझाव का स्वागत है।

Answer 1

का उपयोग rle/inverse.rle

res <- rle(x) 
res$lengths[res$values == 1] <- 1 
inverse.rle(res) 
## [1] 0 0 1 0 1 0 1 0 1 

Answer 2

हम diff उपयोग कर सकते हैं:

x[c(1, diff(x)) == 1 | x == 0] 

Answer 3

x = c(0,0,1,1,0,1,0,1,1,1,0,1) 
x1 <- rle(x) 
x1$lengths[x1$values==1] <- 1 
inverse.rle(x1) 

Answer 4

x = c(0,0,1,1,0,1,0,1,1,1,0,1) 
x[!(x == 1 & #remove each value that is a 1 
    c(x[-1] == 1, FALSE) #followed by a 1 (never the case for the last value) 
)] 
#[1] 0 0 1 0 1 0 1 0 1 

Answer 5

वेक्टर आकार आप इसे माध्यम से लूप सकता है पर निर्भर करता है और मूल्य जोड़कर के लिए शर्तों का उपयोग परिणाम के लिए। आपके दिए गए इनपुट का उपयोग करके यहां एक सरल समाधान है।

x <- c(0,0,1,1,0,1,0,1,1,1,0,1) 
prev <- 0 
y <- c() 
for(i in x){ 
    if (i == 1){ 
    if (prev != 1){ 
     y <- append(y,i) 
    } 
    }else{ 
    y <- append(y,i) 
    } 
    prev <- i 
}