使用 stat_summary (ggplot) 在图上堆叠不同的变量

Question

上下文：我想以图形方式比较实验期间工作量和信任度随时间的演变。时间由 2 个方块表示。

问题：我试图在同一张图上用不同的单位绘制不同的变量来比较演变。我只发现它适用于 geom_line，但不适用于 stat_summary。

数据：x 是代表时间的“块”（2 个块）。用于 y 的变量是“Workload”和“Trust”（都是从 1 到 5，通过询问主题获得）。 提供一些数据：

data = data.frame("Subject" = c(1,1,2,2,3,3), "Block" = c(1,2,1,2,1,2), "Workload" = c(1,5,2,4,3,3), "Trust" = c(4,1,3,2,2,1))

我试过了，它有效：

ggplot(data, aes(Block)) + geom_line(aes(y = Trust)) + geom_line(aes(y = Workload))

但是它并没有产生令人信服的结果：因为我有多个点，它为每个值链接它们，以便我只获得垂直特征。考虑到 geom_line 应该做什么，这是完全正常的。 所以我仍然可以计算每个块和每个变量的平均值，但是我想知道是否可以使用 stat_summary 获得直接结果，使用类似的东西：

ggplot(data, aes(Block)) + stat_summary(fun.y = mean, geom = line, aes(y = Trust)) + stat_summary(fun.y = mean, geom = line, aes(y = Workload))

感谢任何人花一点时间尝试回答这个问题。

祝你有美好的一天！

像素

Answer 1

我建议在绘图之前汇总您的数据。在这里考虑：

library(tidyverse)
df <- data_frame("Subject" = c(1,1,2,2,3,3), 
                 "Block" = c(1,2,1,2,1,2),
                 "Workload" = c(1,5,2,4,3,3), 
                 "Trust" = c(4,1,3,2,2,1))
grouped <-
  df %>%
  group_by(Block) %>%
  summarise(trust = mean(Trust),
            workload = mean(Workload))

ggplot(grouped, aes(x = Block)) + 
  geom_line(aes(y = trust)) + 
  geom_line(aes(y = workload))