今天我们学习绘制另一种柱状图，又称为南丁格尔玫瑰柱状图，如下图所示。
南丁格尔玫瑰图是弗罗伦斯·南丁格尔所发明的。又名为极区图。是 一种圆形的直方图。 南丁格尔自己常昵称这类图为鸡冠花图（coxcomb），并且用以表达军医院 季节性的死亡率，对象是那些不太能理解传统统计报表的公务人员。
还是用我们上一次的测试数据。
library(ggplot2)
library(ggprism)
library(ggthemes)
data <- read.table("week.data.txt",header=T,sep="\t")
head(data)
先绘制一个基本的柱状图。
p<-ggplot(data, aes(x = day, y = time, fill = week_n)) +
geom_bar(stat = "identity", color = "white",
lwd = 1, show.legend = FALSE,width = 0.6)+
scale_fill_prism(palette = "candy_bright")+
scale_x_continuous(breaks=seq(1,21,1),labels=data$week)+
theme_pander()+
theme(text = element_text(size = 15))
p
然后，转化为极坐标，绘制成我们常见的南丁格尔玫瑰图。
p+coord_polar()
