计数n_distinct符合条件

Question

我有以下数据框：

df<-data.frame(Name= c(rep("A",3), rep("B",5)), Month = c(1,2,3,1,2,3,3,3), Volume = c(50,0,50,50,50,50,50,50)) 

，我想更新一列“计数”来表示每名独特的月数：

df<-df%>% 
    group_by(Name) %>% 
    mutate(Count = n_distinct(Month)) 

然而，我怎样才能添加一个过滤器，以便我只计算相应的值> 0的月份？这是我期望的输出：

df<-data.frame(Name= c(rep("A",3), rep("B",5)), Month = c(1,2,3,1,2,3,3,3), Volume = c(50,0,50,50,50,50,50,50), Count = c(2,2,2,3,3,3,3,3)) 

谢谢！

Answer 1

你只需要添加一个条件到Month ...

df <- df %>% 
     group_by(Name) %>% 
     mutate(Count = n_distinct(Month[Volume>0])) 

df 
# A tibble: 8 x 4 
# Groups: Name [2] 
    Name Month Volume Count 
    <fctr> <dbl> <dbl> <int> 
1  A  1  50  2 
2  A  2  0  2 
3  A  3  50  2 
4  B  1  50  3 
5  B  2  50  3 
6  B  3  50  3 
7  B  3  50  3 
8  B  3  50  3 

Answer 2

而不是使用n_distinct功能，我们可以使用duplicated功能以及包括Volume > 0在逻辑表达式：

df %>% 
    group_by(Name) %>% 
    mutate(Count = sum(!duplicated(Month) & Volume > 0)) # not duplicated, Volume > 0 

    Name Month Volume Count 
    <fctr> <dbl> <dbl> <int> 
1  A  1  50  2 
2  A  2  0  2 
3  A  3  50  2 
4  B  1  50  3 
5  B  2  50  3 
6  B  3  50  3 
7  B  3  50  3 
8  B  3  50  3 

Answer 3

尝试：

df%>% 
    group_by(Name) %>% 
    mutate(Count = n_unique(Month[Volume >0]))