R/peek.R

In jjbrehm/BadApple: Functions to simulate bureaucracies

#' peek
#'
#' @param simobj simulation object
#' @param when integer
#'
#' @return ggplot object
#' @export
#' @import dplyr
#'
peek <- function(simobj, when) {
  what <- as_tibble(rearranger(simobj)) %>%
    dplyr::filter(Iteration==when) %>%
    mutate(Who=ifelse((Bureaucrat=="V3"|Bureaucrat=="V4"|Bureaucrat=="V5"), "Saboteur", "Other"))
  ggplot(what, aes(x=Performance, fill=Who)) + geom_histogram()
}