[R-es] Añadir leyenda a un gráfico con eje secundario en ggplot

[Raúl Vaquerizo]

Hola,

Me he dado cuenta que no soy capaz de añadir la leyenda a un gráfico con 
eje secundario en ggplot2. Os paso un ejemplo reproducible para ver si 
alguno puede ayudarme:

ejex <- seq(1:20)
peso <- rnorm(20,mean=1000,sd=300)
actual <- rgamma(20,shape=seq(200,20, length.out = 20))
propuesta <- actual + rnorm(20,3,3)

resumen <- cbind.data.frame(ejex, peso, actual, propuesta)

g2 <- ggplot(resumen, aes(x=factor(ejex))) +
   geom_col(aes(y=peso),fill="yellow",alpha=0.5) +
   geom_line(aes(y=actual*10), group=1, color="red") +
   geom_line(aes(y=nueva*10), group=1, color="blue") +
   scale_y_continuous(sec.axis = sec_axis(~./10), name="")
g2

Necesito poner las líneas correspondientes a las variables actual y 
propuesta. Nada más, pero tras varios intentos, exabruptos, scales y 
demás ggplot me está derrotando. Gracias.