R语言风玫瑰图绘制
#载入ggplot2包
library(ggplot2)
#随机生成100此风向,并汇集到16个区间内
dir<-cut_interval(runif(100,0,360),n=16)
#随机生成100次风速,并划分为4种强度
mag<-cut_interval(rgamma(100,15),4)
#把dir数据和mag数据整合为数据框
sample<-data.frame(dir=dir,mag=mag)
#绘图
ggplot(sample,aes(x=dir,y=..count..,fill=mag))+geom_bar()+coord_polar()
