Miscellaneous/Create_R_hexSticker.R at master · YoannPa/Miscellaneous · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#!/usr/bin/env Rscript
library("optparse")

opt_parser = OptionParser(description = "
##_Create R hexSticker_#########################################################
Version = '0.0.1'
Date = '2021-08-05'
Author = 'Yoann PAGEAUD'
Maintainer = 'Yoann PAGEAUD (yoann.pageaud@gmail.com)'
Dependencies = c('R version 4.0.5 (2021-03-31)',
'RStudio Version 1.2.5019 – © 2009-2019', 'hexSticker')
Description = 'All my R packages hexStickers.'
################################################################################
");
if (is.null(parse_args(opt_parser)$file) != TRUE){print_help(opt_parser);quit()}

#WARNING: If you try to reproduce these HexStickers you might not succeed.
# HexStickers creation include use of Adobe Photoshop, Adobe Illustrator or Photopea.
# Moreover, files used for HexStickers design are not necessary available.
# The purpose of this script is to provide some HexSticker creation examples.

##IMPORTS
extrafont::loadfonts()
library(ggplot2)
library(hexSticker)

## methview.qc
setwd("~/methview.qc/")
sticker(subplot = "img/methview_logo_refined_final.png", package = "",
        dpi = 1080, s_x = 1, s_y = 1.08, s_width = 0.85,
        h_color = "#4682B4", h_fill = "white",
        filename = "img/my_hexsticker.png")

## NCBI.BLAST2DT
setwd("~/NCBI.BLAST2DT/")
# hexSticker does not look for font in those loaded in R!
# You need to manually copy the .ttf file in
# /home/user/R/x86_64-pc-linux-gnu-library/4.2/hexSticker/fonts
# Create hexsticker with custom font
sticker(subplot = "img/Remake_without_background.png",
        package = "NCBI.BLAST2DT", dpi = 300, s_x = 1, s_y = 1.2, s_width = 0.9,
        p_y = 0.7, p_size = 18, p_family = "ITC Tiepolo W01 Book SC",
        p_color = "#154a89", h_color = "#154a89", h_fill = "#26bdb0",
        asp = 0.85, filename = "img/my_hexsticker.png")

## DTrsiv
setwd("~/DTrsiv/")
sticker(subplot = "img/", package = "DTrsiv", asp = 12,
        dpi = 600, s_x = 0.95, s_y = 1, p_x = 1, p_y = 0.75, p_color = "black",
        p_size = 27, h_color = "yellow", spotlight = TRUE, l_x = 0.98, l_y = 1,
        l_width = 6, l_height = 6, l_alpha = 0.3,
        filename="img/my_hexsticker.png")

## biotab.manager
setwd("~/biotab.manager/")
sticker(subplot = "img/New Project.png", package = "biotab.manager",
        filename = "img/my_hexsticker.png", asp = 0.90, s_x = 1.01, s_y = 0.98,
        s_width = 1, h_fill = "#606060", h_color = "#BB0E3C",
        p_family = "Rotunda Bold", p_size = 15, p_y = 1.47, p_x = 1.01,
        h_size = 1.5)