从 r 中的数据集中删除尾随的 0 和 1

Question

我有一个这样设置的数据集：

鸟	结果
一种	0
一种	0
一种	1
一种	1
乙	0
乙	1
乙	0
C	1
C	1
C	1

对于最后结果为 0 的所有鸟，我删除了所有尾随的 0 和尾随 0 之前的最后一个 1。 我使用了以下代码：

detect <- detect %>% 
          group_by(bird) %>% 
          mutate(new = cumsum(outcome)) %>%
          filter(if(last(outcome) == 0) new <max(new) else TRUE) %>%
          ungroup %>%
          select(-new)

这段代码工作得很好并产生了这个输出：

鸟	结果
一种	0
一种	0
一种	1
一种	1
乙	0
C	1
C	1
C	1

只有 b 被修剪，因为它是唯一最后一次剩余观察值为 0 的鸟。我想扩展代码并为最后一次观察值为 1 的鸟修剪最后 1 次观察值。我希望输出看起来像这样：

鸟	结果
一种	0
一种	0
一种	1
乙	0
C	1
C	1

最后剩余观察值为 1 的鸟将其最后 1 移除，而最后剩余观察值为 0 的鸟具有尾随 0，并且移除 0 之前的最后 1。 但是，我希望这种修剪同时运行，而不是一个接一个。 例如，如果我有一只结果为 0001100 的鸟，我希望删除尾随的 0 和最后一个 1 以生成 0001。我不想再次修剪它并删除最后剩下的 1。

Answer 1

detect %>% 
  group_by(bird) %>% 
  mutate(new = cumsum(outcome)) %>%
  filter(if(last(outcome) == 0) new < max(new) else TRUE) %>%
  select(-new) %>%
  filter(!(row_number() == n() & last(outcome) == 1)) %>%
  ungroup()  
# A tibble: 6 × 2
#   bird  outcome
#   <chr>   <int>
# 1 a           0
# 2 a           0
# 3 a           1
# 4 b           0
# 5 c           1
# 6 c           1

---

使用这些数据：

detect = read.table(text = 'bird    outcome
a   0
a   0
a   1
a   1
b   0
b   1
b   0
c   1
c   1
c   1', header = T)

Answer 2

你可以这样做：

df %>%
  group_by(bird) %>%
  summarise(outcome = str_remove(str_c(outcome, collapse = ""), "(10+$)|(1$)")) %>%
  separate_rows(outcome, sep="(?<=.)(?=.)", convert = TRUE)

# A tibble: 6 x 2
  bird  outcome
  <chr>   <int>
1 a           0
2 a           0
3 a           1
4 b           0
5 c           1
6 c           1