Eu tenho dados provenientes de dois quadros de dados diferentes. Estou tentando criar legenda para cada quadro de dados. Sei que posso combinar o quadro de dados e fazê-lo, mas, devido à minha fonte de dados, faz mais sentido plotar a partir de dois quadros de dados diferentes.

Por favor, encontre o exemplo simplificado abaixo. Cheguei perto, mas a 'Previsão principal' na legenda é apenas de cor branca. Quero mostrar onde 'Main Forecast' é vermelho por fora e branco por dentro.

x = seq(1,10, 1)
y = seq(10,100, 10)

df  = data.frame(x=x, y=y)
df2 = data.frame(x=5, y=50)

p = ggplot(data=df) + 
  geom_point(data=df,aes(x=x, y=y, color="Weekly Forecast"), fill="red", size=5, shape=16)  + 
  geom_line(data=df,aes(x=x, y=y), color="red", size=1)  + 
  geom_point(data=df2, aes(x=x, y=y, color="Main Forecast"), size=2, shape=16)  +
  scale_color_manual("Legend Title", breaks=c("Weekly Forecast", "Main Forecast"), values = c("white","red"))
p

Qualquer assistência será muito apreciada.