阿狗工具

今天我们学习绘制另一种柱状图，又称为南丁格尔玫瑰柱状图，如下图所示。

南丁格尔玫瑰图是弗罗伦斯·南丁格尔所发明的。又名为极区图。是 一种圆形的直方图。 南丁格尔自己常昵称这类图为鸡冠花图（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()