【R语言南丁格尔玫瑰图绘制】

继续上一篇地理信息可视化讲起，为了能够更加直观的展示数据分布情况，发现之前人民日报客户端曾经做过一张关于疫情分布的玫瑰图，非常惊艳，故尝试用当前爬取的数据进行绘制。

绘图前数据整理

现存数据中不少地区病例已经清零，故在绘图中剔除为0的地区，由于弯弯的数据太过于扎眼，和大陆地区差异巨大，直接用原始数据绘图可视化较差，故对原始数据进行了相应调整。

library(ggplot2)
library(RColorBrewer)
library(dplyr)
###绘图数据处理###
mydata[,c(1,3)]%>%arrange(confirm)->mgdata
mgdata<-filter(mgdata,confirm!=0)##剔除现存本土确诊病例为0的省份##
c(mgdata$confirm[1:20]*10,mgdata$confirm[21:22])->mgdata$num##因数据范围差距较大，对其进行转换##
seq(1,length(mgdata$id_area))->mgdata$id
mm<-data.frame()
for(i in 1:length(mgdata$id_area)){if(mgdata$id[i]<=10){mm[i,1]<-paste0(mgdata$confirm[i],"例 ",mgdata$id_area[i])}else if(mgdata$id[i]>10&mgdata$id[i]<=18){mm[i,1]<-paste0(mgdata$confirm[i],"例\n",mgdata$id_area[i])}else{mm[i,1]<-paste0(mgdata$id_area[i],"\n",mgdata$confirm[i],"例")}
}##生成图标文本标签##
mm$V1->mgdata$label

在对图形添加文本标签时发现角度较难掌握，一个一个添加较为繁琐，故编写了角度生成函数ggangel，可以根据柱状图数量生成文本标签角度（有需要的小伙伴可以拿去用哦~）。

ggangel<-function(x){kk<-as.numeric()
for(i in 1:x){j<-360/(2*x)kk[i]<-j+(i-1)*j*2
}
return(kk)
}

绘制玫瑰图

###绘制南丁格尔玫瑰图###
colourful<-colorRampPalette(brewer.pal(5,"Spectral"))(22)##提取想要填充的颜色##
colourful = c("#54778f", "#4EB043", "#E69D2A", "#DD4714", "#A61650")##推荐色号##
ggplot(mgdata,aes(x=id,y=num,label=label))+geom_col(aes(fill=id),width = 1.1,size=0,show.legend = F)+scale_y_log10()+geom_col(aes(y=log10(8)),fill="white",width = 1.1,alpha=0.2,size=0)+geom_col(aes(y=log10(2)),fill="white",width = 1.1,alpha=0.2,size=0)+coord_polar()+theme_void()+scale_fill_gradientn(colors = colourful)->p
p+geom_text(data=filter(mgdata,id<=10),size=2,nudge_y = 0.8,fontface="bold",angle=90-ggangel(22)[1:10])+geom_text(data=filter(mgdata,id<=23&id>18),size=2,nudge_y = -0.5,fontface="bold",angle=360-ggangel(22)[19:22],color="white")+geom_text(data=filter(mgdata,id>10&id<=18),size=2,nudge_y=-0.5,fontface="bold",color="white")##依据标签位置类别逐类添加文本标签##
ggsave("f://data//Books//rosemap.jpg")##存图##

结果如下

【R语言南丁格尔玫瑰图绘制】相关推荐

R语言-南丁格尔玫瑰图
简介南丁格尔玫瑰图(Nightingale rose chart)即极坐标柱形图,是一种圆形的柱形图.由弗罗伦斯-南丁格尔所发明,普通柱形图的坐标系是直角坐标系,而南丁格尔玫瑰图的坐标系是极坐标系. ...
R语言ggplot绘制鸡冠花图（南丁格尔玫瑰图）
南丁格尔玫瑰图也就是鸡冠花图,一种极坐标的柱状图.图形的大小跟变量分组的数值呈正比.从极坐标延伸出来的每一环可以当做标尺来使用,用来表示分段的大小并代表数值的高低. 首先绘制柱状图 bar<- ...
python+matplotlib绘制南丁格尔玫瑰图
实验:绘制南丁格尔玫瑰图本实验有一定难度,有人说matplotlib绘图和matlab大同小异,我看除了一些函数名相同之外,其他的像参数和使用方法很不一样.另外我不知道是不是在matlab中画玫 ...
echarts绘制嵌套环形图(南丁格尔玫瑰图)
根据专业总人数和学院总人数绘制嵌套环形图首先,echarts的基本步骤引入js,准备容器,初始化实例, <script src="lib/echarts.min.js"& ...
使用Matplotlib绘制南丁格尔玫瑰图
前言在前文中,我们介绍了使用pyecharts绘制南丁格尔玫瑰图,本章我们再学习一下使用matplotlib绘制南丁格尔玫瑰图,了解在极坐标系中绘制柱状图.并对比一下两种不同的绘制方法,如何实现? ...
python实验之绘制南丁格尔玫瑰图
一.实验目的了解玫瑰图的前世今生:了解 matplotlib 标准库中的 pyplot 模块:了解在极坐标系中绘制柱状图. 二.实验基本原理及步骤(或方案设计及理论计算) 实验步骤: 查阅文档,了 ...
【Python绘图】pyecharts绘制南丁格尔玫瑰图
from pyecharts.charts import Pie from pyecharts import options as opts import random# 随机颜色生成 def ran ...
【Python数据分析——使用matplotlib制作南丁格尔玫瑰图】
目录一.介绍二.相关库三.数据准备四.pyecahrts代码实现五.matplotlib代码实现一.介绍玫瑰图是弗罗伦斯·南丁格尔所发明的.又名为极坐标面积图,是一种圆形的直方图. 南丁 ...
Python数据可视化之南丁格尔玫瑰图(亲测)
文章目录 1. 什么是南丁格尔玫瑰图 2. 南丁格尔玫瑰图的绘制 1. 什么是南丁格尔玫瑰图央视新闻用来展示疫情0增长天数的图就是南丁格尔玫瑰图. 南丁格尔玫瑰图(Nightingale rose ...
Python数据可视化之南丁格尔玫瑰图
文章目录 1. 什么是南丁格尔玫瑰图 2. 南丁格尔玫瑰图的绘制 1. 什么是南丁格尔玫瑰图央视新闻用来展示疫情0增长天数的图就是南丁格尔玫瑰图. 南丁格尔玫瑰图(Nightingale rose ...

【R语言南丁格尔玫瑰图绘制】

绘图前数据整理

绘制玫瑰图

结果如下

【R语言南丁格尔玫瑰图绘制】相关推荐

最新文章

热门文章

【R语言 南丁格尔玫瑰图绘制】

绘图前数据整理

绘制玫瑰图

结果如下

【R语言 南丁格尔玫瑰图绘制】相关推荐

最新文章

热门文章

【R语言南丁格尔玫瑰图绘制】

【R语言南丁格尔玫瑰图绘制】相关推荐