In a ggplot I struckling with legends. I have this code:
l<-factor(c(legend_1, legend_2,legend_3,legend_4,legend_5,legend_6,legend_7,legend_8),
levels=c(legend_1, legend_2,legend_3,legend_4,legend_5,legend_6,legend_7,legend_8))
ggplot(df_selected, aes(x=sec)) +
geom_line(aes(y=M1),color='orange', size=1)+
geom_line(aes(y=M2),color='red', size=1) +
geom_line(aes(y=M3),color='forestgreen', size=1) +
geom_line(aes(y=M4),color='black', size=1) +
geom_line(aes(y=(PAR1/f_CH4)+minCH4),color='orange', size=1,linetype="dashed") +
geom_line(aes(y=(PAR2/f_CH4)+minCH4),color='red', size=1,linetype="dashed") +
geom_line(aes(y=(PAR3/f_CH4)+minCH4),color='forestgreen', size=1,linetype="dashed") +
geom_line(aes(y=(PAR4/f_CH4)+minCH4),color='black', size=1,linetype="dashed") +
scale_fill_discrete(breaks=l) +
theme_gray() +
labs(title = paste(as.character(plot),"CH4"), y = 'ppm', x= 'Tid (s)', color = '') +
theme(plot.title = element_text(hjust = 0.5)) +
scale_y_continuous(
"CH4 (ppm)", limits=c(minCH4,maxCH4),
sec.axis = sec_axis(~ (. -minCH4)*f_CH4, name = "PAR")
)
I expected scale_fill_discrete(breaks=l)
to put in the legends.
What am I doing wrong?