Nothing
## ---- fig.width=10,fig.height=8, out.width="90%"------------------------------
library(hextri)
data(airquality)
airquality$o3group<-with(airquality, cut(Ozone, c(0,18,60,Inf)))
with(na.omit(airquality),
hextri(Solar.R, Temp, class=o3group, colours=c("skyblue","grey60","goldenrod"), style="size",
xlab="Solar radiation (langley)", ylab="Temperature (F)")
)
## ---- fig.width=10,fig.height=8, out.width="90%"------------------------------
library(lattice)
xyplot(Temp~Solar.R|equal.count(Wind,4), groups=o3group, panel=panel.hextri,
data=na.omit(airquality), colours=c("royalblue","grey60","goldenrod"),
strip=strip.custom(var.name="Wind Speed"),
xlab="Solar Radiation (langley)",ylab="Temperature (F)")
## ---- fig.width=10,fig.height=8 , out.width="90%"-----------------------------
data(NHANES, package="hexbin")
with(na.omit(NHANES[,-8]), hextri(Age,Hemoglobin, class=Sex,colour=c("orange","purple"),
nbins=20,xlab="Age",ylab="Serum haemoglobin"))
## ---- fig.width=10,fig.height=8, out.width="90%"------------------------------
with(na.omit(NHANES[,-8]), hextri(Age,Hemoglobin, class=Sex,colour=c("orange","purple"),
nbins=20,xlab="Age",ylab="Serum haemoglobin", diffuse=TRUE))
## ---- fig.width=10,fig.height=8 , out.width="90%"-----------------------------
with(na.omit(NHANES[,-8]), hextri(Age,Hemoglobin, class=Sex,colour=c("orange","purple"),
nbins=20,xlab="Age",ylab="Serum haemoglobin",style="size"))
with(na.omit(NHANES[,-8]), hextri(Age,Hemoglobin, class=Sex,colour=c("orange","purple"),
nbins=20,xlab="Age",ylab="Serum haemoglobin", diffuse=TRUE,style="size"))
## ---- fig.width=10,fig.height=8, out.width="90%"------------------------------
xyplot(Hemoglobin~Age|equal.count(Diet.Iron, 6),groups=Sex, data=na.omit(NHANES[,-8]),
colour=c("orange","purple"),panel=panel.hextri,
strip=strip.custom(var.name="Dietary iron"),style="size",diffuse=TRUE)
## ---- fig.width=10,fig.height=8, out.width="90%"------------------------------
xx<-rnorm(1000)
yy<-rnorm(1000)
cc<-cut(xx*yy,c(-Inf,-.4,0,.4,Inf))
hextri(xx,yy, class=cc, colour=c("#FEEDDE", "#FDD0A2", "#FDAE6B", "#8C2D04"),
nbins=20, style="size")
hextri(xx,yy, class=cc, colour=c("#FEEDDE", "#8C2D04","#FDD0A2", "#FDAE6B") ,
nbins=20, style="size")
hextri(xx,yy, class=cc, colour=c( "#8C2D04","#FDD0A2", "#FDAE6B","#FEEDDE") ,
nbins=20, style="size")
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.