R语言绘图—快速绘制Lollipop图

今天我们还是来介绍用该包快速绘制"棒棒糖"图。

一、数据模拟

我们还是使用上期的数据，代码如下：

myda<-data.frame(  disease=c(rep(c("病毒性肝炎","手足口病","感染性腹泻","流行性感冒","淋病","HIV",               "流行性腮腺炎","登革热","百日咳","丝虫病"),3)),  year=c(rep(c(2021,2020,2019),each=10)),  yval=c(80,70,60,55,50,45,40,30,20,10,         79,73,62,53,49,46,38,32,22,5,         77,70,60,49,42,40,36,30,12,9))

二、快速绘图

2.1绘制棒棒糖图

这里我们绘制2021年的发病情况。

library(ggcharts)library(dplyr)myda %>%  filter(year == 2021) %>%  lollipop_c