data(flu)
library(ggplot2)
subflu = flu[flu$region=="Mazowieckie", ]
# linear scale
qplot(date, inception.rate,data=subflu, geom="line")+scale_y_sqrt() +theme_bw()
# polar coordinates
qplot(1 + date.id*12/38, inception.rate,data=subflu, geom="path", xlab="month")+
scale_y_sqrt()+geom_smooth(span=0.1,se=FALSE, size=2,col="red") +
coord_polar() +theme_bw()
Run the code above in your browser using DataLab