In xf15/efficientize: Efficientize writing and programming

knitr::opts_chunk$set(warning = FALSE, message = FALSE, echo = FALSE)

library(dplyr)
library(ggplot2)

theme_manuscript = function(){
  theme_gray(base_size = 10) %+replace%
    theme(
      # shared between slides and manuscript
      plot.title = element_text(size = rel(1)),
      axis.title = element_text(size = rel(1)),
      legend.title = element_text(size = rel(1)),
      legend.text = element_text(size = rel(1)),
      strip.text = element_text(size = rel(1)),
      strip.text.x = element_text(margin=margin(3, 0, 5, 0)),
      axis.text = element_text(size = rel(0.9)),
      legend.position = "bottom",
      strip.text.y = element_text(angle = 0, margin = margin(0, 2, 0, 2))

      # manuscript specific

    )
}

theme_set(theme_manuscript())

# load results

Abstract

Introduction

Method

Participants

Materials

Procedure

Results

Discussion

References

Appendix

xf15/efficientize documentation built on April 16, 2023, 2:16 a.m.