logo: Logo designer

In strnda/RFun: R Language for Spare Time and Educational and Visual Presentations

Description

Simple function developed to desing logos

Usage

logo(name, text_size = 20, cols = "Blues", additional_text = NULL,
  expr = NULL, expr.index = seq_along(expr) - 1, all_caps = FALSE,
  include_title = TRUE, family = "Palatino", fontface = "bold")

Arguments

name	Name of you company/institution (char string)
text_size	Logo text size
cols	Logo colours - either avalid palette name or colour names
additional_text	Additional title text
expr	Posibility to add expressions to logo
expr.index	Expression index (possition)
all_caps	LOGICAL
include_title	LOGICAL Include the name of your company in logo title
family	Font style
fontface	Font type

Examples

library(LOLs)

a <- logo(name = 'KVHEM', 
additional_text = 'Katedra vodního hospodářství 
                             a environmentálního modelování')
a + theme(title = element_text(size = 12.5))

b <- logo(name = 'KVHEM', 
          additional_text = 'Katedra vodního hospodářství 
                             \na environmentálního modelování', 
          include_title = FALSE, 
          family = 'AvantGarde')
b + theme(panel.grid.major = element_blank(),
          panel.grid.minor = element_blank(),
          axis.ticks = element_blank(),
          axis.text = element_blank(),
          axis.line = element_blank(),
          plot.title = element_text(size = 25, 
                                    hjust = 0.25, 
                                    color = 'steelblue4'))

c <- logo(name = 'R-Users Group', 
          text_size = 10, 
          cols = 'Greens', 
          family = 'Courier')
c

x <- logo(name = 'DRUtES', 
          additional_text = '\nDual Richards Unsaturated Equation Solver', 
          cols = c('royalblue4', 
                   'lightsteelblue1'), 
          expr = expression(integral()[Omega]), 
          text_size = 9.5, 
          include_title = FALSE, 
          fontface = 'bold.italic')
x + theme(panel.grid.major = element_blank(),
          panel.grid.minor = element_blank(),
          axis.ticks = element_blank(),
          axis.text = element_blank(),
          axis.line = element_line(colour = 'royalblue4'))

strnda/RFun documentation built on Oct. 10, 2019, 6:27 p.m.