南丁格爾玫瑰圖（Nightingale rose diagram）又名雞冠花圖、極坐標區(qū)域圖，是南丁格爾在克里米亞戰(zhàn)爭期間提交的一份關(guān)于士兵死傷的報告時發(fā)明的一種圖表奋岁。南丁格爾玫瑰圖其實是在極坐標下繪制的柱狀圖倔矾，一般使用圓弧的半徑長短表示數(shù)據(jù)的大小（數(shù)量的多少）桑孩。下面，小編就給大家展示如何使用ggplot2包繪制一張南丁格爾玫瑰圖框冀。
設(shè)置工作環(huán)境流椒、加載R包
1、設(shè)置工作目錄
#設(shè)置工作環(huán)境
rm(list=ls())
setwd("D:\\南丁格爾玫瑰圖")
2明也、加載R包
library(ggplot2)
library(ggprism)
library(ggthemes)
加載數(shù)據(jù)
#加載數(shù)據(jù)
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、轉(zhuǎn)化為極坐標温数，繪制成我們常見的南丁格爾玫瑰圖：
p+coord_polar()
image.png
