如何计算表格中 TRUE 的百分比构成？

Question

这是用于派生我的问题中的第一个表的代码。

JH %>% group_by(ATT_ID, CAR=="B") %>%
summarize(count = n(), .groups = "drop")

ATT_ID	CAR == "B"	Count
ONE	FALSE	1
TWO	TRUE	1
THREE	TRUE	3
THREE	FALSE	5
FOUR	FALSE	2
FIVE	TRUE	4
SIX	TRUE	8
SIX	FALSE	4

我怎样才能让上面的表格看起来像：

ATT_ID	Percentage of "B"
ONE	0%
TWO	100%
THREE	37.5%
FOUR	0%
FIVE	100%
SIX	67%

• 请注意某些 ID 如何出现两次以显示 FALSE 和 TRUE 同时存在，而其他 ID 出现一次以表明仅出现一个或另一个。

谢谢

Answer 1

我们可以做

df1 %>% group_by(ATT_ID = factor(ATT_ID, levels = unique(ATT_ID))) %>% summarise(Percentage_of_B = paste0(round(sum(Count[`CAR == "B"`])/sum(Count) * 100, 1), "%"))