testx<-matrix(cumsum(rnorm(30)^2)+1,nrow=10)
stackpoly(testx,main="",
xaxlab=c("One","Two","Three","Four","Five",
"Six","Seven","Eight","Nine","Ten"),staxx=TRUE)
tab.title("Three Squiggly Lines",tab.col="yellow",radius=0.5)
Run the code above in your browser using DataLab