R/ggshadow.R

In Brattle/BrattleExtras: Functions and other objects for Brattle projects

ggshadow_histogram <- function(data, mapping = aes(), facet_var,
  nrow = NULL, ncol = NULL,
  bg_fill = "grey", bg_alpha = 0.5, ...){
  assert_is_subset(facet_var, colnames(data))
  ggplot(data, mapping) +
    geom_histogram(data = data[, !names(data) %in% facet_var], fill = bg_fill, alpha = bg_alpha) +
    geom_histogram(...) +
    facet_wrap(facet_var, nrow, ncol)
}

ggshadow_point <- function(data, mapping = aes(), facet_var,
  nrow = NULL, ncol = NULL,
  bg_color = "grey", bg_alpha = 0.5, ...){
  assert_is_subset(facet_var, colnames(data))
  ggplot(data, mapping) +
    geom_point(data = data[, !names(data) %in% facet_var], color = bg_color, alpha = bg_alpha) +
    geom_point(...) +
    facet_wrap(facet_var, nrow, ncol)
}

ggshadow_line <- function(data, mapping = aes(), facet_var,
  nrow = NULL, ncol = NULL,
  bg_color = "grey", bg_alpha = 0.5, ...){
  assert_is_subset(facet_var, colnames(data))
  ggplot(data, mapping) +
    geom_line(data = data[, !names(data) %in% facet_var], color = bg_color, alpha = bg_alpha) +
    geom_line(...) +
    facet_wrap(facet_var, nrow, ncol)
}