r - 根据 x 值的 ggplot 点数

Question

我有一个来自 Hadley Wickham 的 ggplot2 书中的问题。
我在这里有这个数据框:

class <- mpg %>%
   group_by(class) %>% 
   summarise(n = n(), hwy = mean(hwy))

我想绘制一个如下所示的图形:


我试过:

class %>% ggplot(aes(n, hwy)) +
          geom_count()

这并没有给我上面的图表。
有人有任何有用的建议吗？

Answer 1

试试这个，感谢@JakeKaupp:

library(dplyr); library(ggplot2)
class <- mpg %>%
 count(class) %>% 
 mutate(label = paste0("n = ", n))

ggplot(data = mpg, aes(class, hwy)) +
 geom_jitter(width = 0.1) +
 stat_summary(geom = "point", fun.y = mean, colour = "red", size = 5) +
 geom_text(data = class, aes(y = 10, label = label))