R/percent_df.R

In GenderInfer: This is a Collection of Functions to Analyse Gender Differences

#' Create a dataframe that will be the input to generate stacked bar chart and
#' bullet chart that show percentage to compare proportions among gender.
#'
#' @name percent_df
#' @param data_df, dataframe containing level, lower_CI, upper_CI,
#' significance and female and male percentages from 
#' \code{\link{calculate_binom_baseline}}
#' @returns The output dataframe contains the columns x_values, y_values,
#' gender, labels
#' @export

percent_df <- function(data_df) {

  x_values <- y_values <- gender <- lower_CI <- upper_CI <- NULL
  significance <- labels <- gender <- NULL
  long <- reshape(data_df, direction = "long", v.names = "y_values",
                  timevar = "gender", idvar = "level", varying = 7:8,
                  times = names(data_df)[7:8])
  names(long)[names(long) == "level"] <- "x_values"
  long$label <= ""
  long <- subset(long, select = c(x_values, y_values, lower_CI, upper_CI,
                                      significance, labels, gender))
  long <- long[order(rev(long$gender)), ]
  long
}