comparison visualize_pore_diameter_aqp.R @ 10:afd0260e676f draft

"planemo upload for repository https://github.com/mesocentre-clermont-auvergne/aubi_piaf commit 3111e03da3d8644ceaf94e9796f6c4206d3fe440-dirty"

9:e5cf7698a2af

if (opt$all_distribution == TRUE) {
  group_all <- c("time", "aqp", "protomer")
  color_all <- "protomer"
  wrap_all <- c("aqp", "protomer")
  title_all <- "Average distance ArR-ArR by protomer anq AQP"
  g_all_distribution <- create_ggplot(tibble_sort_mean_long, tibble_sort_std_long, group_all, color_all, wrap_all, title_all)
  ggsave("Distance_distribution_on_all_protomers.png", g_all_distribution, width = 40, height = 20, units = "cm")
  list_ggplot[[3]] <- g_all_distribution
}

10:afd0260e676f

if (opt$all_distribution == TRUE) {
  group_all <- c("time", "aqp", "protomer")
  color_all <- "protomer"
  wrap_all <- c("aqp", "protomer")
  title_all <- "Average distance ArR-ArR by protomer and AQP"
  g_all_distribution <- create_ggplot(tibble_sort_mean_long, tibble_sort_std_long, group_all, color_all, wrap_all, title_all)
  ggsave("Distance_distribution_on_all_protomers.png", g_all_distribution, width = 40, height = 20, units = "cm")
  list_ggplot[[3]] <- g_all_distribution
}