oz.windrose(windagg,speed.col=c("#dab286","#fe9a66","#ce6733","#986434"),
speed.width=c(0.2,0.4,0.6,0.8),show.legend=TRUE,legend.pos=27,...)
windagg<-matrix(c(8,0,0,0,0,0,0,0,4,6,2,1,6,3,0,4,2,8,5,3,5,2,1,1,
5,5,2,4,1,4,1,2,1,2,4,0,3,1,3,1),nrow=5,byrow=TRUE)
oz.windrose(windagg)
Run the code above in your browser using DataLab