绘制极坐标系条形图

 df<-read.csv("/home/shijm/Rlearning/Beautiful-Visualization-with-R-master/第3章_类别比较型图表/PloarRange_Data.csv",sep=",",na.strings="NA",stringsAsFactors=FALSE)
> df$date<-as.Date(df$date)
> 
> myAngle <-seq(-20,-340,length.out = 12)
> 
> ggplot(df, aes(date,                      
+                ymin = min.temperaturec,
+                ymax = max.temperaturec,
+                color = mean.temperaturec)) + 
+   geom_linerange(size = 1.3, alpha = 0.75) +    
+   scale_color_viridis("Temperature", option = "D") +
+  # scale_x_date(labels = date_format("%m"), breaks = date_breaks("month")) + 
+   ylim(-10, 35) + 
+   coord_polar() + 
+   theme_light() +
+   theme( panel.background = element_blank(),
+          panel.grid.major = element_line(colour = "grey80",size=.25),
+          axis.text.y = element_text(size = 12,colour="black"),
+          axis.line.y = element_line(size=0.25),
+          axis.text.x=element_text(size = 13,colour="black",angle = myAngle))