# Use theme_midr() with ggplot2
X <- data.frame(x = 1:10, y = 1:10)
ggplot2::ggplot(X) +
ggplot2::geom_point(ggplot2::aes(x, y)) +
theme_midr()
ggplot2::ggplot(X) +
ggplot2::geom_col(ggplot2::aes(x, y)) +
theme_midr(grid_type = "y")
ggplot2::ggplot(X) +
ggplot2::geom_line(ggplot2::aes(x, y)) +
theme_midr(grid_type = "xy")
# Use par.midr() for base R graphics
old.par <- par.midr()
plot(y ~ x, data = X)
par(old.par)
Run the code above in your browser using DataLab