您可以为 ggplot 中每个因子级别的图例添加计数吗？答案

【问题标题】：Can you add a count to the legend for each level of a factor in ggplot?您可以为 ggplot 中每个因子级别的图例添加计数吗？
【发布时间】：2021-02-12 15:15:21
【问题描述】：

我正在使用 ggplot 生成散点图，并将按给定因子对数据点进行着色。生成的图例详细说明了分配给因子每个级别的颜色，但它是否也可以计算每个因子中的点数。

例如，我已经包含了汽车数据集的代码：

p <- ggplot(mtcars, aes(wt, mpg))
p + geom_point(aes(colour = factor(cyl)))

在这个情节中，我希望得到每个气缸数的计数。所以 4（计数 1）、6（计数 2）和 8（计数 3）。

提前致谢。

【问题讨论】：

标签： r ggplot2 legend

【解决方案1】：

你可以试试这样的

mtcars %>%
  group_by(cyl) %>%
  mutate(label = paste0(cyl, ' (Count ', n(), ')'))  %>%
  ggplot(aes(wt, mpg)) + 
    geom_point(aes(colour = factor(label)))

【讨论】：