inst/charts/4.R

In NicolasJBM/writer: Functions and interfaces to support academic writing with R

library(tibble)
library(dplyr)
library(ggplot2)
library(writer)

chart <- dplyr::bind_rows(
  dplyr::bind_rows(list(
    tibble::tibble( color = "blue", price=rnorm(500, 10, 1.9) ),
    tibble::tibble( color = "green", price=rnorm(500, 14.5, 1.9) ),
    tibble::tibble( color = "red", price=rnorm(500, 9.5, 1.9) )
  )) 
) %>%
  ggplot2::ggplot(ggplot2::aes(
    x = price,
    fill = color
  )) +
  ggplot2::geom_histogram(binwidth = 0.5, alpha = 0.5, position = "stack") +
  ggplot2::scale_fill_manual(values = c("blue","green","red")) +
  writer::graph_theme()