Description Usage Arguments Value Examples
ggplot2 geom with xmin and xmax aesthetics that covers the entire y range, useful for clickSelects background elements.
1 2 3 |
mapping |
aesthetic mapping |
data |
data set |
stat |
statistic mapping, defaults to identity |
position |
position mapping, defaults to identity |
... |
other arguments |
ggplot2 layer
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | library(animint)
## Example: 2 plots, 2 selectors, but only interacting with 1 plot.
data(breakpoints)
only.error <- subset(breakpoints$error,type=="E")
only.segments <- subset(only.error,bases.per.probe==bases.per.probe[1])
signal.colors <- c(estimate="#0adb0a",
latent="#0098ef")
breakpointError <-
list(signal=ggplot()+
geom_point(aes(position, signal, showSelected=bases.per.probe),
data=breakpoints$signals)+
geom_line(aes(position, signal), colour=signal.colors[["latent"]],
data=breakpoints$imprecision)+
geom_segment(aes(first.base, mean, xend=last.base, yend=mean,
showSelected=segments,
showSelected2=bases.per.probe),
colour=signal.colors[["estimate"]],
data=breakpoints$segments)+
geom_vline(aes(xintercept=base,
showSelected=segments,
showSelected2=bases.per.probe),
colour=signal.colors[["estimate"]],
linetype="dashed",
data=breakpoints$breaks),
error=ggplot()+
geom_vline(aes(xintercept=segments, clickSelects=segments),
data=only.segments, lwd=17, alpha=1/2)+
geom_line(aes(segments, error, group=bases.per.probe,
clickSelects=bases.per.probe),
data=only.error, lwd=4))
animint2dir(breakpointError)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.