Nothing
x <- rnorm(100)
p <- histogram(~x, type='density',
panel=function(x,y,...) {
panel.rug(x,...)
panel.histogram(x,...)
panel.mathdensity(
dmath=dnorm, args=list(mean=mean(x),sd=sd(x)),
lwd=5, col="black", lty=1, alpha=0.5,
...)
grid.text("Look Here",
x= 0.5, y=0.48,
just="left",
default.units="npc",
rot=33,
gp=gpar(col="black",cex=2)
)
grid.segments(
x0= 0.48, x1= unit(-0.92,"native"),
y0= 0.45, y1= unit(0.085,"native"),
arrow = arrow(), # default arrow
default.units="npc",
gp=gpar(col="black")
)
grid.rect( x = -2, y=0, width=1, height=0.15, #unit(0.15,"npc"),
default.units="native",
just=c("left","bottom"),
gp=gpar(col="black", fill="gray40", alpha=0.6)
)
}
)
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.