#+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
Comments
0 B
|0 👍
/0 👎
0 B
|👍
/👎