R/plot_qbin_num_bar.R

In qbinplots: Quantile Binned Plots

plot_qbin_num_bar <- function(data, name, fill = "#555555", type=c("median", "mean")){
  bin <- data$bin
  f <- data$f
  # CRAN checks
  med <- NULL

  mapping <- aes(x = f, y = med)
  if (match.arg(type) == "mean"){
    mapping <- aes(x = f, y = mean)
  }

  width <- ggplot2::resolution(f) * 1.0

  ggplot2::ggplot(data, mapping = mapping) +
    ggplot2::geom_col(fill=fill, width = width) +
    ggplot2::labs(y = name) +
    # scale_y_continuous(position = "right") +
    ggplot2::coord_flip()
}


#
#
# pp <- qbin(iris, "Sepal.Length", 75)
#
# n <- pp$num_cols[1]
# d <- pp$data[[n]]
#
# plot_num(d,n)
#
#
# n <- pp$cat_cols[1]
# d <- pp$data[[n]]
# plot_cat(d, n)
#
#
# pn <- lapply(pp$num_cols, function(n){
#   d <- pp$data[[n]]
#   plot_num(d, n)
# })
#
# pc <- lapply(pp$cat_cols, function(n){
#   d <- pp$data[[n]]
#   plot_cat(d, n)
# })
#
# library(patchwork)
# p2 <- Reduce(`+`, pn) + Reduce(`+`, pc)
# p2 + plot_layout(ncol = 5)
#
# p2 <- pn[[1]]
# for (p in pn[-1]){
#   p2 <- p2 + p
# }