如何计算在代表班级特定作业的列中得分为 >1 的按种族/民族分组的学生百分比？

data <-
tibble::tribble(
~id, ~grade, ~race_ethnicity,
1L,     0L,           "White",
2L,     2L,           "Asian",
3L,     2L,        "Hispanic",
4L,     0L,           "Asian",
5L,     3L,           "Black",
6L,     1L,           "White",
7L,     2L,        "Hispanic",
8L,     1L,           "Black"
) 
data %>%
group_by(race_ethnicity) %>% 
summarise(percent = mean(grade > 1)) %>%
mutate(percent = scales::label_percent()(percent))
# A tibble: 4 x 2
race_ethnicity percent
<chr>          <chr>  
1 Asian          50%    
2 Black          50%    
3 Hispanic       100%   
4 White          0%