27 lines
No EOL
811 B
R
27 lines
No EOL
811 B
R
#!/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) |