Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ---- fig.show = "hold", fig.width = 6, fig.height = 4------------------------
library(tactile)
show.settings()
show.settings(tactile.theme())
## ---- fig.width = 6, fig.height = 4.5-----------------------------------------
set.seed(0)
## create a plot to demonstrate graphical settings
obj <- xyplot(
Sepal.Length + Sepal.Width ~ Petal.Length + Petal.Width,
iris,
type = c("p", "r"),
jitter.x = TRUE,
jitter.y = TRUE,
factor = 5,
auto.key = list(lines = TRUE, rectangles = TRUE, space = "top")
)
obj <- update(
obj,
legend = list(
right = list(
fun = "draw.colorkey",
args = list(list(at = 0:100))
)
)
)
## draw with default theme
obj
## ---- fig.width = 6, fig.height = 4.5-----------------------------------------
## draw with tactile.theme()
update(obj, par.settings = tactile.theme())
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.