R/barplot_three_way_percent.R

In stevenndungu/quickr: Steven's Automated Data Analytics

#' A function  that plots a three way barplot with labels (Percentages) see example

#' @param df A data frame with x variable, y variable and the factor variable.
#' @param x_variable the variable that will form the x-axis
#' @param y_variable the variable that will form the y-axis
#' @param groupby_variable the factor variable that holds the groupings
#' @param title the title of the plot
#' @param xlablabel the x label of the plot
#'  @param ylablabel the y label of the plot
#'  @param scale_values Specify the factor groups with the colours you would like them to take eg "MMale"  =  "#66AAD7"
#'  @param sizee the size of title
#'  @param angle the of lables
#'  @param sizelabel the size of labels


#'
#' @examples
#'
#'
#' @export
#'

threeway_barplot_percent <- function(df,x_variable, y_variable,groupby_variable, title, xlablabel  =  "",ylablabel  =  "Percent",scale_values  =  c(), sizee  =  12,angle = 0,sizelabel = 3){
  ggplot2::ggplot(df, mapping  =  ggplot2::aes(x  =  {{x_variable}}, y  =  {{y_variable}}, fill  =  {{groupby_variable}}))  +
    ggplot2::geom_bar(stat  =  "identity", position  =  position_dodge(.85),width = 0.75)  +
    ggplot2::geom_text(ggplot2::aes(label  = round(Percentage)), family = "Source Sans Pro Semibold",vjust  = -0.25, size  =  sizelabel, position  =  ggplot2::position_dodge(0.85)) +
    ggplot2::scale_fill_manual("legend", values  =  scale_values) +
    ggthemes::theme_hc() + ggplot2::theme(plot.title  =  ggplot2::element_text(size  =  sizee, hjust  =  0.5),
                                          plot.subtitle  =  ggplot2::element_text(hjust  =  0.5),
                                          text  =  ggplot2::element_text(size = 12, family = "Source Sans Pro Semibold"),
                                          panel.border  =  ggplot2::element_blank(),
                                          axis.text.x  =  ggplot2::element_text(angle  =  angle, hjust  =  0.5),
                                          panel.grid.major  =  ggplot2::element_blank(),
                                          panel.grid.minor  =  ggplot2::element_line(size  =  0.6,colour  = "gray"),
                                          axis.line.x  =  ggplot2::element_line(color = "gray", size  =  1),
                                          legend.position = "right",legend.title  =  ggplot2::element_blank()) +
    ggplot2::ggtitle(title) +
    ggplot2::ylab(ylablabel) +
    ggplot2::xlab(xlablabel)
}


#threeway_barplot_percent(df  =  res ,x_variable  =  g1a4, y_variable  =  Percentage, groupby_variable  =  g1a6, title  =  "Number of respondents from  Kebelle by Gender", xlablabel  =  "",ylablabel  =  "Percent",scale_values  =  c( "Male"  =  "#0071BC","Female"  =  "#CCE3F2" ), angle = 90)

# busara::threeway_barplot_percent(df  =  res, # data frame
#                                  x_variable   =  g1a3, # X variable of the data frame
#                                  y_variable  =  Total_count, # Y variable of the data frame
#                                  groupby_variable  =  g1a6, # Grouping variable
#                                  title  =  "Number of respondents from  Woreda by Gender", # Title
#                                  xlablabel  =  "", # X axis label
#                                  ylablabel  =  "Frequency", #Y axis label
#                                  scale_values  =  c( "Male"  =  "#0071BC",
#                                                      "Female"  =  "#CCE3F2" ),#Assign the lables colours
#                                  sizee = 12, # Font size
#                                  angle = 0) #Angle inclination of X axis labels