Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #+begin_src R :results output :session *R* :exports both
- k <- df
- for(fmetric in unique(k$metric)){
- folder <- "./papi-core/"
- file <- paste(fmetric, "pdf", sep=".")
- dir.create(folder, showWarnings = FALSE)
- dk <- k %>% filter(metric == fmetric)
- ggplot(data=dk, aes(x=as.factor(app2), y = mean, ymin = mean - se, ymax = mean + se, fill = mapping)) +
- geom_bar(stat = 'identity', position = 'dodge', col = 'transparent') +
- geom_errorbar(width=0.5, size=0.5, position=position_dodge(width=0.9)) +
- theme_bw() +
- facet_wrap(.~app1, ncol=1, scales="free_y") +
- labs(x = "Application B", y = dk[1,]$metric_name, fill="Mapping")
- ggsave(file, path=folder, width=210, height=297, unit="mm")
- }
- #+end_src
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement