playing with dm_om (other)plots data and graph on gid branch

scripts/plotting/other_plots_combined.R

@@ -35,7 +35,7 @@ plot_dr_other_combined_labelled  =  paste0(plotdir,"/", dr_other_combined_labell
 #my_comparisons <- list( c(dr_muts_col, other_muts_col) )
 my_comparisons <- list( c("DM", "OM") )
 
-my_ats = 22# axis text size
+my_ats = 22 # axis text size
 my_als = 20 # axis label size
 my_fls = 20 # facet label size
 my_pts = 22 # plot title size
@@ -45,12 +45,15 @@ my_pts = 22 # plot title size
 #===========
 # Plot1: PS
 #===========
-my_stat_ps = compare_means(param_value~mutation_info, group.by = "param_type"
-                        , data = df_lf_ps,  paired = FALSE, p.adjust.method = "BH")
+# my_stat_ps = compare_means(param_value~mutation_info
+#                            , group.by = "param_type"
+#                            , data = df_lf_ps
+#                            , paired = FALSE
+#                            , p.adjust.method = "BH")
 
 y_value = "param_value"
 
-p1 = ggplot(df_lf_ps, aes(x = mutation_info
+p1 = ggplot(lf_duet, aes(x = mutation_info
                     , y = eval(parse(text=y_value)) ))  + 
   facet_wrap(~ param_type
              , nrow = 1
@@ -61,7 +64,7 @@ p1 = ggplot(df_lf_ps, aes(x = mutation_info
   geom_point(position = position_jitterdodge(dodge.width=0.01)
              , alpha = 0.5
              , show.legend = FALSE
-             , aes(colour = factor(duet_outcome))) +
+             , aes(colour = duet_outcome)) +
   theme(axis.text.x = element_text(size = my_ats)
         , axis.text.y = element_text(size = my_ats
                                      , angle = 0