Изменение легенды / ярлыка ggplot с помощью различных руководств

Question

Я пытаюсь изменить метки легенды на ggplot, где у меня есть легенды на 2 эса.С scale_file_manual это работает, но только для одной из двух легенд.Я думаю, что я должен использовать «руководства», которые я уже использовал, чтобы удалить заголовки, а также удалить легенду для 3-го эйса, но мне не удается это сделать.У вас есть решение?

Вот мой код:

p <- ggplot(data, aes(x = Nb))
p + geom_ribbon(aes(ymin = Sandwich.min, ymax = Sandwich.max, fill = 'grey70',alpha=0.8)) +
  geom_ribbon(aes(ymin = Assiette.min, ymax = Assiette.max, fill = '#6495ED80',alpha=0.8)) +
  geom_line(aes(y = Pizza, col = '#FF7F24')) +
  geom_line(aes(y = Sushis, col = '#228B22')) +
  labs(title = "Business lunch cost by number of participants",
       x = "Number of participants",
       y = "Price (Euros)") +
  scale_x_continuous(breaks=seq(1,20,1)) +
  scale_y_continuous(breaks = seq(0,300,50)) +
  theme_light() +
  theme(plot.title = element_text(size = 12, hjust = 0.5)) +
  guides(alpha = FALSE, colour = guide_legend("  "), fill = guide_legend("  ")) +
  scale_fill_manual(
    values=c('#6495ED80','grey70'),
    labels=c("Assiettes","Sandwiches"))