Thomas Neitmann thomas-neitmann

## install-ggtext.R
install.packages("ggtext")

## install-mdthemes
install.packages("mdthemes")

## ggtext-post-plot-5.R
plot + mdthemes::as_md_theme(theme_minimal())

## ggtext-post-plot-4.R
plot +
  labs(
    x = "**Year**",
    y = "Revenue (*Billion* USD)",
    caption = "Data Source: *en.wikipedia.org/wiki/List_of_largest_biomedical_companies_by_revenue*"
  ) +
  mdthemes::md_theme_minimal()


## ggtext-post-plot-3.R
plot + mdthemes::md_theme_minimal()

## ggtext-post-plot-2.R
plot + theme_minimal()

## ggtext-post-span-tag.html
<span style = 'color:color name or hex code'>Text you want to color</span>

## ggtext-post-plot-1.R
library(ggplot2)
library(dplyr)
data(biomedicalrevenue, package = "ggcharts")

plot <- biomedicalrevenue %>%
  filter(company %in% c("Roche", "Novartis")) %>%
  ggplot(aes(year, revenue, color = company)) +
  geom_line(size = 1.2) +
  ggtitle(
    paste0(

## do_if.R
do_if <- function(data, predicate, expr) {
  if (predicate) {
    eval.parent(insert_data(
      substitute(expr),
      substitute(data)
    ))
  } else {
    data
  }
}

## no-assign.R
`:=` <- function(lhs, rhs) {
  var <- deparse(substitute(lhs))
  if (exists(var, parent.frame(), inherits = FALSE)) {
    stop("Variable `", var, "` is already defined.", call. = FALSE)
  } else {
    assign(var, rhs, parent.frame())
  }
}

# An alternative version making use of `lockBinding`. This prevents users from overwriting
	plot +
	labs(
	x = "Year",
	y = "Revenue (Billion USD)",
	caption = "Data Source: en.wikipedia.org/wiki/List_of_largest_biomedical_companies_by_revenue"
	) +
	mdthemes::md_theme_minimal()
	library(ggplot2)
	library(dplyr)
	data(biomedicalrevenue, package = "ggcharts")

	plot <- biomedicalrevenue %>%
	filter(company %in% c("Roche", "Novartis")) %>%
	ggplot(aes(year, revenue, color = company)) +
	geom_line(size = 1.2) +
	ggtitle(
	paste0(
	do_if <- function(data, predicate, expr) {
	if (predicate) {
	eval.parent(insert_data(
	substitute(expr),
	substitute(data)
	))
	} else {
	data
	}
	}
	`:=` <- function(lhs, rhs) {
	var <- deparse(substitute(lhs))
	if (exists(var, parent.frame(), inherits = FALSE)) {
	stop("Variable `", var, "` is already defined.", call. = FALSE)
	} else {
	assign(var, rhs, parent.frame())
	}
	}

	# An alternative version making use of `lockBinding`. This prevents users from overwriting