loosely-coupled-dss/results/analysis.R
2021-05-08 21:38:26 +02:00

10 lines
311 B
R

library("tidyverse")
data=read_csv("results.csv")
final=data%>%group_by(simkey)%>%summarize(energy=mean(energy),sd=sd(energy))
ggplot(final,aes(x=simkey,y=energy))+geom_bar(stat="identity")+
xlab("Scenario")+ylab("Energy (J)")+
geom_errorbar(aes(ymin=energy-sd, ymax=energy+sd),width=.2,size=1.5)