r语言 - 如何汇总两列中的数据满足某些条件/标准的数字/总体(通过使用"dplyr")？

Question

这是样本数据和测试结果:

tta <- data.frame(v1=c(8, 6, 1, 3, 8, 3, 3, 4, 5, 5, 7, 3, 4, 2, 8, 2, 2, 2, 5, 8, 4, 5, 3, 5, 3),
v2=c(9, 5, 3, 5, 4, 4, 8, 3, 1, 3, 3, 7, 7, 7, 9, 3, 7, 3, 3, 8, 4, 6, 3, 7, 5),
group=c(rep(c(1:5), each=5)))
## not perfect and need downstream analysis or merge
resulta <- tta %>%
filter(v1<=6 & v2<=6) %>%
group_by(group) %>%
summarise(n=n(), frac=n/5)
## resulta
##     lost the group 3 that has no data meet the criterion that "v1<=6 & v2<=6"
## 
## # A tibble: 4 × 3
##   group     n  frac
##   <int> <int> <dbl>
## 1     1     3   0.6
## 2     2     4   0.8
## 3     4     3   0.6
## 4     5     4   0.8
## expect results
##
## # A tibble: 4 × 3
##   group     n  frac
##   <int> <int> <dbl>
## 1     1     3   0.6
## 2     2     4   0.8
## 3     3     0   0.0
## 4     4     3   0.6
## 5     5     4   0.8
##

有两个问题:

1. 丢失没有符合标准("v1<=6 &v2<=6")如果您先使用filter。
2. frac=n/5:如果组数据不是5行或随机长度，则总体计算不完善。

有解决方案吗?除了dplyr以外的另一种方法也是可以的。谢谢你的帮助

Answer 1

你可以试试，

tta %>%
mutate(key = as.numeric(v1<=6 & v2<=6)) %>%
group_by(group) %>%
summarize(n = sum(key), frac = n/n())
group     n  frac
<int> <dbl> <dbl>
1     1     3   0.6
2     2     4   0.8
3     3     0   0  
4     4     3   0.6
5     5     4   0.8