Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.width = 4,
fig.height = 4
)
## ----ternaryplot1-------------------------------------------------------------
library(tactile)
ternaryplot(Or ~ An * Ab, data = feldspar)
## ----ternaryplot2, fig.width = 7----------------------------------------------
ternaryplot(Or ~ An * Ab,
groups = Feldspar, data = feldspar,
auto.key = list(space = "right"),
par.settings = list(axis.line = list(col = "transparent"))
)
## ----ternaryplot3, fig.width = 7----------------------------------------------
ternaryplot(Or ~ An * Ab | Feldspar, data = feldspar, density = TRUE)
## ----ternaryplot4, fig.show = "hold"------------------------------------------
ternaryplot(Or ~ An * Ab,
response = Pressure, data = feldspar,
contour = FALSE
)
ternaryplot(Or ~ An * Ab, response = Pressure, data = feldspar, region = FALSE)
## ----bubbleplot1, fig.width = 6-----------------------------------------------
bubbleplot(disp ~ hp * wt, groups = cyl, data = mtcars, auto.key = TRUE)
## ----bubbleplot2, fig.width = 7, fig.height = 3.5-----------------------------
bubbleplot(disp ~ hp * wt | factor(cyl),
data = mtcars, auto.key = TRUE,
pch = 16, alpha = 0.5, layout = c(3, 1),
panel = function(x, y, z, ...) {
panel.lmline(x, y, ...)
panel.bubbleplot(x, y, z, ...)
}
)
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.