R/plot.R

In zhchenyang/tcga: What the Package Does (One Line, Title Case)

#' Plot the ratio
#'
#' @param mutations the data.frame
#' @param asian filter asian
#' @param na omit.na
#'
#' @import ggplot2 showtext
#' @return plot
#' @export
#'
#' @examples
#' \dontrun{
#' ratio_plot(df)
#' }
ratio_plot <- function(out){
  # if (na) mutations <- mutations[!is.na(stages)]
  # if (asian) mutations <- mutations[race == "asian"]
  # mutations$stages <- forcats::fct_relevel(mutations$stages, "i", "ii", "iii", "iv", "v")
  # out <- mutations[,
  #           .(n = sum(iscontain), N = .N),
  #           by = "stages"][order(stages)][     # TODO fixed order
  #             , ratio := cumsum(n)/cumsum(N)
  #           ]
  showtext::showtext_auto(TRUE)

  p <- ggplot(data = out, aes(stages, ratio)) +
    geom_col(aes(stages, 1), width = .5, fill = "#afdfe4") +
    geom_col(aes(stages, ratio), width = .5, fill = "#00a6ac") +
    geom_text(
      aes(
        label = glue::glue("{round(ratio, 4) * 100}%\n({n}\u4eba)"),
        y = ratio + 0.03
      ),
      # position = position_dodge(0.9),
      vjust = 1,
      size = 7
    ) +
    labs(y = NULL, x = NULL,
         title = NULL) +
    scale_y_continuous(labels = scales::percent) +
    coord_cartesian(expand = FALSE) +
    theme_minimal(base_size = 32) +
    theme(plot.title = element_text(hjust = .5))

  print(p)
}