Изменение символа ключа легенды в ggplot2

Как изменить ключевой символ легенды geom_text? В приведенном ниже примере я хотел бы изменить символ в ключе легенды с нижнего регистра «a», скажем, на верхний регистр «N». Я просмотрел пример выполнения чего-то подобного здесь, но не смог заставить этот пример работать.

# Some toy data
df <- expand.grid(x = factor(seq(1:5)), y = factor(seq(1:5)), KEEP.OUT.ATTRS = FALSE)
df$Count = seq(1:25)

# An example plot
library(ggplot2)
ggplot(data = df, aes( x = x, y = y, label = Count, size = Count)) + 
   geom_text() +
   scale_size(range = c(2, 10))