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)
不幸的是,我无法分享我的实际数据,我知道这将是非常令人遗憾的。我已经搜索了很多解决方案,所以我最后的希望是延伸到阅读此内容的任何人。 (我的价值是连续的)。我该如何解决?
答案 0 :(得分:2)
在c(0:0.5)
中使用c(0, 0.5)
替换scale_y_discrete
可能会有所帮助,因为对于limits
,您需要提供起点和终点,而0:0.5
则返回只需0
。