为什么文字显示在图例中？

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”从图例可以重新定义图例标示如图所示在这里：

# 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