Compare commits

...

9 Commits

  1. 4
      CRAN-RELEASE
  2. 7
      DESCRIPTION
  3. 12
      NAMESPACE
  4. 18
      R/econ-sans.R
  5. 209
      R/goldmansans.R
  6. 2
      R/hrbrthemes-package.R
  7. 259
      R/inter.R
  8. 18
      R/plexsans.R
  9. 18
      R/public-sans.R
  10. 18
      R/roboto-condensed.r
  11. 2
      R/theme-ipsum.r
  12. 14
      R/tinyhand.R
  13. 18
      R/titillium-web.R
  14. 43
      R/zzz.r
  15. 1
      README.Rmd
  16. 13
      README.md
  17. 20
      cran-comments.md
  18. 100
      inst/COPYRIGHTS
  19. BIN
      inst/fonts/goldman-sans/GoldmanSansCd_Bd.ttf
  20. BIN
      inst/fonts/goldman-sans/GoldmanSansCd_Rg.ttf
  21. BIN
      inst/fonts/inter/Inter-Black.ttf
  22. BIN
      inst/fonts/inter/Inter-BlackItalic.ttf
  23. BIN
      inst/fonts/inter/Inter-Bold.ttf
  24. BIN
      inst/fonts/inter/Inter-BoldItalic.ttf
  25. BIN
      inst/fonts/inter/Inter-ExtraBold.ttf
  26. BIN
      inst/fonts/inter/Inter-ExtraBoldItalic.ttf
  27. BIN
      inst/fonts/inter/Inter-ExtraLight.ttf
  28. BIN
      inst/fonts/inter/Inter-ExtraLightItalic.ttf
  29. BIN
      inst/fonts/inter/Inter-Italic.ttf
  30. BIN
      inst/fonts/inter/Inter-Light.ttf
  31. BIN
      inst/fonts/inter/Inter-LightItalic.ttf
  32. BIN
      inst/fonts/inter/Inter-Medium.ttf
  33. BIN
      inst/fonts/inter/Inter-MediumItalic.ttf
  34. BIN
      inst/fonts/inter/Inter-Regular.ttf
  35. BIN
      inst/fonts/inter/Inter-SemiBold.ttf
  36. BIN
      inst/fonts/inter/Inter-SemiBoldItalic.ttf
  37. BIN
      inst/fonts/inter/Inter-Thin.ttf
  38. BIN
      inst/fonts/inter/Inter-ThinItalic.ttf
  39. 4
      man/ArialNarrow.Rd
  40. 8
      man/EconSansCondensed.Rd
  41. 16
      man/GoldmanSans.Rd
  42. 58
      man/Inter.Rd
  43. 6
      man/PlexSans.Rd
  44. 10
      man/PublicSans.Rd
  45. 6
      man/RobotoCondensed.Rd
  46. 4
      man/TinyHand.Rd
  47. 8
      man/TitilliumWeb.Rd
  48. BIN
      man/figures/README-ax2-1.png
  49. BIN
      man/figures/README-ax3-1.png
  50. BIN
      man/figures/README-ft-1.png
  51. BIN
      man/figures/README-ps-1.png
  52. BIN
      man/figures/README-rc-1.png
  53. BIN
      man/figures/README-sc-1.png
  54. BIN
      man/figures/README-sp-1.png
  55. BIN
      man/figures/README-tw-1.png
  56. 6
      man/ft_cols.Rd
  57. 2
      man/gg_check.Rd
  58. 9
      man/hrbrthemes.Rd
  59. 24
      man/import_goldman_sans.Rd
  60. 24
      man/import_inter.Rd
  61. 4
      man/ipsum.Rd
  62. 14
      man/scale_ft.Rd
  63. 14
      man/scale_ipsum.Rd
  64. 2
      man/theme_ipsum.Rd
  65. 6
      man/theme_ipsum_es.Rd
  66. 115
      man/theme_ipsum_gs.Rd
  67. 115
      man/theme_ipsum_inter.Rd
  68. 6
      man/theme_ipsum_ps.Rd
  69. 6
      man/theme_ipsum_pub.Rd
  70. 6
      man/theme_ipsum_rc.Rd
  71. 6
      man/theme_ipsum_tw.Rd
  72. 2
      man/theme_tinyhand.Rd

4
CRAN-RELEASE

@ -1,2 +1,2 @@
This package was submitted to CRAN on 2020-03-05.
Once it is accepted, delete this file and tag the release (commit f6d2a276cd).
This package was submitted to CRAN on 2020-03-06.
Once it is accepted, delete this file and tag the release (commit a599f17a1d).

7
DESCRIPTION

