R语言绘图—南丁格尔玫瑰图

南丁格尔玫瑰图是一种条形图的变形图，也被称为极坐标柱形图，普通的柱形图的坐标系是直角坐标系。该图形使用圆弧的半径长短来表示数据的大小，适合较多类别数据的比较。最近在撰写年度工作总结中使用了一部分，在此将代码分享，有需要者可复制使用！

这里我们构造一份传染病数据：

myda<-data.frame(
  disease=c("流感","感染性腹泻","手足口病","新冠肺炎","病毒性肝炎","急性出血\n性结膜炎",
            "梅毒","肺结核","淋病","流行性\n腮腺炎","百日咳","艾滋病","登革热","水痘","猩红热",
            "伤寒","布病","痢疾"),
  ynn=c(2000,1500,1000,920,800,720,630,510,420,360,290,210,
        150,88,68,47,30,9)
)

首先我们绘制最基础的环形条形图：

library(ggplot2)

ggplot(data = myda,aes(x=reorder(disease,-ynn),y=ynn))+
  geom_bar(width = 0.8,stat = "identity")+
  coord_polar(theta = "x",start=0)