在R中按组查找超额百分比？

Question

我有一个缺失值的数据集，我想找出每组大肠杆菌超过500,200，中位数和第95百分位数的百分比？

Site    Ecoli
A   234
A   450
A   500
A   1096
A   295
A   4567
A   2344
A   234
A   450
B   500
B   1096
B   295
B   4567
B   2344
B   
B   
B   
B   

我从下面的代码开始

table=dat %>% group_by(Site) %>% mutate(E.Coli>500)

Answer 1

在按“Site”分组后，我们可以在逻辑条件下使用mean将其转换为百分比。如果要创建列，请在group_by之后使用mutate而不是summarise

library(dplyr)
dat %>%
     group_by(Site) %>%
     summarise(PercExeedover500 = 100 *mean(E.Coli > 500, na.rm = TRUE),
               PercExeedover200 = 100 *mean(E.Coli > 200, na.rm = TRUE),
                Quantile95th = quantile(Ecoli, prob = .95, na.rm = TRUE))