knitr::opts_chunk$set( message = TRUE, warning = TRUE, collapse = TRUE, comment = "#>" )
concurve graphs functions via
ggplot2, it is quite easy to customize parts of the plot beyond some of the arguments that are provided in the
ggcurve() function. For example, we are able to provide arguments to the function to give custom titles, subtitles, x-axes, y-axes, fills, and colors. However, we could also do this using the standard
ggplot2 grammar. We'll generate a quick graph to show how.
library(concurve) set.seed(1031) GroupA <- rnorm(500) GroupB <- rnorm(500) RandomData <- data.frame(GroupA, GroupB) intervalsdf <- curve_mean(GroupA, GroupB, data = RandomData, method = "default" ) (function1 <- ggcurve(data = intervalsdf[], type = "c", nullvalue = TRUE))
Those are some of the default options provided to
ggcurve(). We could provide
ggcurve() arguments for the title, subtitle, etc, but we could also do it like so:
library(ggplot2) function1 + labs( title = "Random Title", subtitle = "Random Subtitle", x = "x-axis", y = "y-axis", caption = "Custom Caption" )
If we even wanted to provide a custom theme, we could do the following.
library(cowplot) logo_file <- "https://res.cloudinary.com/less-likely/image/upload/v1575441662/Site/Logo2.jpg" function1 <- function1 + theme_cowplot() function2 <- ggdraw(function1) + draw_image(logo_file, x = 1, y = 1, hjust = 2, vjust = 1.75, width = 0.13, height = 0.2) function2
I've only tried testing this with the
cowplot package, so I cannot say for sure that the functions won't break when applied with other themes.[@Wilke_2019]
The most common way useRs save plots is by going to the plots tab in an IDE like RStudio and clicking "export" and then "save as image" or by using
cowplot has a superior function with far better default options built into it known as