added combined lineage plot

scripts/plotting/plotting_thesis/basic_barplots_layout.R

@@ -0,0 +1,27 @@
+#!/usr/bin/env Rscript  
+#########################################################
+#main script that generates plot  objects:
+#source("basic_barplots.R")
+#########################################################
+
+
+
+
+#=======================================================================
+#=======
+# output
+#=======
+outdir_images = paste0("~/git/Writing/thesis/images/results/"
+                       , tolower(gene), "/")
+cat("plots will output to:", outdir_images)
+
+df_colname = "duet_outcome"
+
+OutPlot_count = ggplot(df3, aes_string(x = df_colname)) +     
+  geom_bar(aes(fill = eval(parse(text = df_colname)))
+           , show.legend = TRUE) +
+  geom_label(stat = "count"
+             , aes(label = ..count..)
+             , color = "black"
+             , show.legend = FALSE
+             , size = geom_ls)