0
ggplot(data.nona2,aes(x=uur.van.het.jaar,y=Verbruik.huis.overig.kWh))+
labs(color='Scenario') +
scale_x_discrete(limits=c(2736:2759),
breaks=c(2744,2748,2754,2759),
labels=c("08:00","12:00","18:00","24:00"),
name='tijd (uren)') +
scale_y_discrete(limits=c(0:0.5),
breaks=c(0,0.25,0.5),
labels=c('0','0.25','0.5'),name='kWh') +
scale_colour_brewer(palette="Set1") +
coord_cartesian(xlim=c(2736,2759),ylim=c(0,0.5)) +
geom_ribbon(data=data.nona2,
aes(x=uur.van.het.jaar,
ymin=0,ymax=Verbruik.boiler.kWh,scenario,
alpha=1,fill="verbruik boiler"),se=F) +
geom_ribbon(data=data.nona2,
aes(x=uur.van.het.jaar,ymin=0,ymax=Verbruik.huis.overig.kWh,
scenario, alpha=.8,fill="verbruik huis"),se=F) +
facet_grid(scenario~.,scales='free_y') +
geom_ribbon(data=data.nona2,
aes(x=uur.van.het.jaar,ymin=0,ymax=PV.opwek.kWh,scenario,
alpha=0.7,fill="PV opwek"),se=F) +
scale_fill_manual(name = 'Energie verbruik',
values=c("verbruik boiler" = "darkred",
"verbruik huis" = "darkgreen",
'PV opwek' = 'darkblue')) +
theme_pander() +
guides(group=FALSE)
可惜我不能分享我的实际数据,我知道这将大大apreciated。我已经搜索了很多解决方案,以便我最后的希望能够延伸到阅读本文的任何人。 (我的价值观是连续的)。我该如何解决它?
我们不需要您的实际数据,但我们确实需要一些数据来使这个问题[重复性(http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible例如),否则很难帮助你。请参阅提供的关于如何做到这一点的链接。 – MrFlick