我想把我的传奇一分为二。一种用于geom_lines,另一种用于geom_ribbons。无论如何,我能够为geom_lines构建图例,但无法为geom_ribbons构建图例。
test <- ggplot(UG.1.1, aes(x = Jahr))+
geom_point(aes(y = Frühlingsanfang, colour= "Frühlingsanfang"))+
geom_line(aes(y = Frühlingsanfang,colour= "Frühlingsanfang")) +
geom_point(aes(y = Vegetationsmaximum,colour= "Vegetationsmaximum")) +
geom_line(aes(y = Vegetationsmaximum,colour= "Vegetationsmaximum")) +
geom_point(aes(y = Herbstanfang,colour= "Herbstanfang")) +
geom_line(aes(y = Herbstanfang,colour= "Herbstanfang")) +
geom_ribbon(aes(ymin = Frühlingsanfang_Min, ymax = Frühlingsanfang_Max),
fill="lightgreen",alpha=0.3) +
geom_ribbon(aes(ymin = Herbstanfang_Min, ymax = Herbstanfang_Max),
fill="brown",alpha=0.3) +
scale_colour_manual("",
breaks = c("Herbstanfang", "Vegetationsmaximum", "Frühlingsanfang"),
values = c("green","brown","red"))+
scale_fill_manual("",
breaks = c("Standardabweichung/Herbst","Standardabweichung/Frühling"),
labels= c("Standardabweichung/Herbstanfang","Standardabweichung/Frühlingsanfang"),
values = "brown","lightgreen") +
xlab("Jahr") +
scale_y_continuous("Tag im Jahr", limits = c(50,320)) +
labs(title = "Phänologischer Jahresverlauf im UG.1.1")
直到这里我的情节看起来像这样:
我猜我的scale...
-命令中有问题吗?!
感谢您的帮助!