爆款风玫瑰图：新冠肺炎全球疫情形势

最近人民日报新媒体发布的「新冠肺炎全球疫情形势」图，很多人想重复，但画不出来。这其实是几行代码的事情而已。

这个图，大名叫风玫瑰图，用R画起来分分钟的事情。但你画出来的，可能很丑，要画出爆款，还是有点门槛的。

这个图确诊数是取过对数，这一点容易，而颜色的映射，也是取对数的，不然的话，前三是红的，其它全绿了。然后标国家和确诊数目，字体还要旋转相应的角度，这一点可能是最难的。当然细节上还有一点，就是中间还要空一个白洞。如果你知道怎么加白洞，那么加两圈淡淡的圈也容易了。

首先我们用nCov2019包中的全球历史数据，两三行代码就能拿到。

海外新冠数据

require(nCov2019)
y = load_nCov2019(lang='zh')
d = y['global']

过滤数据

过滤一下，只拿上一天的数据，并排除中国，只留海外数据，然后这里又进一步过滤，只保留海外前40的数据。

require(dplyr)
dd <- filter(d, time == time(y) & country != '中国') %>%
    arrange(desc(cum_confirm))

dd = dd[1:40, ]
dd$country = factor(dd$country, levels=dd$country)

画图