#!/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)