@ -1,8 +1,8 @@
Package: hrbrthemes
Type: Package
Title: Additional Themes, Theme Components and Utilities for 'ggplot2'
Version: 0.8.0
Date: 2020-03-05
Version: 0.8.6
Date: 2020-07-01
Authors@R: c(
person("Bob", "Rudis", email = "bob@rud.is", role = c("aut", "cre"),
comment = c(ORCID = "0000-0001-5670-2640")),
@ -14,6 +14,7 @@ Authors@R: c(
person("Google", comment = "Roboto Condensed & Titillium Web Fonts",
role = c("cph")),
person("IBM", comment = "Plex Sans Font", role = c("cph")),
person("Goldman Sachs", comment = "Goldman Sans Font", role = c("cph")),
person("Impallari Type", comment = "Public Sans Font", role = c("cph")),
person("Jacob", "Barnett", email = "jacob.r.barnett@gmail.com", role = c("ctb")),
person("Thomas J.", "Leeper", role = c("ctb"), email = "thosjleeper@gmail.com",
@ -57,5 +58,5 @@ Imports:
tools,
magrittr,
gdtools
RoxygenNote: 7.0.2
RoxygenNote: 7.1.1
VignetteBuilder: knitr

12
NAMESPACE

@ -6,6 +6,14 @@ export(font_an)
export(font_es)
export(font_es_bold)
export(font_es_light)
export(font_gs)
export(font_inter_bold)
export(font_inter_italic)
export(font_inter_medium)
export(font_inter_medium_italic)
export(font_inter_semibold)
export(font_inter_thin)
export(font_inter_thin_italic)
export(font_ps)
export(font_ps_light)
export(font_pub)
@ -24,6 +32,8 @@ export(ft_pal)
export(ft_text_col)
export(gg_check)
export(import_econ_sans)
export(import_goldman_sans)
export(import_inter)
export(import_plex_sans)
export(import_public_sans)
export(import_roboto_condensed)
@ -46,6 +56,8 @@ export(scale_y_percent)
export(theme_ft_rc)
export(theme_ipsum)
export(theme_ipsum_es)
export(theme_ipsum_gs)
export(theme_ipsum_inter)
export(theme_ipsum_ps)
export(theme_ipsum_pub)
export(theme_ipsum_rc)

18
R/econ-sans.R

@ -38,7 +38,7 @@
#' # seminal scatterplot
#' ggplot(mtcars, aes(mpg, wt)) +
#' geom_point() +
#' labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 scatterplot example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
@ -53,7 +53,7 @@
#' ggplot(aes(class, n)) +
#' geom_col() +
#' geom_text(aes(label=n), nudge_y=3) +
#' labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 bar chart example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
@ -208,13 +208,13 @@ theme_ipsum_es <- function(
import_econ_sans <- function() {
es_font_dir <- system.file("fonts", "econ-sans", package="hrbrthemes")
suppressWarnings(suppressMessages(extrafont::font_import(es_font_dir, prompt=FALSE)))
message(
"You will likely need to install these fonts on your system as well.\n\n",
"You can find them in [", es_font_dir, "]"
)
#
# suppressWarnings(suppressMessages(extrafont::font_import(es_font_dir, prompt=FALSE)))
#
# message(
# "You will likely need to install these fonts on your system as well.\n\n",
# "You can find them in [", es_font_dir, "]"
# )
}

209
R/goldmansans.R

@ -0,0 +1,209 @@
#' A precise & pristine [ggplot2] theme with opinionated defaults and an emphasis on typoghraphy
#'
#' You should [import_goldman_sans()] first and also install the fonts on your
#' system before trying to use this theme.
#'
#' There is an option `hrbrthemes.loadfonts` which -- if set to `TRUE` -- will
#' call `extrafont::loadfonts()` to register non-core fonts with R PDF & PostScript
#' devices. If you are running under Windows, the package calls the same function
#' to register non-core fonts with the Windows graphics device.
#'
#' @md
#' @section Why Goldman Sans?:
#' See <https://design.gs.com/d/story/goldman-sans/>.
#'
#' @md
#' @param base_family,base_size base font family and size
#' @param plot_title_family,plot_title_face,plot_title_size,plot_title_margin plot tilte family, face, size and margin
#' @param subtitle_family,subtitle_face,subtitle_size plot subtitle family, face and size
#' @param subtitle_margin plot subtitle margin bottom (single numeric value)
#' @param strip_text_family,strip_text_face,strip_text_size facet label font family, face and size
#' @param caption_family,caption_face,caption_size,caption_margin plot caption family, face, size and margin
#' @param axis_title_family,axis_title_face,axis_title_size axis title font family, face and size
#' @param axis_title_just axis title font justificationk one of `[blmcrt]`
#' @param axis_text_size font size of axis text
#' @param plot_margin plot margin (specify with [ggplot2::margin])
#' @param grid_col grid color
#' @param grid panel grid (`TRUE`, `FALSE`, or a combination of `X`, `x`, `Y`, `y`)
#' @param axis_col axis color
#' @param axis add x or y axes? `TRUE`, `FALSE`, "`xy`"
#' @param ticks ticks if `TRUE` add ticks
#' @export
#' @examples \dontrun{
#' library(ggplot2)
#' library(dplyr)
#'
#' # seminal scatterplot
#' ggplot(mtcars, aes(mpg, wt)) +
#' geom_point() +
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 scatterplot example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
#' theme_ipsum_gs()
#'
#' # seminal bar chart
#'
#' update_geom_font_defaults(family=font_gs_light)
#'
#' count(mpg, class) %>%
#' ggplot(aes(class, n)) +
#' geom_col() +
#' geom_text(aes(label=n), nudge_y=3) +
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 bar chart example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
#' theme_ipsum_gs(grid="Y") +
#' theme(axis.text.y=element_blank())
#' }
theme_ipsum_gs <- function(
base_family="Goldman Sans Condensed",
base_size = 11.5,
plot_title_family="Goldman Sans Condensed",
plot_title_size = 18,
plot_title_face="bold",
plot_title_margin = 10,
subtitle_family=if (.Platform$OS.type == "windows") "Goldman Sans Condensed" else "Goldman Sans Condensed",
subtitle_size = 13,
subtitle_face = "plain",
subtitle_margin = 15,
strip_text_family = "Goldman Sans Condensed",
strip_text_size = 12,
strip_text_face = "bold",
caption_family=if (.Platform$OS.type == "windows") "Goldman Sans Condensed" else "Goldman Sans Condensed",
caption_size = 9,
caption_face = "plain",
caption_margin = 10,
axis_text_size = 9,
axis_title_family = base_family,
axis_title_size = 9,
axis_title_face = "plain",
axis_title_just = "rt",
plot_margin = margin(30, 30, 30, 30),
grid_col = "#cccccc", grid = TRUE,
axis_col = "#cccccc", axis = FALSE, ticks = FALSE) {
ret <- ggplot2::theme_minimal(base_family=base_family, base_size=base_size)
ret <- ret + theme(legend.background=element_blank())
ret <- ret + theme(legend.key=element_blank())
if (inherits(grid, "character") | grid == TRUE) {
ret <- ret + theme(panel.grid=element_line(color=grid_col, size=0.2))
ret <- ret + theme(panel.grid.major=element_line(color=grid_col, size=0.2))
ret <- ret + theme(panel.grid.minor=element_line(color=grid_col, size=0.15))
if (inherits(grid, "character")) {
if (regexpr("X", grid)[1] < 0) ret <- ret + theme(panel.grid.major.x=element_blank())
if (regexpr("Y", grid)[1] < 0) ret <- ret + theme(panel.grid.major.y=element_blank())
if (regexpr("x", grid)[1] < 0) ret <- ret + theme(panel.grid.minor.x=element_blank())
if (regexpr("y", grid)[1] < 0) ret <- ret + theme(panel.grid.minor.y=element_blank())
}
} else {
ret <- ret + theme(panel.grid=element_blank())
}
if (inherits(axis, "character") | axis == TRUE) {
ret <- ret + theme(axis.line=element_line(color=axis_col, size=0.15))
if (inherits(axis, "character")) {
axis <- tolower(axis)
if (regexpr("x", axis)[1] < 0) {
ret <- ret + theme(axis.line.x=element_blank())
} else {
ret <- ret + theme(axis.line.x=element_line(color=axis_col, size=0.15))
}
if (regexpr("y", axis)[1] < 0) {
ret <- ret + theme(axis.line.y=element_blank())
} else {
ret <- ret + theme(axis.line.y=element_line(color=axis_col, size=0.15))
}
} else {
ret <- ret + theme(axis.line.x=element_line(color=axis_col, size=0.15))
ret <- ret + theme(axis.line.y=element_line(color=axis_col, size=0.15))
}
} else {
ret <- ret + theme(axis.line=element_blank())
}
if (!ticks) {
ret <- ret + theme(axis.ticks = element_blank())
ret <- ret + theme(axis.ticks.x = element_blank())
ret <- ret + theme(axis.ticks.y = element_blank())
} else {
ret <- ret + theme(axis.ticks = element_line(size=0.15))
ret <- ret + theme(axis.ticks.x = element_line(size=0.15))
ret <- ret + theme(axis.ticks.y = element_line(size=0.15))
ret <- ret + theme(axis.ticks.length = grid::unit(5, "pt"))
}
xj <- switch(tolower(substr(axis_title_just, 1, 1)), b=0, l=0, m=0.5, c=0.5, r=1, t=1)
yj <- switch(tolower(substr(axis_title_just, 2, 2)), b=0, l=0, m=0.5, c=0.5, r=1, t=1)
ret <- ret + theme(axis.text.x=element_text(size=axis_text_size, margin=margin(t=0)))
ret <- ret + theme(axis.text.y=element_text(size=axis_text_size, margin=margin(r=0)))
ret <- ret + theme(axis.title=element_text(size=axis_title_size, family=axis_title_family))
ret <- ret + theme(axis.title.x=element_text(hjust=xj, size=axis_title_size,
family=axis_title_family, face=axis_title_face))
ret <- ret + theme(axis.title.y=element_text(hjust=yj, size=axis_title_size,
family=axis_title_family, face=axis_title_face))
ret <- ret + theme(axis.title.y.right=element_text(hjust=yj, size=axis_title_size, angle=90,
family=axis_title_family, face=axis_title_face))
ret <- ret + theme(strip.text=element_text(hjust=0, size=strip_text_size,
face=strip_text_face, family=strip_text_family))
ret <- ret + theme(panel.spacing=grid::unit(2, "lines"))
ret <- ret + theme(plot.title=element_text(hjust=0, size=plot_title_size,
margin=margin(b=plot_title_margin),
family=plot_title_family, face=plot_title_face))
ret <- ret + theme(plot.subtitle=element_text(hjust=0, size=subtitle_size,
margin=margin(b=subtitle_margin),
family=subtitle_family, face=subtitle_face))
ret <- ret + theme(plot.caption=element_text(hjust=1, size=caption_size,
margin=margin(t=caption_margin),
family=caption_family, face=caption_face))
ret <- ret + theme(plot.margin=plot_margin)
ret
}
#' Import Goldman Sans font for use in charts
#'
#' Goldman Sans is a trademark of Goldman Sachs and distributed under the
#' [Goldman Sachs Restricted Font License](https://design.gs.com/d/legal/goldman-sans-license/).
#'
#' There is an option `hrbrthemes.loadfonts` which -- if set to `TRUE` -- will
#' call `extrafont::loadfonts()` to register non-core fonts with R PDF & PostScript
#' devices. If you are running under Windows, the package calls the same function
#' to register non-core fonts with the Windows graphics device.
#'
#' @md
#' @note This will take care of ensuring PDF/PostScript usage. The location of the
#' font directory is displayed after the base import is complete. It is highly
#' recommended that you install them on your system the same way you would any
#' other font you wish to use in other programs.
#' @export
import_goldman_sans <- function() {
gs_font_dir <- system.file("fonts", "goldman-sans", package="hrbrthemes")
# suppressWarnings(suppressMessages(extrafont::font_import(gs_font_dir, prompt=FALSE)))
#
# message(
# sprintf(
# "You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
# gs_font_dir)
# )
}
#' @rdname GoldmanSans
#' @md
#' @title Goldman Sans font name R variable aliases
#' @description `font_gs` == "`Goldman Sans Condensed`"
#' @format length 1 character vector
#' @export
font_gs <- "Goldman Sans Condensed"

2
R/hrbrthemes-package.R

@ -26,7 +26,7 @@
#' @importFrom gdtools set_dummy_conf
#' @import rmarkdown knitr htmltools
#' @importFrom tools file_path_sans_ext
NULL
"_PACKAGE"
#' hrbrthemes exported operators
#'

259
R/inter.R

@ -0,0 +1,259 @@
#' A precise & pristine [ggplot2] theme with opinionated defaults and an emphasis on typoghraphy
#'
#' You should [import_inter()] first and also install the fonts on your
#' system before trying to use this theme.
#'
#' There is an option `hrbrthemes.loadfonts` which -- if set to `TRUE` -- will
#' call `extrafont::loadfonts()` to register non-core fonts with R PDF & PostScript
#' devices. If you are running under Windows, the package calls the same function
#' to register non-core fonts with the Windows graphics device.
#'
#' @md
#' @section Why Inter?:
#' See <https://design.gs.com/d/story/goldman-sans/>.
#'
#' @md
#' @param base_family,base_size base font family and size
#' @param plot_title_family,plot_title_face,plot_title_size,plot_title_margin plot tilte family, face, size and margin
#' @param subtitle_family,subtitle_face,subtitle_size plot subtitle family, face and size
#' @param subtitle_margin plot subtitle margin bottom (single numeric value)
#' @param strip_text_family,strip_text_face,strip_text_size facet label font family, face and size
#' @param caption_family,caption_face,caption_size,caption_margin plot caption family, face, size and margin
#' @param axis_title_family,axis_title_face,axis_title_size axis title font family, face and size
#' @param axis_title_just axis title font justificationk one of `[blmcrt]`
#' @param axis_text_size font size of axis text
#' @param plot_margin plot margin (specify with [ggplot2::margin])
#' @param grid_col grid color
#' @param grid panel grid (`TRUE`, `FALSE`, or a combination of `X`, `x`, `Y`, `y`)
#' @param axis_col axis color
#' @param axis add x or y axes? `TRUE`, `FALSE`, "`xy`"
#' @param ticks ticks if `TRUE` add ticks
#' @export
#' @examples \dontrun{
#' library(ggplot2)
#' library(dplyr)
#'
#' # seminal scatterplot
#' ggplot(mtcars, aes(mpg, wt)) +
#' geom_point() +
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 scatterplot example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
#' theme_ipsum_inter()
#'
#' # seminal bar chart
#'
#' update_geom_font_defaults(family=font_inter_medium)
#'
#' count(mpg, class) %>%
#' ggplot(aes(class, n)) +
#' geom_col() +
#' geom_text(aes(label=n), nudge_y=3) +
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 bar chart example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
#' theme_ipsum_inter(grid="Y") +
#' theme(axis.text.y=element_blank())
#' }
theme_ipsum_inter <- function(
base_family="Inter-Medium",
base_size = 10,
plot_title_family="Inter-Bold",
plot_title_size = 16,
plot_title_face="bold",
plot_title_margin = 8,
subtitle_family="Inter-Light",
subtitle_size = 12,
subtitle_face = "plain",
subtitle_margin = 13,
strip_text_family = "Inter-SemiBold",
strip_text_size = 12,
strip_text_face = "bold",
caption_family="Inter-Thin",
caption_size = 9,
caption_face = "plain",
caption_margin = 10,
axis_text_family = "Inter-Light",
axis_text_face = "plain",
axis_text_size = 9,
axis_title_family = base_family,
axis_title_size = 9,
axis_title_face = "plain",
axis_title_just = "rt",
plot_margin = margin(30, 30, 30, 30),
grid_col = "#cccccc", grid = TRUE,
axis_col = "#cccccc", axis = FALSE, ticks = FALSE) {
ret <- ggplot2::theme_minimal(base_family=base_family, base_size=base_size)
ret <- ret + theme(legend.background=element_blank())
ret <- ret + theme(legend.key=element_blank())
if (inherits(grid, "character") | grid == TRUE) {
ret <- ret + theme(panel.grid=element_line(color=grid_col, size=0.2))
ret <- ret + theme(panel.grid.major=element_line(color=grid_col, size=0.2))
ret <- ret + theme(panel.grid.minor=element_line(color=grid_col, size=0.15))
if (inherits(grid, "character")) {
if (regexpr("X", grid)[1] < 0) ret <- ret + theme(panel.grid.major.x=element_blank())
if (regexpr("Y", grid)[1] < 0) ret <- ret + theme(panel.grid.major.y=element_blank())
if (regexpr("x", grid)[1] < 0) ret <- ret + theme(panel.grid.minor.x=element_blank())
if (regexpr("y", grid)[1] < 0) ret <- ret + theme(panel.grid.minor.y=element_blank())
}
} else {
ret <- ret + theme(panel.grid=element_blank())
}
if (inherits(axis, "character") | axis == TRUE) {
ret <- ret + theme(axis.line=element_line(color=axis_col, size=0.15))
if (inherits(axis, "character")) {
axis <- tolower(axis)
if (regexpr("x", axis)[1] < 0) {
ret <- ret + theme(axis.line.x=element_blank())
} else {
ret <- ret + theme(axis.line.x=element_line(color=axis_col, size=0.15))
}
if (regexpr("y", axis)[1] < 0) {
ret <- ret + theme(axis.line.y=element_blank())
} else {
ret <- ret + theme(axis.line.y=element_line(color=axis_col, size=0.15))
}
} else {
ret <- ret + theme(axis.line.x=element_line(color=axis_col, size=0.15))
ret <- ret + theme(axis.line.y=element_line(color=axis_col, size=0.15))
}
} else {
ret <- ret + theme(axis.line=element_blank())
}
if (!ticks) {
ret <- ret + theme(axis.ticks = element_blank())
ret <- ret + theme(axis.ticks.x = element_blank())
ret <- ret + theme(axis.ticks.y = element_blank())
} else {
ret <- ret + theme(axis.ticks = element_line(size=0.15))
ret <- ret + theme(axis.ticks.x = element_line(size=0.15))
ret <- ret + theme(axis.ticks.y = element_line(size=0.15))
ret <- ret + theme(axis.ticks.length = grid::unit(5, "pt"))
}
xj <- switch(tolower(substr(axis_title_just, 1, 1)), b=0, l=0, m=0.5, c=0.5, r=1, t=1)
yj <- switch(tolower(substr(axis_title_just, 2, 2)), b=0, l=0, m=0.5, c=0.5, r=1, t=1)
ret <- ret + theme(axis.text.x=element_text(size=axis_text_size, margin=margin(t=0)))
ret <- ret + theme(axis.text.y=element_text(size=axis_text_size, margin=margin(r=0)))
ret <- ret + theme(axis.title=element_text(size=axis_title_size, family=axis_title_family))
ret <- ret + theme(axis.title.x=element_text(hjust=xj, size=axis_title_size,
family=axis_title_family, face=axis_title_face))
ret <- ret + theme(axis.title.y=element_text(hjust=yj, size=axis_title_size,
family=axis_title_family, face=axis_title_face))
ret <- ret + theme(axis.title.y.right=element_text(hjust=yj, size=axis_title_size, angle=90,
family=axis_title_family, face=axis_title_face))
ret <- ret + theme(strip.text=element_text(hjust=0, size=strip_text_size,
face=strip_text_face, family=strip_text_family))
ret <- ret + theme(panel.spacing=grid::unit(2, "lines"))
ret <- ret + theme(plot.title=element_text(hjust=0, size=plot_title_size,
margin=margin(b=plot_title_margin),
family=plot_title_family, face=plot_title_face))
ret <- ret + theme(plot.subtitle=element_text(hjust=0, size=subtitle_size,
margin=margin(b=subtitle_margin),
family=subtitle_family, face=subtitle_face))
ret <- ret + theme(plot.caption=element_text(hjust=1, size=caption_size,
margin=margin(t=caption_margin),
family=caption_family, face=caption_face))
ret <- ret + theme(plot.margin=plot_margin)
ret
}
#' Import Inter font for use in charts
#'
#' Inter is Copyright (c) 2016-2020 The Inter Project Authors
#' (<https://rsms.me/inter/>).
#'
#' There is an option `hrbrthemes.loadfonts` which -- if set to `TRUE` -- will
#' call `extrafont::loadfonts()` to register non-core fonts with R PDF & PostScript
#' devices. If you are running under Windows, the package calls the same function
#' to register non-core fonts with the Windows graphics device.
#'
#' @md
#' @note This will take care of ensuring PDF/PostScript usage. The location of the
#' font directory is displayed after the base import is complete. It is highly
#' recommended that you install them on your system the same way you would any
#' other font you wish to use in other programs.
#' @export
import_inter <- function() {
inter_font_dir <- system.file("fonts", "inter", package="hrbrthemes")
suppressWarnings(suppressMessages(extrafont::font_import(inter_font_dir, prompt=FALSE)))
message(
sprintf(
"You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
inter_font_dir)
)
}
#' @rdname Inter
#' @md
#' @title Inter font name R variable aliases
#' @description `font_inter_thin` == "`Inter-Thin`"
#' @format length 1 character vector
#' @export
font_inter_thin <- "Inter-Thin"
#' @rdname Inter
#' @md
#' @title Inter font name R variable aliases
#' @description `font_inter_thin_italic` == "`Inter-ThinItalic`"
#' @format length 1 character vector
#' @export
font_inter_thin_italic <- "Inter-ThinItalic"
#' @rdname Inter
#' @md
#' @title Inter font name R variable aliases
#' @description `font_inter_medium` == "`Inter-Medium`"
#' @format length 1 character vector
#' @export
font_inter_medium <- "Inter-Medium"
#' @rdname Inter
#' @md
#' @title Inter font name R variable aliases
#' @description `font_inter_medium_italic` == "`Inter-MediumItalic`"
#' @format length 1 character vector
#' @export
font_inter_medium_italic <- "Inter-MediumItalic"
#' @rdname Inter
#' @md
#' @title Inter font name R variable aliases
#' @description `font_inter_semibold` == "`Inter-SemiBold`"
#' @format length 1 character vector
#' @export
font_inter_semibold <- "Inter-SemiBold"
#' @rdname Inter
#' @md
#' @title Inter font name R variable aliases
#' @description `font_inter_bold` == "`Inter-Bold`"
#' @format length 1 character vector
#' @export
font_inter_bold <- "Inter-Bold"
#' @rdname Inter
#' @md
#' @title Inter font name R variable aliases
#' @description `font_inter_italic` == "`Inter-Italic`"
#' @format length 1 character vector
#' @export
font_inter_italic <- "Inter-Italic"

18
R/plexsans.R

@ -37,7 +37,7 @@
#' # seminal scatterplot
#' ggplot(mtcars, aes(mpg, wt)) +
#' geom_point() +
#' labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 scatterplot example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
@ -52,7 +52,7 @@
#' ggplot(aes(class, n)) +
#' geom_col() +
#' geom_text(aes(label=n), nudge_y=3) +
#' labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 bar chart example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
@ -184,13 +184,13 @@ import_plex_sans <- function() {
ps_font_dir <- system.file("fonts", "plex-sans", package="hrbrthemes")
suppressWarnings(suppressMessages(extrafont::font_import(ps_font_dir, prompt=FALSE)))
message(
sprintf(
"You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
ps_font_dir)
)
# suppressWarnings(suppressMessages(extrafont::font_import(ps_font_dir, prompt=FALSE)))
#
# message(
# sprintf(
# "You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
# ps_font_dir)
# )
}

18
R/public-sans.R

@ -37,7 +37,7 @@
#' # seminal scatterplot
#' ggplot(mtcars, aes(mpg, wt)) +
#' geom_point() +
#' labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 scatterplot example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
@ -51,7 +51,7 @@
#' ggplot(aes(class, n)) +
#' geom_col() +
#' geom_text(aes(label=n), nudge_y=3) +
#' labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 bar chart example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
@ -188,13 +188,13 @@ import_public_sans <- function() {
pub_font_dir <- system.file("fonts", "public-sans", package="hrbrthemes")
suppressWarnings(suppressMessages(extrafont::font_import(pub_font_dir, prompt=FALSE)))
message(
sprintf(
"You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
pub_font_dir)
)
# suppressWarnings(suppressMessages(extrafont::font_import(pub_font_dir, prompt=FALSE)))
#
# message(
# sprintf(
# "You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
# pub_font_dir)
# )
}

18
R/roboto-condensed.r

@ -38,7 +38,7 @@
#' # seminal scatterplot
#' ggplot(mtcars, aes(mpg, wt)) +
#' geom_point() +
#' labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 scatterplot example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
@ -53,7 +53,7 @@
#' ggplot(aes(class, n)) +
#' geom_col() +
#' geom_text(aes(label=n), nudge_y=3) +
#' labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 bar chart example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
@ -209,13 +209,13 @@ import_roboto_condensed <- function() {
rc_font_dir <- system.file("fonts", "roboto-condensed", package="hrbrthemes")
suppressWarnings(suppressMessages(extrafont::font_import(rc_font_dir, prompt=FALSE)))
message(
sprintf(
"You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
rc_font_dir)
)
# suppressWarnings(suppressMessages(extrafont::font_import(rc_font_dir, prompt=FALSE)))
#
# message(
# sprintf(
# "You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
# rc_font_dir)
# )
}

2
R/theme-ipsum.r

@ -48,7 +48,7 @@
#' # seminal scatterplot
#' ggplot(mtcars, aes(mpg, wt)) +
#' geom_point() +
#' labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 scatterplot example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +

14
R/tinyhand.R

@ -168,12 +168,12 @@ import_tinyhand <- function() {
th_font_dir <- system.file("fonts", "tinyhand", package="hrbrthemes")
suppressWarnings(suppressMessages(extrafont::font_import(th_font_dir, prompt=FALSE)))
message(
sprintf(
"You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
th_font_dir)
)
# suppressWarnings(suppressMessages(extrafont::font_import(th_font_dir, prompt=FALSE)))
#
# message(
# sprintf(
# "You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
# th_font_dir)
# )
}

18
R/titillium-web.R

@ -37,7 +37,7 @@
#' # seminal scatterplot
#' ggplot(mtcars, aes(mpg, wt)) +
#' geom_point() +
#' labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 scatterplot example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
@ -52,7 +52,7 @@
#' ggplot(aes(class, n)) +
#' geom_col() +
#' geom_text(aes(label=n), nudge_y=3) +
#' labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
#' labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
#' title="Seminal ggplot2 bar chart example",
#' subtitle="A plot that is only useful for demonstration purposes",
#' caption="Brought to you by the letter 'g'") +
@ -188,13 +188,13 @@ import_titillium_web <- function() {
tw_font_dir <- system.file("fonts", "titillium-web", package="hrbrthemes")
suppressWarnings(suppressMessages(extrafont::font_import(tw_font_dir, prompt=FALSE)))
message(
sprintf(
"You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
tw_font_dir)
)
# suppressWarnings(suppressMessages(extrafont::font_import(tw_font_dir, prompt=FALSE)))
#
# message(
# sprintf(
# "You will likely need to install these fonts on your system as well.\n\nYou can find them in [%s]",
# tw_font_dir)
# )
}

43
R/zzz.r

@ -1,5 +1,14 @@
.onAttach <- function(libname, pkgname) {
tw_font_dir <- system.file("fonts", "titillium-web", package="hrbrthemes")
gs_font_dir <- system.file("fonts", "goldman-sans", package="hrbrthemes")
es_font_dir <- system.file("fonts", "econ-sans", package="hrbrthemes")
rc_font_dir <- system.file("fonts", "roboto-condensed", package="hrbrthemes")
pub_font_dir <- system.file("fonts", "public-sans", package="hrbrthemes")
ps_font_dir <- system.file("fonts", "plex-sans", package="hrbrthemes")
th_font_dir <- system.file("fonts", "tinyhand", package="hrbrthemes")
# if (interactive()) {
# packageStartupMessage(paste0("hrbrthemes is under *active* development. ",
# "See https://github.com/hrbrmstr/hrbrthemes for info/news."))
@ -7,22 +16,22 @@
# Suggestion by @alexwhan
if (.Platform$OS.type == "windows") { # nocov start
if (interactive()) packageStartupMessage("Registering Windows fonts with R")
extrafont::loadfonts("win", quiet = TRUE)
}
if (getOption("hrbrthemes.loadfonts", default = FALSE)) {
if (interactive()) packageStartupMessage("Registering PDF & PostScript fonts with R")
extrafont::loadfonts("pdf", quiet = TRUE)
extrafont::loadfonts("postscript", quiet = TRUE)
}
fnt <- extrafont::fonttable()
if (!any(grepl("Arial[ ]Narrow|Roboto[ ]Condensed", fnt$FamilyName))) {
packageStartupMessage("NOTE: Either Arial Narrow or Roboto Condensed fonts are required to use these themes.")
packageStartupMessage(" Please use hrbrthemes::import_roboto_condensed() to install Roboto Condensed and")
packageStartupMessage(" if Arial Narrow is not on your system, please see https://bit.ly/arialnarrow")
} # nocov end
# if (.Platform$OS.type == "windows") { # nocov start
# if (interactive()) packageStartupMessage("Registering Windows fonts with R")
# extrafont::loadfonts("win", quiet = TRUE)
# }
#
# if (getOption("hrbrthemes.loadfonts", default = FALSE)) {
# if (interactive()) packageStartupMessage("Registering PDF & PostScript fonts with R")
# extrafont::loadfonts("pdf", quiet = TRUE)
# extrafont::loadfonts("postscript", quiet = TRUE)
# }
#
# fnt <- extrafont::fonttable()
# if (!any(grepl("Arial[ ]Narrow|Roboto[ ]Condensed", fnt$FamilyName))) {
# packageStartupMessage("NOTE: Either Arial Narrow or Roboto Condensed fonts are required to use these themes.")
# packageStartupMessage(" Please use hrbrthemes::import_roboto_condensed() to install Roboto Condensed and")
# packageStartupMessage(" if Arial Narrow is not on your system, please see https://bit.ly/arialnarrow")
# } # nocov end
}

1
README.Rmd

@ -29,6 +29,7 @@ The following functions are implemented/objects are exported:
Themes:
- `theme_ipsum`: Arial Narrow
- `theme_ipsum_gs`: Goldman Sans Condensed
- `theme_ipsum_es`: Econ Sans Condensed
- `theme_ipsum_rc`: Roboto Condensed
- `theme_ipsum_ps`: IBM Plex Sans font

13
README.md

@ -44,6 +44,7 @@ The following functions are implemented/objects are exported:
Themes:
- `theme_ipsum`: Arial Narrow
- `theme_ipsum_gs`: Goldman Sans Condensed
- `theme_ipsum_es`: Econ Sans Condensed
- `theme_ipsum_rc`: Roboto Condensed
- `theme_ipsum_ps`: IBM Plex Sans font
@ -126,7 +127,9 @@ Utilities:
### Installation
``` r
install.packages("hrbrthemes", repos = "https://cinc.rud.is")
install.packages("hrbrthemes") # NOTE: CRAN version is 0.8.0
# or
install.packages("hrbrthemes", repos = c("https://cinc.rud.is", "https://cloud.r-project.org/"))
# or
remotes::install_git("https://git.rud.is/hrbrmstr/hrbrthemes.git")
# or
@ -151,7 +154,7 @@ library(tidyverse)
# current verison
packageVersion("hrbrthemes")
## [1] '0.8.0'
## [1] '0.8.6'
```
### Base theme (Arial Narrow)
@ -340,9 +343,9 @@ gg_check(gg)
| Lang | \# Files | (%) | LoC | (%) | Blank lines | (%) | \# Lines | (%) |
| :--- | -------: | ---: | ---: | ---: | ----------: | ---: | -------: | ---: |
| R | 23 | 0.88 | 1615 | 0.79 | 308 | 0.70 | 827 | 0.83 |
| HTML | 1 | 0.04 | 297 | 0.15 | 32 | 0.07 | 2 | 0.00 |
| Rmd | 2 | 0.08 | 129 | 0.06 | 98 | 0.22 | 167 | 0.17 |
| R | 24 | 0.89 | 1724 | 0.80 | 327 | 0.72 | 908 | 0.84 |
| HTML | 1 | 0.04 | 297 | 0.14 | 32 | 0.07 | 2 | 0.00 |
| Rmd | 2 | 0.07 | 129 | 0.06 | 98 | 0.21 | 168 | 0.16 |
### Code of Conduct

20
cran-comments.md

@ -1,23 +1,13 @@
## Test environments
* local OS X install + travis-ci, R 3.5.0 & devel (Travis is currently failing
- if folks check - due to a missing CRAN mirror component in RStudio's CRAN
mirror for Travis)
* ubuntu 14.04 (on travis-ci), R oldrel, current, devel
* local OS X install, R 3.6.3
* ubuntu 14.04 (on travis-ci), R 3.6.3
* win-builder (devel and release)
* rhub::check_for_cran()
## R CMD check results
0 errors | 0 warnings | 0 notes%>% hrbrthemes exported operators
## Reverse dependencies
0 errors | 0 warnings | 0 notes
- [BAwiR, fontHind, fontMPlus, ggstatsplot, mlr] all OK
* This is an update
---
i think i fixed the named package link in the revdep.
- new fonts, a new white theme and a new dark theme
- fixed typos in documentation
- resubmitted after errors noted on https://win-builder.r-project.org/incoming_pretest/hrbrthemes_0.6.0_20190120_223916/Windows/00check.log
- re-re-submitted (gdtools in the right place now)

100
inst/COPYRIGHTS

@ -2,6 +2,106 @@ All R source code files are released under the MIT license.
-----------------------------
Inter has the following license/copyright:
Copyright (c) 2016-2020 The Inter Project Authors.
"Inter" is a Reserved Font Name.
https://github.com/rsms/inter
This Font Software is licensed under the SIL Open Font License, Version 1.1.
This license is copied below, and is also available with a FAQ at:
http://scripts.sil.org/OFL
-----------------------------------------------------------
SIL OPEN FONT LICENSE Version 1.1 - 26 February 2007
-----------------------------------------------------------
PREAMBLE
The goals of the Open Font License (OFL) are to stimulate worldwide
development of collaborative font projects, to support the font creation
efforts of academic and linguistic communities, and to provide a free and
open framework in which fonts may be shared and improved in partnership
with others.
The OFL allows the licensed fonts to be used, studied, modified and
redistributed freely as long as they are not sold by themselves. The
fonts, including any derivative works, can be bundled, embedded,
redistributed and/or sold with any software provided that any reserved
names are not used by derivative works. The fonts and derivatives,
however, cannot be released under any other type of license. The
requirement for fonts to remain under this license does not apply
to any document created using the fonts or their derivatives.
DEFINITIONS
"Font Software" refers to the set of files released by the Copyright
Holder(s) under this license and clearly marked as such. This may
include source files, build scripts and documentation.
"Reserved Font Name" refers to any names specified as such after the
copyright statement(s).
"Original Version" refers to the collection of Font Software components as
distributed by the Copyright Holder(s).
"Modified Version" refers to any derivative made by adding to, deleting,
or substituting -- in part or in whole -- any of the components of the
Original Version, by changing formats or by porting the Font Software to a
new environment.
"Author" refers to any designer, engineer, programmer, technical
writer or other person who contributed to the Font Software.
PERMISSION AND CONDITIONS
Permission is hereby granted, free of charge, to any person obtaining
a copy of the Font Software, to use, study, copy, merge, embed, modify,
redistribute, and sell modified and unmodified copies of the Font
Software, subject to the following conditions:
1) Neither the Font Software nor any of its individual components,
in Original or Modified Versions, may be sold by itself.
2) Original or Modified Versions of the Font Software may be bundled,
redistributed and/or sold with any software, provided that each copy
contains the above copyright notice and this license. These can be
included either as stand-alone text files, human-readable headers or
in the appropriate machine-readable metadata fields within text or
binary files as long as those fields can be easily viewed by the user.
3) No Modified Version of the Font Software may use the Reserved Font
Name(s) unless explicit written permission is granted by the corresponding
Copyright Holder. This restriction only applies to the primary font name as
presented to the users.
4) The name(s) of the Copyright Holder(s) or the Author(s) of the Font
Software shall not be used to promote, endorse or advertise any
Modified Version, except to acknowledge the contribution(s) of the
Copyright Holder(s) and the Author(s) or with their explicit written
permission.
5) The Font Software, modified or unmodified, in part or in whole,
must be distributed entirely under this license, and must not be
distributed under any other license. The requirement for fonts to
remain under this license does not apply to any document created
using the Font Software.
TERMINATION
This license becomes null and void if any of the above conditions are
not met.
DISCLAIMER
THE FONT SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY WARRANTIES OF
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT
OF COPYRIGHT, PATENT, TRADEMARK, OR OTHER RIGHT. IN NO EVENT SHALL THE
COPYRIGHT HOLDER BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
INCLUDING ANY GENERAL, SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL
DAMAGES, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
FROM, OUT OF THE USE OR INABILITY TO USE THE FONT SOFTWARE OR FROM
OTHER DEALINGS IN THE FONT SOFTWARE.
-----------------------------
IBM Plex Sans font has the following license/copyright:
Copyright © 2017 IBM Corp. with Reserved Font Name "Plex"

