Nothing
## ----setup, include=FALSE, echo=FALSE-----------------------------------------
knitr::opts_chunk$set(
echo = TRUE,
warning = FALSE,
message = FALSE,
comment = "# >"
)
## ----packages-----------------------------------------------------------------
library(envalysis)
library(ggplot2)
## ----default_theme, fig.align="center"----------------------------------------
data("mtcars")
p <- ggplot(mtcars) +
geom_point(aes(x = wt, y = mpg, color = factor(gear))) +
labs(
title = "Fuel economy declines as weight increases",
subtitle = "(1973-74)",
caption = "Data from the 1974 Motor Trend US magazine.",
x = "Weight (1000 lbs)",
y = "Fuel economy (mpg)",
colour = "Gears"
) +
facet_wrap( ~ am, labeller = labeller(am = c("0" = "Automatic",
"1" = "Manual")))
p
## ----theme_publish, fig.align="center"----------------------------------------
p + theme_publish()
## ----theme_arguments, fig.align="center"--------------------------------------
p + theme_publish(base_size = 16, base_family = "Times", base_linewidth = 0.7)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.