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.
_______________________________________________
R-help-es mailing list
[email protected]
https://stat.ethz.ch/mailman/listinfo/r-help-es
