a<-rnorm(1000,0,5)
b<-runif(1000,-20,-10)
d<-as.data.frame(cbind(norm=a,unif=b))
ggInterval_scatter(d,aes(a,b))
ggInterval_scatter(mtcars[,c("mpg","wt","qsec")],
aes(x=mpg,y=wt,
col="red",lty=2,fill="blue",alpha=0.3))
myIris <- classic2sym(iris,groupby = "Species")$intervalData
p<-ggInterval_scatter(myIris,aes(myIris$Petal.Length,myIris$Petal.Width))
p
p+scale_fill_manual(labels=rownames(myIris),
values=c("red","blue","green"),
name="Group")
mydata <- ggESDA::facedata
p<-ggInterval_scatter(mydata[1:10,],aes(AD,BC,alpha=0.2))
p+scale_fill_manual(labels=rownames(mydata)[1:10],
values=rainbow(10),
name="Group")
Run the code above in your browser using DataLab