l_layer_ids | R Documentation |
Every layer within a display has a unique id. This function returns a list of all the layer ids for a widget.
l_layer_ids(widget)
widget |
widget path as a string or as an object handle |
For more information run: l_help("learn_R_layer.html#add-move-delete-layers")
vector with layer ids in rendering order. To create a layer handle
object use l_create_handle
.
l_layer
, l_info_states
if (interactive()){
set.seed(500)
x <- rnorm(30)
y <- 4 + 3*x + rnorm(30)
fit <- lm(y~x)
xseq <- seq(min(x)-1, max(x)+1, length.out = 50)
fit_line <- predict(fit, data.frame(x=range(xseq)))
ci <- predict(fit, data.frame(x=xseq),
interval="confidence", level=0.95)
pi <- predict(fit, data.frame(x=xseq),
interval="prediction", level=0.95)
p <- l_plot(y~x, color='black', showScales=TRUE, showGuides=TRUE)
gLayer <- l_layer_group(
p, label="simple linear regression",
parent="root", index="end"
)
fitLayer <- l_layer_line(
p, x=range(xseq), y=fit_line, color="#04327F",
linewidth=4, label="fit", parent=gLayer
)
ciLayer <- l_layer_polygon(
p,
x = c(xseq, rev(xseq)),
y = c(ci[,'lwr'], rev(ci[,'upr'])),
color = "#96BDFF", linecolor="",
label = "95 % confidence interval",
parent = gLayer, index='end'
)
piLayer <- l_layer_polygon(
p,
x = c(xseq, rev(xseq)),
y = c(pi[,'lwr'], rev(pi[,'upr'])),
color = "#E2EDFF", linecolor="",
label = "95 % prediction interval",
parent = gLayer, index='end'
)
l_info_states(piLayer)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.