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

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