Insert the AAGI logo in any graphical image. Particularly well- suited for use with files created with AAGIThemes. The logo will be inserted in the upper-left of the image with a size of at least 4.6 cm as per AAGI brand guidelines.
Arguments
- file_in
Path to the graphical file to import and add the AAGI logo to apply the logo to.
- file_out
File name to create on disk as a .png format image.
- logo_scale
Scaling for the logo. Defaults to 2.5, larger sizes may be beneficial for larger graphical images than normal reporting and sharing. Care should be taken that the logo follows the AAGI branding guidelines and the size remains at least 4.6 cm.
Author
Adam Sparks, adam.sparks@curtin.edu.au
Examples
library("ggplot2")
p1 <- ggplot(mtcars) +
geom_point(aes(
x = wt,
y = mpg,
colour = factor(gear)
)) +
facet_wrap(~ am) +
theme_aagi()
ggsave(p1, filename = "AAGI.png", path = tempdir())
#> Saving 6.67 x 6.67 in image
add_aagi_logo(file_in = file.path(tempdir(), "AAGI.png"),
file_out = file.path(tempdir(), "AAGI_logo.png"))
#> Loading required namespace: rsvg
x <- magick::image_read(file.path(tempdir(), "AAGI_logo.png"))
print(x)
#> # A tibble: 1 × 7
#> format width height colorspace matte filesize density
#> <chr> <int> <int> <chr> <lgl> <int> <chr>
#> 1 PNG 1999 2299 sRGB FALSE 72735 118x118