如何在 tidydata 格式中找到正确的比例？

Question

目前我有一个 tidydata 格式的数据文件，其中有多个主题和单独的答案。所以是这样的

ID |Button-Pressed | Correct_Answer

1  A  B
1  A  B
1  A  B 
1  B  A  
1  B  A  
2  A  B  
2  A  A

所以我想做的是找到每个 ID 的正确比例。我想以某种方式找到第二列和第三列中的值是否对应（实际值不同，一列是两位数之一，另一列是两个字之一）

那么我将如何想出一些东西来让我制定一个表格，其中每个参与者的正确比例都列在旁边的一列中？是否有某种现有功能可以帮助我？

Answer 1

这是一个分组摘要，尽管有一些事情使它难以立即发现。首先，R 在大多数情况下都是矢量化的，所以当我做pressed == correct 时，这会给出一个长度为 7 的逻辑向量。然后，mean 自动将TRUE 转换为1 和FALSE 转换为0，所以平均值实际上只是比例正确。

编辑：包括使用recode 的示例。

library(tidyverse)
tbl <- tibble(
  id = c(1, 1, 1, 1, 1, 2, 2),
  pressed = c("78", "78", "78", "83", "83", "78", "78"),
  correct = c("different", "different", "different", "same", "same", "different", "same")
)

tbl %>%
  mutate(correct = recode(correct, same = "78", different = "83")) %>% 
  group_by(id) %>%
  summarise(pct_correct = mean(pressed == correct) * 100)
#> # A tibble: 2 x 2
#>      id pct_correct
#>   <dbl>       <dbl>
#> 1    1.          0.
#> 2    2.         50.

由reprex package (v0.2.0) 于 2018 年 4 月 4 日创建。