如何刪除 r 中的特定（並排）重復項？

Question

假設我有以下字符串：

l1 = c(0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1)

而我只想保留“FIRST new 1”，也就是我對上面強的渴望結果是：

l1 = c(0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1)

我試圖移動和減去列表，無論不是 1，都設置為 0； 但這種方式行不通。

Answer 1

你可以試試（基礎R方式）

x <- c(0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1)
y <- rle(x)
z<- cumsum(y$lengths)[y$values == 0] + 1
w <- rep(0, length(x))
w[z] <- 1
w

 [1] 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 0 1

dplyr方式

library(dplyr)
library(xts)
library(data.table)

x <- data.frame(
  l1 = c(0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1)
)
x %>%
  mutate(y = rleid(l1)) %>%
  group_by(y) %>%
  mutate(l1 = ifelse((y %% 2) == first(l1) & row_number(y)>1, 0, l1)) %>%
  ungroup %>%
  select(-y) %>%
  pull(l1)


 [1] 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 0 1

Answer 2

笨拙的方式

bool IsNewOneAppeared = 0
for(int i;i<c.length;i++)
{
   if(IsNewOneAppeared )
   c[i]= 0;
   else if(c[i] equal 1)
   {
     keep 1;
     IsNewOneAppeared =1;
   }
}