Как создать запись легенды для одной комбинации geom / color в ggplot2?

Question

Я хочу включить легенду в ggplot2 для комбинации geom / color только с одним значением. Например:

library(tidyverse)
lala <- tibble(
  haha = runif(100),
  baba = runif(100) - 2 , 
  equis = 1:100,
  cow = factor(round(runif(100)))
)
  runner <- tibble(ecks = rnorm(100) * 100, why = rnorm(100))

  ggplot(data = lala ) + 
geom_ribbon(mapping = aes(x = equis, ymax = haha, ymin = baba, fill = cow)) + 
geom_point(data = runner, aes( x = ecks, y = why))

ленты получают легенды, но я хочу вторую легенду с одной записью для черных точек. Я знаю, что это глупый пример, но у меня есть более серьезный пример, над которым я работаю. Любой способ сделать это без подписи или аннотации? Спасибо.

Answer 1

Один из способов - использовать аргумент формы в эстетике geom_point(). Затем, если вам нужно переименовать его, вы можете использовать функцию labs().

ggplot(data = lala ) +
  geom_ribbon(mapping = aes(x = equis, ymax = haha,ymin = baba, fill = cow)) +
  geom_point(data = runner, aes(x = ecks, y = why, shape = "")) +
  labs(shape="name goes here")