我有这段代码:
ggplot(ann_sard,aes(x = Var1, y = value, fill=Var2, group=Var2)) +
geom_area(aes(fill=Var2),position = "identity",alpha=0.5)+
geom_line(aes(ymax=value), position="identity")+
scale_fill_manual(values=c("darkgray"))+
labs(x="Tempo(anni)",y="Biomassa (t.)",title="Landings annuali")+
theme_bw()+ theme(panel.border = element_blank(), panel.grid.major = element_blank(),
panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))