Nothing
col.fastR <-
function (bw = FALSE, lty = 1:7)
{
aBlue <- colorRampPalette(c("white", "navy"))(10)[8]
paleBlue <- colorRampPalette(c("white", "navy"))(10)[6]
lightBlue <- colorRampPalette(c("white", "steelblue"))(10)[5]
veryLightBlue <- colorRampPalette(c("white", "steelblue"))(12)[3]
darkBlue <- colorRampPalette(c("white", "navy"))(10)[9]
paleGreen <- colorRampPalette(c("white", "darkGreen"))(10)[8]
if (bw) {
return(list(background = list(col = "transparent"), axis.line = list(col = "gray30"),
axis.text = list(col = "gray30"), plot.polygon = list(col = "gray80"),
box.rectangle = list(col = "gray10"), box.umbrella = list(col = "gray10",
lty = 1), box.dot = list(col = "gray10"), dot.line = list(col = "gray50"),
dot.symbol = list(col = "gray30", pch = 16), plot.line = list(col = "black",
lwd = 2), plot.symbol = list(col = "black", fill = "gray80",
pch = 16), regions = list(col = gray((1:100)/100)),
reference.line = list(col = "gray50"), add.line = list(lty = 1,
col = "gray80", lwd = 2), superpose.polygon = list(col = c("gray30",
"gray70", "black", "gray50", "gray20", "gray80",
"gray60", "gray40"), fill = c("gray80")), superpose.line = list(lty = lty,
lwd = 2, col = c("gray30", "gray70", "black",
"gray50", "gray20", "gray80", "gray60", "gray40")),
superpose.symbol = list(pch = c(16, 15, 18, 1, 3,
6, 0, 5), cex = rep(0.7, 7), col = c("gray30",
"gray70", "black", "gray50", "gray20", "gray80",
"gray60", "gray40")), strip.background = list(alpha = 1,
col = c("gray80", "gray65")), strip.shingle = list(alpha = 1,
col = c("gray60", "gray30")), par.strip.text = list(cex = 0.5)))
}
else {
return(list(background = list(col = "transparent"), plot.polygon = list(col = paleBlue),
box.rectangle = list(col = darkBlue), box.umbrella = list(col = darkBlue),
dot.line = list(col = "#e8e8e8"), dot.symbol = list(col = darkBlue,
pch = 16), plot.line = list(lwd = 2, col = darkBlue),
plot.symbol = list(col = darkBlue, pch = 16), regions = list(col = heat.colors(100)),
reference.line = list(col = "#e8e8e8"), add.line = list(lty = 1,
col = "gray20", lwd = 2), superpose.line = list(lty = lty,
lwd = 2, col = c(darkBlue, "lightskyblue3", "darkgreen",
"turquoise", "orange", "purple", "pink", "lightgreen")),
superpose.symbol = list(pch = c(16, 15, 18, 1, 3,
6, 0, 5), cex = rep(0.7, 7), col = c(darkBlue,
"lightskyblue3", "darkgreen", "turquoise", "orange",
"purple", "pink", "lightgreen")), strip.background = list(alpha = 1,
col = c("#ffe5cc", veryLightBlue, "#ccffff",
"#cce6ff", "#ffccff", "#ffcccc", "#ffffcc")),
strip.shingle = list(alpha = 1, col = c("#ff7f00",
darkBlue, "#00ffff", "#0080ff", "#ff00ff", "#ff0000",
"#ffff00")), par.strip.text = list(cex = 0.5)))
}
}
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.