如何 plot stat_mean 用於 R ggplot2 中的散點圖？

Question

對於每個處理tmt ，我想 plot 使用 ggplot2 中具有不同顏色大小的 stat_summary 的手段。 我發現在當前點上繪制了多種方法。 不知道如何糾正它。

df <- data.frame(x = rnorm(12, 4,1), y = rnorm(12, 6,4), tmt = rep(c("A","B","C"), each = 4))

  ggplot(aes(x = x, y = y, fill  = tmt), data = df) +
  geom_point(shape=21, size=5, alpha = 0.6) +
  scale_fill_manual(values=c("pink","blue", "purple")) +
  stat_summary(aes(fill = tmt), fun = 'mean', geom = 'point', size = 5) + 
  scale_fill_manual(values=c("pink","blue", "purple"))

Plot 沒有最后兩行代碼

Plot 附全碼

Answer 1

使用stat_summary計算每對x和tmt的y平均值。 如果您想要每個tmt的 x 的平均值和 y 的平均值，我建議在 ggplot 之外手動計算平均值，並使用第二個geom_point到 plot 平均值。 在下面的代碼中，我增加了大小並使用矩形作為手段：

df <- data.frame(x = rnorm(12, 4,1), y = rnorm(12, 6,4), tmt = rep(c("A","B","C"), each = 4))

library(ggplot2)
library(dplyr)

df_mean <- df |> 
  group_by(tmt) |> 
  summarise(across(c(x, y), mean))

ggplot(aes(x = x, y = y, fill  = tmt), data = df) +
  geom_point(shape=21, size=5, alpha = 0.6) +
  geom_point(data = df_mean, shape=22, size=8, alpha = 0.6) +
  scale_fill_manual(values=c("pink","blue", "purple"))