使用 ggrepel 将平均值显示为文本标签答案

【问题标题】：use ggrepel to display mean value as a text label使用 ggrepel 将平均值显示为文本标签
【发布时间】：2018-02-10 15:30:32
【问题描述】：

我正在创建一个要显示平均值的图。我已经设法同时显示了平均值及其对应的值，但我发现图中的平均值太杂乱了，所以我想使用ggrepel::geom_label_repel 以文本标签的形式显示平均值离数据点更远。我尝试了一些不起作用的方法，如果有人可以帮助我弄清楚如何获得所需的结果，我将不胜感激。谢谢。

library(ggplot2)
#> Warning: package 'ggplot2' was built under R version 3.4.3
library(ggrepel)
#> Warning: package 'ggrepel' was built under R version 3.4.2


# function to plot mean
fun_mean <- function(x) {
  return(data.frame(
    y = as.numeric(as.character(mean(x, na.rm = TRUE))),
    label = as.numeric(as.character(mean(x, na.rm = TRUE)))
  ))
}

# preparing the basic plot
plot <-
  ggplot2::ggplot(data = iris,
                  mapping = aes(x = Species, y = Sepal.Length)) +
  geom_point(
    position = position_jitterdodge(
      jitter.width = NULL,
      jitter.height = 0.2,
      dodge.width = 0.75
    ),
    alpha = 0.5,
    size = 3,
    aes(color = factor(Species))
  ) +
  geom_violin(width = 0.5,
              alpha = 0.2,
              fill = "white") +
  geom_boxplot(
    width = 0.3,
    alpha = 0.2,
    fill = "white",
    outlier.colour = "black",
    outlier.shape = 16,
    outlier.size = 3,
    outlier.alpha = 0.7,
    position = position_dodge(width = NULL)
  ) +
  theme(legend.position = "none")


# add the mean label to the plot
plot <- plot +
  stat_summary(
    fun.y = mean,
    geom = "point",
    colour = "darkred",
    size = 5
  ) +
  stat_summary(
    fun.data = fun_mean,
    geom = "text",
    vjust = -1.0,
    size = 5
  )

# see the plot
plot

# adding geom_label_repel
plot <-
  plot +
  ggrepel::geom_label_repel(
    mapping = aes(label = mean),
    fontface = 'bold',
    color = 'black',
    inherit.aes = FALSE,
    max.iter = 3e2,
    box.padding = 0.35,
    point.padding = 0.5,
    segment.color = 'grey50',
    force = 2
  )

plot # doesn't work :(
#> Don't know how to automatically pick scale for object of type function. Defaulting to continuous.
#> Error in (function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE, : arguments imply differing number of rows: 0, 150

由reprex package (v0.1.1.9000) 于 2018 年 2 月 10 日创建。

【问题讨论】：

标签： r ggplot2 data-visualization tidyverse ggrepel

【解决方案1】：

错误在于ggrepel::geom_label_repel() 内的mapping = aes(label = mean) 行。

您可以尝试以下操作：首先创建一个数据集，其中包含变量 Sepal.Length 的每个 Species 的平均值。

mean_dat <- aggregate(data = iris[, c(1, 5)], . ~Species, FUN = mean)
names(mean_dat) <- c("Species", "mean_label") # it is not necessary to rename the columns but it might avoid confusion
mean_dat
#     Species mean_label
#1     setosa      5.006
#2 versicolor      5.936
#3  virginica      6.588

我们将使用此数据集中的列mean_label 作为geom_label_repel(..., mapping = aes(label = mean_label)) 中的label 参数，因此我们需要将mean_dat 作为geom_label_repel 参数传递给geom_label_repel。

plot +
 stat_summary(
  fun.y = mean,
   geom = "point",
   colour = "darkred",
   size = 5
 ) +
 ggrepel::geom_label_repel(
  data = mean_dat,
  mapping = aes(label = mean_label),
  fontface = 'bold',
  color = 'black',
 #inherit.aes = FALSE, #would result in "error: geom_label_repel requires the following missing aesthetics: x, y"
  max.iter = 3e2,
  box.padding = 0.35,
  point.padding = 0.5,
  segment.color = 'grey50',
  force = 2
 )

【讨论】：