Commits

Giovanni Marco Dall'Olio  committed 157e194

SIMS: increased the alpha transparency

  • Participants
  • Parent commits bc18a6b

Comments (0)

Files changed (3)

File results/plots/selection_vs_neutral/simulations_NeutralVsSelection.pdf

Binary file modified.

File results/plots/selection_vs_neutral/simulations_NeutralVsSelection_debug.pdf

Binary file modified.

File src/plot_simulations_NeutralVsSelection.R

 #        current_data.glob[realvalues,]$value =  -current_data.glob[realvalues,]$value
         neutralVsSelectionPlot = list(base_neutralVsSelectionPlot,
 #                                      geom_bar(aes(abs(value), color=dataset, fill=dataset), stat='bin', binwidth=0.1, position='dodge'),
-                                      geom_density(aes(value, color=dataset, fill=dataset), alpha=0.2, stat='bin', binwidth=0.1, position='dodge'),
+                                      geom_density(aes(value, color=dataset, fill=dataset), alpha=0.6, stat='bin', binwidth=0.1, position='dodge'),
 #                                      geom_freqpoly(x=aes(abs(value), colour=dataset, group = dataset),  stat='bin'),
-                                      facet_wrap(~network_property, scales='free')
-                                      
+                                      facet_wrap(~network_property, scales='free'),
+                                      scale_fill_discrete(limits=c("neutral",  "recent"), labels=x_labels),
+                                      scale_color_discrete(limits=c("neutral",  "recent"), labels=x_labels)
+                                  
                                       )
     } else {
         neutralVsSelectionPlot = list(base_neutralVsSelectionPlot, 
     results_and_annotations = rbind(neutralsims, selectionsims)
     x_labels = c(
 #            "Real data,\nchromosome 22",
-             "Neutral\nSimulations", 
-            "Recent compl. sweep\nSelection coeff.: 0.015\nFinal Freq.: 0.99\nSweep ended:\n0 generations ago"
+             "Neutral\nSimulations\n", 
+            "Recent compl. sweep\nSelection coeff.: 0.015\nFinal Freq.: 0.99\nSweep ended:\n0 generations ago\n"
             )
 
 }