#+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