r - 如果变量观察出现在所有组中，则在 R 中过滤 tibble

Question

library(tidyverse)

dta <- tibble(
  date = c("2000-01-01", "2000-01-02", "2000-01-03", "2000-01-02","2000-01-03"),
  stock = c("A", "A", "A", "B", "B"),
  price = c("price_{A1}","price_{A2}","price_{A3}","price_{B1}","price_{B2}" )
)

数据在此小标题中给出(上面的代码):

# A tibble: 5 x 3
  date       stock price     
  <chr>      <chr> <chr>     
1 2000-01-01 A     price_{A1}
2 2000-01-02 A     price_{A2}
3 2000-01-03 A     price_{A3}
4 2000-01-02 B     price_{B1}
5 2000-01-03 B     price_{B2}

我想排除 1 行，因为日期 2000-01-01 不适用于 tibble 中的所有 stock。

Answer 1

一个选项可能是:

library(dplyr)

dta %>%
  group_by(date) %>%
  filter(n_distinct(stock) != 1)

# A tibble: 4 x 3
# Groups:   date [2]
  date       stock price     
  <chr>      <chr> <chr>     
1 2000-01-02 A     price_{A2}
2 2000-01-03 A     price_{A3}
3 2000-01-02 B     price_{B1}
4 2000-01-03 B     price_{B2}