Почему текст появляется в легенде?

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)

В легенде, почему "а" появляется рядом с 4,6,8?

Answer 1

a символизирует текст, добавленный geom_label_repel() и он соответствует шрифту, цвету и т. д. ваших ярлыков.

На рисунке ниже показан один из демонстрационных примеров ggrepel Пакет показан в примерах упаковки виньетки:

Вы можете увидеть то же самое, но с разными параметрами, переданными в качестве аргументов geom_label_repel(),

Если вы действительно хотите удалить букву "а" из легенды, вы можете переопределить ключ легенды, как показано здесь:

# 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