examples/line_plots.R

In backlin/treesmapstheorems: ggplot themes following the principles in Trees, Maps, and Theorems

library(ggplot2)
library(grid)
library(gridExtra)

set.seed(123)
plot_data <- data.frame(
  Time = as.Date('2016-01-01') + 0:100,
  Estimate = cumsum(rnorm(101)),
  s = cumsum(rgamma(101, .1, 10))
)

p_default <- ggplot(plot_data, aes(x = Time, y = Estimate)) +
  geom_line() +
  geom_ribbon(aes(ymin = Estimate - s, ymax = Estimate + s), fill = "#00000022") +
  scale_x_date(breaks = range(plot_data$Time)) +
  scale_y_continuous(
    breaks = c(0, range(plot_data$Estimate)),
    labels = function(x) sprintf("%.2f USD", x)
  )

grid.arrange(
  p_default,
  p_default + line_theme(),
  p_default + line_theme(box = TRUE),
  nrow = 2, ncol = 2
)