Estaba tratando de trazar algunos datos predichos frente a los reales, algo que se parece a lo siguiente:

# Some random data
x <- seq(1: 10)
y_pred <- runif(10, min = -10, max = 10)
y_obs <- y_pred + rnorm(10)
# Faking a CI
Lo.95 <- y_pred - 1.96
Hi.95 <- y_pred + 1.96
my_df <- data.frame(x, y_pred, y_obs, Lo.95, Hi.95)

ggplot(my_df, aes(x = x, y = y_pred)) +
  geom_line(aes(colour = "Forecasted Data"), size = 1.2) +
  geom_point(aes(x = x, y = y_obs, colour = "Actual Data"), size = 3) +
  geom_ribbon(aes(ymin=Lo.95, ymax=Hi.95, x=x, linetype = NA,  colour = "Confidence Interval"), alpha=0.2) +
  theme_grey() +
  scale_colour_manual(
    values = c("gray30", "blue", "red"),
    guide = guide_legend(override.aes = list(
      border=c(NA, NA, NA), 
      fill=c("gray30", "white", "white"),
      linetype = c("blank", "blank", "solid"),
      shape = c(NA, 19, NA)))) 

La trama se ve así:

El único problema que tengo con este gráfico es el borde rojo que rodea el símbolo del elemento de leyenda para la línea (es decir, los datos pronosticados). ¿Hay alguna forma de eliminarlo sin romper el resto de mi trama?