为什么文字会出现在图例中？

Question

library(ggplot2)
library(ggrepel)
set.seed(1234)
ss <- sample(1:32, 10)
df <- mtcars[ss, ]

ggplot(df, aes(wt, mpg))+ geom_point(col = "red") + 
  geom_label_repel(aes(label = rownames(df), fill = factor(cyl)), size = 5,
                   hjust = 1,fontface = 3)

在传说中，为什么'a'出现在4,6,8旁边？

Answer 1

a 表示geom_label_repel() 添加的文本，它与您的标签的字体、颜色等相匹配。

下图显示了包示例小插图中显示的ggrepel 包的演示示例之一：

您可以看到相同的内容，但将不同的选项作为参数传递给geom_label_repel()。

如果您确实想从图例中删除字母“a”，您可以重新定义图例键，如 here 所示：

# save original legend key for later
oldK <- GeomLabelRepel$draw_key

# define new key without the text label
library(grid)
GeomLabelRepel$draw_key <- function (data, params, size) { draw_key_rect(data) }

# plot
ggplot(df, aes(wt, mpg))+ geom_point(col = "red") + 
  geom_label_repel(aes(label = rownames(df), fill = factor(cyl)), size = 5,
                  fontface = 3)

# reset key
GeomLabelRepel$draw_key <- oldK