R/draw_boxplot.R

In Nicolabo/PERUanalytics: R Package to ease work with data

#' Pearson theme for all plots in presentation 
#' 
#' @param file csv.file in ""
#' @return csv.\code{file} with corect 'euid' columns

# 
# draw_boxplot <- function(data, x, y, ..., boxplot_width = 0.3, 
#                          violin_background = F, width = 0.5, 
#                          legend_title = "Legend",violin_opacity = 0.5,
#                          y_title_name = y, x_title_name = x, save_plot = F,
#                          file_name = "plot", type_f = "png"){
#   if (violin_background == F){
#     plot <- ggplot(data, aes_string(x, y, ...))
#   }
#   else{
#     plot <- ggplot(data, aes_string(x, y, ...))+
#       geom_violin(alpha = violin_opacity, width = boxplot_width*2)
#   }
#   plot <- plot +
#     geom_boxplot(width = boxplot_width)+
#     theme_pearson()+
#     guides(fill = guide_legend(override.aes = list(colour = NA)))+
#     scale_fill_manual(name = legend_title, values = categorical_colors)
#   
#   plot <- describe_axis(x_title_name, y_title_name, plot)
#   if (save_plot != F) save_plot(file_name, plot, type_file = type_f)
#   plot
# }
#