data.vm <- rvonmises(n=100, mu=0, kappa=3)
plot(data.vm, axes=FALSE, ticks=FALSE)
axis.circular(at=seq(0, 11/6*pi, pi/6), labels=c("0",
expression(frac(pi,6)), expression(paste(frac(1,3), pi)),
expression(frac(pi,2)), expression(paste(frac(2,3), pi)),
expression(paste(frac(5,6), pi)), expression(pi),
expression(paste(frac(7,6), pi)), expression(paste(frac(4,3), pi)),
expression(paste(frac(3,2), pi)), expression(paste(frac(5,3), pi)),
expression(paste(frac(11,6), pi))))
Run the code above in your browser using DataLab