BIN
inst/fonts/goldman-sans/GoldmanSansCd_Bd.ttf

Binary file not shown.

BIN
inst/fonts/goldman-sans/GoldmanSansCd_Rg.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-Black.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-BlackItalic.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-Bold.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-BoldItalic.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-ExtraBold.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-ExtraBoldItalic.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-ExtraLight.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-ExtraLightItalic.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-Italic.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-Light.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-LightItalic.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-Medium.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-MediumItalic.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-Regular.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-SemiBold.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-SemiBoldItalic.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-Thin.ttf

Binary file not shown.

BIN
inst/fonts/inter/Inter-ThinItalic.ttf

Binary file not shown.

4
man/ArialNarrow.Rd

@ -4,7 +4,9 @@
\name{font_an}
\alias{font_an}
\title{Arial Narrow font name R variable aliases}
\format{length 1 character vector}
\format{
length 1 character vector
}
\usage{
font_an
}

8
man/EconSansCondensed.Rd

@ -6,7 +6,13 @@
\alias{font_es_bold}
\alias{font_es_light}
\title{Econ Sans Condensed font name R variable aliases}
\format{length 1 character vector}
\format{
length 1 character vector
An object of class \code{character} of length 1.
An object of class \code{character} of length 1.
}
\usage{
font_es

16
man/GoldmanSans.Rd

@ -0,0 +1,16 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/goldmansans.R
\docType{data}
\name{font_gs}
\alias{font_gs}
\title{Goldman Sans font name R variable aliases}
\format{
length 1 character vector
}
\usage{
font_gs
}
\description{
\code{font_gs} == "\verb{Goldman Sans Condensed}"
}
\keyword{datasets}

58
man/Inter.Rd

@ -0,0 +1,58 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/inter.R
\docType{data}
\name{font_inter_thin}
\alias{font_inter_thin}
\alias{font_inter_thin_italic}
\alias{font_inter_medium}
\alias{font_inter_medium_italic}
\alias{font_inter_semibold}
\alias{font_inter_bold}
\alias{font_inter_italic}
\title{Inter font name R variable aliases}
\format{
length 1 character vector
length 1 character vector
length 1 character vector
length 1 character vector
length 1 character vector
length 1 character vector
length 1 character vector
}
\usage{
font_inter_thin
font_inter_thin_italic
font_inter_medium
font_inter_medium_italic
font_inter_semibold
font_inter_bold
font_inter_italic
}
\description{
\code{font_inter_thin} == "\code{Inter-Thin}"
\code{font_inter_thin_italic} == "\code{Inter-ThinItalic}"
\code{font_inter_medium} == "\code{Inter-Medium}"
\code{font_inter_medium_italic} == "\code{Inter-MediumItalic}"
\code{font_inter_semibold} == "\code{Inter-SemiBold}"
\code{font_inter_bold} == "\code{Inter-Bold}"
\code{font_inter_italic} == "\code{Inter-Italic}"
}
\keyword{datasets}

6
man/PlexSans.Rd

@ -5,7 +5,11 @@
\alias{font_ps}
\alias{font_ps_light}
\title{PlexSans font name R variable aliases}
\format{length 1 character vector}
\format{
length 1 character vector
An object of class \code{character} of length 1.
}
\usage{
font_ps

10
man/PublicSans.Rd

@ -7,7 +7,15 @@
\alias{font_pub_light}
\alias{font_pub_thin}
\title{Public Sans font name R variable aliases}
\format{length 1 character vector}
\format{
length 1 character vector
An object of class \code{character} of length 1.
An object of class \code{character} of length 1.
An object of class \code{character} of length 1.
}
\usage{
font_pub

6
man/RobotoCondensed.Rd

@ -5,7 +5,11 @@
\alias{font_rc}
\alias{font_rc_light}
\title{Roboto Condensed font name R variable aliases}
\format{length 1 character vector}
\format{
length 1 character vector
An object of class \code{character} of length 1.
}
\usage{
font_rc

4
man/TinyHand.Rd

@ -4,7 +4,9 @@
\name{font_th}
\alias{font_th}
\title{TinyHand Web font name R variable aliases}
\format{length 1 character vector}
\format{
length 1 character vector
}
\usage{
font_th
}

8
man/TitilliumWeb.Rd

@ -6,7 +6,13 @@
\alias{font_tw_bold}
\alias{font_tw_light}
\title{Titillium Web font name R variable aliases}
\format{length 1 character vector}
\format{
length 1 character vector
An object of class \code{character} of length 1.
An object of class \code{character} of length 1.
}
\usage{
font_tw

BIN
man/figures/README-ax2-1.png

Binary file not shown.

Before

Width:  |  Height:  |  Size: 42 KiB

After

Width:  |  Height:  |  Size: 42 KiB

BIN
man/figures/README-ax3-1.png

Binary file not shown.

Before

Width:  |  Height:  |  Size: 31 KiB

After

Width:  |  Height:  |  Size: 32 KiB

BIN
man/figures/README-ft-1.png

Binary file not shown.

Before

Width:  |  Height:  |  Size: 24 KiB

After

Width:  |  Height:  |  Size: 24 KiB

BIN
man/figures/README-ps-1.png

Binary file not shown.

Before

Width:  |  Height:  |  Size: 60 KiB

After

Width:  |  Height:  |  Size: 59 KiB

BIN
man/figures/README-rc-1.png

Binary file not shown.

Before

Width:  |  Height:  |  Size: 24 KiB

After

Width:  |  Height:  |  Size: 24 KiB

BIN
man/figures/README-sc-1.png

Binary file not shown.

Before

Width:  |  Height:  |  Size: 26 KiB

After

Width:  |  Height:  |  Size: 26 KiB

BIN
man/figures/README-sp-1.png

Binary file not shown.

Before

Width:  |  Height:  |  Size: 17 KiB

After

Width:  |  Height:  |  Size: 17 KiB

BIN
man/figures/README-tw-1.png

Binary file not shown.

Before

Width:  |  Height:  |  Size: 59 KiB

After

Width:  |  Height:  |  Size: 59 KiB

6
man/ft_cols.Rd

@ -5,7 +5,11 @@
\alias{ft_cols}
\alias{ft_text_col}
\title{FT color palette}
\format{An object of class \code{list} of length 9.}
\format{
An object of class \code{list} of length 9.
An object of class \code{character} of length 1.
}
\usage{
ft_cols

2
man/gg_check.Rd

@ -9,7 +9,7 @@ gg_check(gg, dict, ignore)
\arguments{
\item{gg}{ggplot2 object}
\item{dict}{a dictionary object or string which can be passed to \link[hunspell:dictionary]{hunspell::dictionary}.
\item{dict}{a dictionary object or string which can be passed to \link[hunspell:hunspell]{hunspell::dictionary}.
Defaults to \code{hunspell::dictionary("en_US")}}
\item{ignore}{character vector with additional approved words added to the dictionary.

9
man/hrbrthemes.Rd

@ -3,6 +3,7 @@
\docType{package}
\name{hrbrthemes}
\alias{hrbrthemes}
\alias{hrbrthemes-package}
\title{Additional Themes and Theme Components for 'ggplot2'}
\description{
A compilation of extra themes and theme components for 'ggplot2' with an
@ -22,6 +23,14 @@ call \code{extrafont::loadfonts()} to register non-core fonts with R PDF & PostS
devices. If you are running under Windows, the package calls the same function
to register non-core fonts with the Windows graphics device.
}
\seealso{
Useful links:
\itemize{
\item \url{http://github.com/hrbrmstr/hrbrthemes}
\item Report bugs at \url{https://github.com/hrbrmstr/hrbrthemes/issues}
}
}
\author{
Bob Rudis (bob@rud.is)
}

24
man/import_goldman_sans.Rd

@ -0,0 +1,24 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/goldmansans.R
\name{import_goldman_sans}
\alias{import_goldman_sans}
\title{Import Goldman Sans font for use in charts}
\usage{
import_goldman_sans()
}
\description{
Goldman Sans is a trademark of Goldman Sachs and distributed under the
\href{https://design.gs.com/d/legal/goldman-sans-license/}{Goldman Sachs Restricted Font License}.
}
\details{
There is an option \code{hrbrthemes.loadfonts} which -- if set to \code{TRUE} -- will
call \code{extrafont::loadfonts()} to register non-core fonts with R PDF & PostScript
devices. If you are running under Windows, the package calls the same function
to register non-core fonts with the Windows graphics device.
}
\note{
This will take care of ensuring PDF/PostScript usage. The location of the
font directory is displayed after the base import is complete. It is highly
recommended that you install them on your system the same way you would any
other font you wish to use in other programs.
}

24
man/import_inter.Rd

@ -0,0 +1,24 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/inter.R
\name{import_inter}
\alias{import_inter}
\title{Import Inter font for use in charts}
\usage{
import_inter()
}
\description{
Inter is Copyright (c) 2016-2020 The Inter Project Authors
(\url{https://rsms.me/inter/}).
}
\details{
There is an option \code{hrbrthemes.loadfonts} which -- if set to \code{TRUE} -- will
call \code{extrafont::loadfonts()} to register non-core fonts with R PDF & PostScript
devices. If you are running under Windows, the package calls the same function
to register non-core fonts with the Windows graphics device.
}
\note{
This will take care of ensuring PDF/PostScript usage. The location of the
font directory is displayed after the base import is complete. It is highly
recommended that you install them on your system the same way you would any
other font you wish to use in other programs.
}

4
man/ipsum.Rd

@ -44,10 +44,6 @@ outputting HTML directly into the markdown document).}
\item{dev}{Graphics device to use for figure output (defaults to png)}
\item{smart}{Produce typographically correct output, converting straight
quotes to curly quotes, \code{---} to em-dashes, \code{--} to en-dashes, and
\code{...} to ellipses.}
\item{self_contained}{Produce a standalone HTML file with no external
dependencies, using data: URIs to incorporate the contents of linked
scripts, stylesheets, images, and videos. Note that even for self contained

14
man/scale_ft.Rd

@ -43,13 +43,19 @@ transformation object
\item A function that takes the breaks as input and returns labels
as output
}}
\item{\code{limits}}{A character vector that defines possible values of the scale
and their order.}
\item{\code{limits}}{One of:
\itemize{
\item \code{NULL} to use the default scale values
\item A character vector that defines possible values of the scale and their
order
\item A function that accepts the existing (automatic) values and returns
new ones
}}
\item{\code{na.translate}}{Unlike continuous scales, discrete scales can easily show
missing values, and do so by default. If you want to remove missing values
from a discrete scale, specify \code{na.translate = FALSE}.}
\item{\code{na.value}}{If \code{na.translate = TRUE}, what value aesthetic
value should missing be displayed as? Does not apply to position scales
\item{\code{na.value}}{If \code{na.translate = TRUE}, what aesthetic value should the
missing values be displayed as? Does not apply to position scales
where \code{NA} is always placed at the far right.}
\item{\code{drop}}{Should unused factor levels be omitted from the scale?
The default, \code{TRUE}, uses the levels that appear in the data;

14
man/scale_ipsum.Rd

@ -43,13 +43,19 @@ transformation object
\item A function that takes the breaks as input and returns labels
as output
}}
\item{\code{limits}}{A character vector that defines possible values of the scale
and their order.}
\item{\code{limits}}{One of:
\itemize{
\item \code{NULL} to use the default scale values
\item A character vector that defines possible values of the scale and their
order
\item A function that accepts the existing (automatic) values and returns
new ones
}}
\item{\code{na.translate}}{Unlike continuous scales, discrete scales can easily show
missing values, and do so by default. If you want to remove missing values
from a discrete scale, specify \code{na.translate = FALSE}.}
\item{\code{na.value}}{If \code{na.translate = TRUE}, what value aesthetic
value should missing be displayed as? Does not apply to position scales
\item{\code{na.value}}{If \code{na.translate = TRUE}, what aesthetic value should the
missing values be displayed as? Does not apply to position scales
where \code{NA} is always placed at the far right.}
\item{\code{drop}}{Should unused factor levels be omitted from the scale?
The default, \code{TRUE}, uses the levels that appear in the data;

2
man/theme_ipsum.Rd

@ -103,7 +103,7 @@ library(dplyr)
# seminal scatterplot
ggplot(mtcars, aes(mpg, wt)) +
geom_point() +
labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 scatterplot example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +

6
man/theme_ipsum_es.Rd

@ -57,7 +57,7 @@ theme_ipsum_es(
\item{axis_title_just}{axis title font justificationk one of \verb{[blmcrt]}}
\item{plot_margin}{plot margin (specify with \link[ggplot2:margin]{ggplot2::margin})}
\item{plot_margin}{plot margin (specify with \link[ggplot2:element]{ggplot2::margin})}
\item{panel_spacing}{panel spacing (use \code{unit()})}
@ -95,7 +95,7 @@ library(dplyr)
# seminal scatterplot
ggplot(mtcars, aes(mpg, wt)) +
geom_point() +
labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 scatterplot example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +
@ -110,7 +110,7 @@ count(mpg, class) \%>\%
ggplot(aes(class, n)) +
geom_col() +
geom_text(aes(label=n), nudge_y=3) +
labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 bar chart example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +

115
man/theme_ipsum_gs.Rd

@ -0,0 +1,115 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/goldmansans.R
\name{theme_ipsum_gs}
\alias{theme_ipsum_gs}
\title{A precise & pristine \link{ggplot2} theme with opinionated defaults and an emphasis on typoghraphy}
\usage{
theme_ipsum_gs(
base_family = "Goldman Sans Condensed",
base_size = 11.5,
plot_title_family = "Goldman Sans Condensed",
plot_title_size = 18,
plot_title_face = "bold",
plot_title_margin = 10,
subtitle_family = if (.Platform$OS.type == "windows") "Goldman Sans Condensed" else
"Goldman Sans Condensed",
subtitle_size = 13,
subtitle_face = "plain",
subtitle_margin = 15,
strip_text_family = "Goldman Sans Condensed",
strip_text_size = 12,
strip_text_face = "bold",
caption_family = if (.Platform$OS.type == "windows") "Goldman Sans Condensed" else
"Goldman Sans Condensed",
caption_size = 9,
caption_face = "plain",
caption_margin = 10,
axis_text_size = 9,
axis_title_family = base_family,
axis_title_size = 9,
axis_title_face = "plain",
axis_title_just = "rt",
plot_margin = margin(30, 30, 30, 30),
grid_col = "#cccccc",
grid = TRUE,
axis_col = "#cccccc",
axis = FALSE,
ticks = FALSE
)
}
\arguments{
\item{base_family, base_size}{base font family and size}
\item{plot_title_family, plot_title_face, plot_title_size, plot_title_margin}{plot tilte family, face, size and margin}
\item{subtitle_family, subtitle_face, subtitle_size}{plot subtitle family, face and size}
\item{subtitle_margin}{plot subtitle margin bottom (single numeric value)}
\item{strip_text_family, strip_text_face, strip_text_size}{facet label font family, face and size}
\item{caption_family, caption_face, caption_size, caption_margin}{plot caption family, face, size and margin}
\item{axis_text_size}{font size of axis text}
\item{axis_title_family, axis_title_face, axis_title_size}{axis title font family, face and size}
\item{axis_title_just}{axis title font justificationk one of \verb{[blmcrt]}}
\item{plot_margin}{plot margin (specify with \link[ggplot2:element]{ggplot2::margin})}
\item{grid_col}{grid color}
\item{grid}{panel grid (\code{TRUE}, \code{FALSE}, or a combination of \code{X}, \code{x}, \code{Y}, \code{y})}
\item{axis_col}{axis color}
\item{axis}{add x or y axes? \code{TRUE}, \code{FALSE}, "\code{xy}"}
\item{ticks}{ticks if \code{TRUE} add ticks}
}
\description{
You should \code{\link[=import_goldman_sans]{import_goldman_sans()}} first and also install the fonts on your
system before trying to use this theme.
}
\details{
There is an option \code{hrbrthemes.loadfonts} which -- if set to \code{TRUE} -- will
call \code{extrafont::loadfonts()} to register non-core fonts with R PDF & PostScript
devices. If you are running under Windows, the package calls the same function
to register non-core fonts with the Windows graphics device.
}
\section{Why Goldman Sans?}{
See \url{https://design.gs.com/d/story/goldman-sans/}.
}
\examples{
\dontrun{
library(ggplot2)
library(dplyr)
# seminal scatterplot
ggplot(mtcars, aes(mpg, wt)) +
geom_point() +
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 scatterplot example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +
theme_ipsum_gs()
# seminal bar chart
update_geom_font_defaults(family=font_gs_light)
count(mpg, class) \%>\%
ggplot(aes(class, n)) +
geom_col() +
geom_text(aes(label=n), nudge_y=3) +
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 bar chart example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +
theme_ipsum_gs(grid="Y") +
theme(axis.text.y=element_blank())
}
}

115
man/theme_ipsum_inter.Rd

@ -0,0 +1,115 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/inter.R
\name{theme_ipsum_inter}
\alias{theme_ipsum_inter}
\title{A precise & pristine \link{ggplot2} theme with opinionated defaults and an emphasis on typoghraphy}
\usage{
theme_ipsum_inter(
base_family = "Inter-Medium",
base_size = 10,
plot_title_family = "Inter-Bold",
plot_title_size = 16,
plot_title_face = "bold",
plot_title_margin = 8,
subtitle_family = "Inter-Light",
subtitle_size = 12,
subtitle_face = "plain",
subtitle_margin = 13,
strip_text_family = "Inter-SemiBold",
strip_text_size = 12,
strip_text_face = "bold",
caption_family = "Inter-Thin",
caption_size = 9,
caption_face = "plain",
caption_margin = 10,
axis_text_family = "Inter-Light",
axis_text_face = "plain",
axis_text_size = 9,
axis_title_family = base_family,
axis_title_size = 9,
axis_title_face = "plain",
axis_title_just = "rt",
plot_margin = margin(30, 30, 30, 30),
grid_col = "#cccccc",
grid = TRUE,
axis_col = "#cccccc",
axis = FALSE,
ticks = FALSE
)
}
\arguments{
\item{base_family, base_size}{base font family and size}
\item{plot_title_family, plot_title_face, plot_title_size, plot_title_margin}{plot tilte family, face, size and margin}
\item{subtitle_family, subtitle_face, subtitle_size}{plot subtitle family, face and size}
\item{subtitle_margin}{plot subtitle margin bottom (single numeric value)}
\item{strip_text_family, strip_text_face, strip_text_size}{facet label font family, face and size}
\item{caption_family, caption_face, caption_size, caption_margin}{plot caption family, face, size and margin}
\item{axis_text_size}{font size of axis text}
\item{axis_title_family, axis_title_face, axis_title_size}{axis title font family, face and size}
\item{axis_title_just}{axis title font justificationk one of \verb{[blmcrt]}}
\item{plot_margin}{plot margin (specify with \link[ggplot2:element]{ggplot2::margin})}
\item{grid_col}{grid color}
\item{grid}{panel grid (\code{TRUE}, \code{FALSE}, or a combination of \code{X}, \code{x}, \code{Y}, \code{y})}
\item{axis_col}{axis color}
\item{axis}{add x or y axes? \code{TRUE}, \code{FALSE}, "\code{xy}"}
\item{ticks}{ticks if \code{TRUE} add ticks}
}
\description{
You should \code{\link[=import_inter]{import_inter()}} first and also install the fonts on your
system before trying to use this theme.
}
\details{
There is an option \code{hrbrthemes.loadfonts} which -- if set to \code{TRUE} -- will
call \code{extrafont::loadfonts()} to register non-core fonts with R PDF & PostScript
devices. If you are running under Windows, the package calls the same function
to register non-core fonts with the Windows graphics device.
}
\section{Why Inter?}{
See \url{https://design.gs.com/d/story/goldman-sans/}.
}
\examples{
\dontrun{
library(ggplot2)
library(dplyr)
# seminal scatterplot
ggplot(mtcars, aes(mpg, wt)) +
geom_point() +
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 scatterplot example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +
theme_ipsum_inter()
# seminal bar chart
update_geom_font_defaults(family=font_inter_medium)
count(mpg, class) \%>\%
ggplot(aes(class, n)) +
geom_col() +
geom_text(aes(label=n), nudge_y=3) +
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 bar chart example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +
theme_ipsum_inter(grid="Y") +
theme(axis.text.y=element_blank())
}
}

6
man/theme_ipsum_ps.Rd

@ -56,7 +56,7 @@ theme_ipsum_ps(
\item{axis_title_just}{axis title font justificationk one of \verb{[blmcrt]}}
\item{plot_margin}{plot margin (specify with \link[ggplot2:margin]{ggplot2::margin})}
\item{plot_margin}{plot margin (specify with \link[ggplot2:element]{ggplot2::margin})}
\item{grid_col}{grid color}
@ -92,7 +92,7 @@ library(dplyr)
# seminal scatterplot
ggplot(mtcars, aes(mpg, wt)) +
geom_point() +
labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 scatterplot example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +
@ -107,7 +107,7 @@ count(mpg, class) \%>\%
ggplot(aes(class, n)) +
geom_col() +
geom_text(aes(label=n), nudge_y=3) +
labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 bar chart example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +

6
man/theme_ipsum_pub.Rd

@ -57,7 +57,7 @@ theme_ipsum_pub(
\item{axis_title_just}{axis title font justificationk one of \verb{[blmcrt]}}
\item{plot_margin}{plot margin (specify with \link[ggplot2:margin]{ggplot2::margin})}
\item{plot_margin}{plot margin (specify with \link[ggplot2:element]{ggplot2::margin})}
\item{grid_col}{grid color}
@ -93,7 +93,7 @@ library(dplyr)
# seminal scatterplot
ggplot(mtcars, aes(mpg, wt)) +
geom_point() +
labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 scatterplot example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +
@ -107,7 +107,7 @@ count(mpg, class) \%>\%
ggplot(aes(class, n)) +
geom_col() +
geom_text(aes(label=n), nudge_y=3) +
labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 bar chart example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +

6
man/theme_ipsum_rc.Rd

@ -121,7 +121,7 @@ theme_ipsum_rc(
\item{axis_title_just}{axis title font justificationk one of \verb{[blmcrt]}}
\item{plot_margin}{plot margin (specify with \link[ggplot2:margin]{ggplot2::margin})}
\item{plot_margin}{plot margin (specify with \link[ggplot2:element]{ggplot2::margin})}
\item{grid}{panel grid (\code{TRUE}, \code{FALSE}, or a combination of \code{X}, \code{x}, \code{Y}, \code{y})}
@ -159,7 +159,7 @@ library(dplyr)
# seminal scatterplot
ggplot(mtcars, aes(mpg, wt)) +
geom_point() +
labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 scatterplot example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +
@ -174,7 +174,7 @@ count(mpg, class) \%>\%
ggplot(aes(class, n)) +
geom_col() +
geom_text(aes(label=n), nudge_y=3) +
labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 bar chart example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +

6
man/theme_ipsum_tw.Rd

@ -57,7 +57,7 @@ theme_ipsum_tw(
\item{axis_title_just}{axis title font justificationk one of \verb{[blmcrt]}}
\item{plot_margin}{plot margin (specify with \link[ggplot2:margin]{ggplot2::margin})}
\item{plot_margin}{plot margin (specify with \link[ggplot2:element]{ggplot2::margin})}
\item{grid_col}{grid color}
@ -93,7 +93,7 @@ library(dplyr)
# seminal scatterplot
ggplot(mtcars, aes(mpg, wt)) +
geom_point() +
labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 scatterplot example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +
@ -108,7 +108,7 @@ count(mpg, class) \%>\%
ggplot(aes(class, n)) +
geom_col() +
geom_text(aes(label=n), nudge_y=3) +
labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
title="Seminal ggplot2 bar chart example",
subtitle="A plot that is only useful for demonstration purposes",
caption="Brought to you by the letter 'g'") +

2
man/theme_tinyhand.Rd

@ -54,7 +54,7 @@ theme_tinyhand(
\item{axis_title_just}{axis title font justificationk one of \verb{[blmcrt]}}
\item{plot_margin}{plot margin (specify with \link[ggplot2:margin]{ggplot2::margin})}
\item{plot_margin}{plot margin (specify with \link[ggplot2:element]{ggplot2::margin})}
\item{grid_col}{grid color}

Loading…
Cancel
Save