结合嵌套在tibble中的列表

Question

我想计算一个表中包含几个从...到以下对的几个的唯一值数量：

tmp <- tribble(
  ~group, ~from, ~to,
       1,     1,  10,
       1,     5,   8,
       1,    15,  20,
       2,     1,  10,
       2,     5,  10,
       2,    15,  18
)

我尝试将所有值嵌套在每行（工作）的列表中，但是将这些嵌套列表组合到一个向量中并计数这些唯一内容无法正常工作。

tmp %>%
  group_by(group) %>%
  rowwise() %>%
  mutate(nrs = list(c(from:to))) %>%
  summarise(n_uni = length(unique(unlist(list(nrs)))))

所需的输出看起来像这样：

tibble(group = c(1, 2),
       n_uni = c(length(unique(unlist(list(tmp$nrs[tmp$group == 1])))),
                 length(unique(unlist(list(tmp$nrs[tmp$group == 2]))))))

# # A tibble: 2 × 2
#    group n_uni
#    <dbl> <int>
#1     1    16
#2     2    14

任何帮助都将不胜感激！

Answer 1

tmp %>% 
  rowwise() %>% 
  mutate(nrs = list(from:to)) %>% 
  group_by(group) %>% 
  summarise(n_uni = n_distinct(unlist(nrs)))

OP的方法的问题是rowwise等同于新分组，它删除了初始group_by step。因此，在创建创建nrs之后，我们必须在group_by 中进行rowwise step。