R可视化——基于ggplot2包绘制南丁格尔玫瑰图

南丁格尔玫瑰图（Nightingale rose diagram）又名鸡冠花图、极坐标区域图，是南丁格尔在克里米亚战争期间提交的一份关于士兵死伤的报告时发明的一种图表。南丁格尔玫瑰图其实是在极坐标下绘制的柱状图，一般使用圆弧的半径长短表示数据的大小（数量的多少）。下面，小编就给大家展示如何使用ggplot2包绘制一张南丁格尔玫瑰图。

设置工作环境、加载R包

1、设置工作目录

#设置工作环境
rm(list=ls())
setwd("D:\\南丁格尔玫瑰图")

2、加载R包

library(ggplot2)
library(ggprism)
library(ggthemes)

加载数据

#加载数据
df <- read.table("data1.txt",header = T, check.names = F)

image.png

绘图

1、绘制基本柱状图

p<-ggplot(df, aes(x = sample, y = value, fill = sample)) +
  geom_bar(stat = "identity", color = "white",
           lwd = 1, show.legend = FALSE,width = 0.6)+
  scale_fill_prism(palette = "candy_bright")+
  theme_pander()
p

image.png

2、转化为极坐标，绘制成我们常见的南丁格尔玫瑰图：

p+coord_polar()

image.png

参考：https://r-charts.com/ggplot2/coordinate-systems/