R/fct_boxplot.R

In allaway/kairos: kairos: NF Analysis Explorer

##Initial code shamelessly borrowed from the iAtlas Portal
##https://github.com/CRI-iAtlas/shiny-iatlas/blob/09da641f37e7acdc149853a6b818775328054189/functions/barplot.R

create_boxplot <- function(
  df, 
  x_col = "x",
  y_col = "y",
  key_col = NA,
  color_col = NA, 
  label_col = NA,
  split_col = NA,
  xlab = "",
  ylab = "", 
  title = "", 
  source_name = NULL, 
  fill_colors = NA,
  sort = FALSE) {

  if(is.na(key_col)) key_col <- x_col
  if(is.na(color_col)) color_col <- x_col
  if(is.na(label_col)) label_col <- x_col
  if(is.na(split_col)) split_col <- x_col
  if(is.na(fill_colors)) fill_colors <- "#C94281"
  
  if(sort == "desc"){
    df <- df %>% 
      mutate(!!x_col := forcats::fct_reorder(!!sym(x_col), !!sym(y_col), .fun = sd, .desc = T))
  }
  
  wrapr::let(
    alias = c(
      X = x_col, 
      Y = y_col, 
      KEY = key_col,
      COLOR = color_col,
      LABEL = label_col,
      SPLIT = split_col),
    plot_ly(
      df,
      x = ~X,
      y = ~Y,
      split = ~SPLIT,
      color = ~COLOR,
      key = ~KEY,
      text = ~LABEL,
      type = "box", 
      boxpoints = "all", 
      jitter = 0.7,
      pointpos = 0, 
      colors = fill_colors,
      source = source_name
    )) %>% 
    layout(
      title = title,
      xaxis = list(title = xlab),
      yaxis = list(title = ylab)
    ) %>% 
    format_plotly() %>%
    I
  
  
}