在 R 中绘制重复的准确度测量

Question

我有一个包含 80 个项目的 40 个二进制（准确性）度量的 data.frame。此外，这 80 个项目属于一个类别（条件）的两个不同级别（A 和 V）。我把准确度列变成了一个数值变量，这样我就可以对其进行算术运算。我的数据看起来像这样：

Item <- rep(1:80,40)
Condition <- rep(rep(c("A","V"),each=40),40)
accuracyV <- rbinom(1600, size = 1,prob = 0.8)
accuracyA <- rbinom(1600, size = 1,prob = 0.3)
Accuracy <- c(accuracyA,accuracyV)
MyData <- data.frame(Item,Condition,Accuracy)
MyData$Item <- as.factor(MyData$Item)
MyData$Accuracy <- as.numeric(as.character(MyData$Accuracy))

我想要一个散点图或其他类型的图，让我可以查看每个条件下每个项目的平均分数。我的想法是在 x 轴上放置所有 80 个项目，在 y 轴上具有平均准确度，并根据条件为每个项目提供不同的颜色。

我不知道如何绘制图中每个项目的平均准确度。任何帮助表示赞赏。

Answer 1

这是一种方法，虽然我认为 80 个项目可能太多而无法在单个轴上显示，因为它使情节难以阅读：

library(dplyr)
library(ggplot2)

MyData %>% 
  group_by(Item, Condition) %>% 
  summarize(Accuracy = mean(Accuracy)) %>% 
  ggplot(aes(x = Item, y = Accuracy, fill = Condition)) + 
  geom_col() +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

如果你分面情节可能会更清楚一点：

MyData %>% 
  group_by(Item, Condition) %>% 
  summarize(Accuracy = mean(Accuracy)) %>% 
  ggplot(aes(x = Item, y = Accuracy, fill = Condition)) + 
  geom_col() +
  facet_wrap(.~Condition, nrow = 2, ncol = 1, scales = "free") +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))