R 绘制ggplot中数量相等的箱子的平均x和平均y？

我想把一个人口分成人数相等的群体。然后在每组的平均X和平均Y处绘制一个点

我在ggplot2中使用stat_summary_bin和分位数breaks。该图表示Y，但X位于分位数的中点

举一个总体的玩具示例，其中最低分位数使其易于查看：

library(tidyverse)
score <- rnorm(95, mean = 100, sd = 5)
score <- c(2, 6, 19, 77, 79, score)
height <- rnorm(100)
df <- data.frame(score, height)

low_pop <- filter(df, score < 80)
mean_low_pop1 <- mean(low_pop$score)
mean_low_pop2 <- mean(low_pop$height)

quantiles <- quantile(df$score, probs = seq(0, 1, 0.05))

ggplot(data = df, aes(x= score, y = height)) +
         stat_summary_bin(fun.y = mean,
                          geom = "point",
                          breaks = quantiles) +
  geom_vline(xintercept = mean_low_pop1) 

库（tidyverse）
分数使用
dplyr
、
数据计算要绘制的分数。表
或
聚合
。然后给
ggplot
您想要绘制的数据。虽然
ggplot
有一些数据聚合功能很好，但当您想做一些有点不寻常的数据操作时，让数据操作包来做比让绘图包来做更容易。
ggplot
非常擅长在y轴上总结事情，但不太擅长在x轴上总结。所以我同意格雷戈的观点。谢谢你们！已经按照建议做了-不敢相信我花了多少时间试图让ggplot这么做：）使用
dplyr
，
数据计算你想要绘制的点。表
或
聚合
。然后给
ggplot
您想要绘制的数据。虽然
ggplot
有一些数据聚合功能很好，但当您想做一些有点不寻常的数据操作时，让数据操作包来做比让绘图包来做更容易。
ggplot
非常擅长在y轴上总结事情，但不太擅长在x轴上总结。所以我同意格雷戈的观点。谢谢你们！已经按照建议做了-不敢相信我花了多少时间试图让ggplot以艰难的方式做到这一点：）