diff options
| author | Loic Guegan <manzerbredes@mailbox.org> | 2022-11-30 10:01:05 +0100 |
|---|---|---|
| committer | Loic Guegan <manzerbredes@mailbox.org> | 2022-11-30 10:01:05 +0100 |
| commit | 3a4c5500f7c3e139fbb44b2c98343bd0091ae593 (patch) | |
| tree | a0977227382a176e759812a7762636510eef3905 /analysis/days.R | |
| parent | 6e4fbcd47a712e9be62d01eeecf0744a87de2ec8 (diff) | |
Minor changes
Diffstat (limited to 'analysis/days.R')
| -rw-r--r-- | analysis/days.R | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/analysis/days.R b/analysis/days.R index 601f210..ce12930 100644 --- a/analysis/days.R +++ b/analysis/days.R @@ -139,11 +139,12 @@ sapply(c("knn","tree"),function(grp){ plot=plot+geom_point(data=data%>%drop_na(mean_f1_hint),aes(months,mean_f1_hint,color="hint"))+geom_line(data=data%>%drop_na(mean_f1_hint),aes(months,mean_f1_hint,color="hint")) } - plot=plot+xlab("Number of training months")+ylab(paste("Mean",grp,"accuracy"))+ggtitle(paste(grp,"accuracy"))+ + plot=plot+xlab("Number of months")+ylab(paste("Mean",grp,"accuracy"))+ggtitle(paste(grp,"accuracy"))+ # geom_hline(data=metrics_peak%>%filter(model==grp),aes(yintercept=max_accuracy),color="red",size=1)+ # geom_text(data=metrics_peak%>%filter(model==grp),x=0,aes(y=max_accuracy,label = round(max_accuracy,digits=1),vjust=-1),color="red")+ - facet_wrap(~wireless+wakeupfor)+scale_x_continuous(breaks = seq(0, max(result_summary$months), by = 1))+ylim(c(0,1))+labs(color="F1 Score") - ggsave(paste0("figures/months_",grp,".pdf"),width=20,height=15) + facet_wrap(~wireless+wakeupfor)+scale_x_continuous(breaks = seq(0, max(result_summary$months), by = 1))+ylim(c(NA,1))+labs(color="F1 Score")+ + theme(legend.position="top") + ggsave(paste0("figures/months_",grp,".pdf"),width=9,height=8) print(plot) }) |