如何在R中按组以数据图格式输出错误/正确答案的结果

Question

我有一个包含两列的数据帧。第一列包含诸如"；Syestem 1〃"Syestem 2〃；，第二列具有表示正确/错误答案的数字。正确表示1，错误表示0。

例如：

SYSTEM	Q1
S1	0
S1	1
S2	1
S2	0
S2	1

使用group_by和summarise可以执行：

dat <- data.frame(
SYSTEM = c("S1", "S1", "S2", "S2", "S2"),
Q1 = c(0L, 1L, 1L, 0L, 1L)
)
library(dplyr)
dat |>
group_by(SYSTEM) |>
summarise(`Correct answers` = sum(Q1 == 1), `Wrong answers` = sum(Q1 == 0), `Total answers` = n())
#> # A tibble: 2 × 4
#>   SYSTEM `Correct answers` `Wrong answers` `Total answers`
#>   <chr>              <int>           <int>           <int>
#> 1 S1                     1               1               2
#> 2 S2                     2               1               3