如何在 ggplot 图的图例中添加额外的符号？

Question

我想在 ggplot 图的图例中添加一个符号。ggplot 的符号代码如下所示，我的问题是，如何绘制图片中圈出的 (*) 符号？

  library(ggplot2 )
ToothGrowth$dose <- as.factor(ToothGrowth$dose)
p <- ggplot(ToothGrowth, aes(x=dose, y=len, fill=dose)) + 
  geom_boxplot()
p

Answer 1

这需要一些手工调整，以获得正确的定位，但您可以添加一个符号作为用曲线图的注释外annotate，并coord_cartesian用clip = off。从这个答案中得到的一些提示。

ToothGrowth$dose <- as.factor(ToothGrowth$dose)

p <- ggplot(ToothGrowth, aes(x=dose, y=len, fill=dose)) + 
  geom_boxplot() +
  annotate("point", x = 3.66, y = 18.5, shape = 8, size = 2) +
  coord_cartesian(xlim = c(1, 3), clip = "off")

ggsave('test.jpg', p)

编辑：如果有重叠，上面答案中的形状将被图例隐藏。使用 atag是一个类似的解决方案，但允许将符号绘制在图例的顶部。它仍然需要一些手动调整，但坐标是图而不是数据的位置（这似乎是一个好处）。

ToothGrowth$dose <- as.factor(ToothGrowth$dose)

p <- ggplot(ToothGrowth, aes(x=dose, y=len, fill=dose)) + 
  geom_boxplot() +
  labs(tag = '*') +
  theme(plot.tag.position = c(.94, 0.5),
        plot.tag = element_text(size = 30))

ggsave('test.jpg', p)