自定义R箱形图

在In中，ggplot您可以通过在通话中设置这些临界值来明确控制这些临界值。

ggplot() +
  geom_boxplot(
    aes(x = 1
        , lower = min(x)
        , middle = median(x)
        , upper = max(x)
        , ymin = min(x)
        , ymax = max(x))
    , stat = "identity"
  )

如果您有多个组，则可能需要先分别计算这些点。在这里，使用dplyr

iris %>%
  group_by(Species) %>%
  summarise(min = min(Petal.Length)
            , max = max(Petal.Length)
            , median = median(Petal.Length)
            ) %>%
  ggplot() +
  geom_boxplot(
    aes(x = Species
        , lower = min
        , middle = median
        , upper = max
        , ymin = min
        , ymax = max)
    , stat = "identity"
  )

如果要添加“传奇”，则可能需要做更多调整。但是，cowplot相对而言，简单地以所需方式创建标记的图并将其用作图例相对容易。在下面，我创建与上述相同的箱线图（但将其保存到变量中），并创建一个新的图线以用作图例（根据需要进行修改）。

basePlot <-
  iris %>%
  group_by(Species) %>%
  summarise(min = min(Petal.Length)
            , max = max(Petal.Length)
            , median = median(Petal.Length)
  ) %>%
  ggplot() +
  geom_boxplot(
    aes(x = Species
        , lower = min
        , middle = median
        , upper = max
        , ymin = min
        , ymax = max)
    , stat = "identity"
  )


legendPlot <-
  data.frame(lower = 1, middle = 2, upper = 3) %>%
  ggplot(
    aes(x = 1
        , lower = lower
        , middle = middle
        , upper = upper
        , ymin = lower
        , ymax = middle
    )
  ) +
  # ggtitle("Legend") +
  geom_boxplot(stat = "identity") +
  scale_y_continuous(
    name = ""
    , breaks = 1:3
    , labels = c("Minimum", "Median", "Maximum")
  ) +
  scale_x_continuous("Legend", position = "top") +
  theme(axis.text.x = element_blank()
        , axis.title.x = element_text(face = "bold"))

然后，加载cowplot（请注意，我正在重置主题，因为会cowplot自动加载它自己的主题，而我不在乎），并使用来创建布局plot_grid。请注意，这里我将创建两个单独的列，以使图例更小并垂直居中。你可以玩rel_widths和rel_heights，如果你要调整的细节。（scale也是一种选择，但我不喜欢它的工作方式rel_widths。）

library(cowplot)
theme_set(theme_minimal())


plot_grid(
  basePlot
  , plot_grid(
    ggplot()
    , legendPlot
    , ggplot()
    , ncol = 1
  )
  , rel_widths = c(1, 0.33)
)

给