经济学人风格统计分布图怎样绘制？！一行代码搞定

公众号后台回复“图书“，了解更多号主新书内容
     作者：宁俊骐
     来源：DataCharm

今天小编给大家推荐一种绘制另类分布图的绘制方法，其可以绘制出经济学人风格的箱线分布统计图。当然，你可以将其看作是箱线图的另外一种可视化形式。涉及的知识点为R-ggeconodist包绘图技巧，详细内容如下：

• R-ggeconodist包简介
• R-ggeconodist包样例介绍

R-ggeconodist包简介

R-ggeconodist包作为建立在ggplot2基础上的第三方包，其可以任意添加其他图层(geom_),当然，其目的是帮助我们绘制出经济学人风格样式的箱线统计图，主要包含的绘图函数如下：

• add_econodist_legend():获取经济学人风格的图例(econodist legend )
• econodist_legend_grob():创建与Econodist图表一起使用的图grob。
• geom_econodist():经济学人图层绘制。
• left_align():帮助将ggplot2绘图组件左侧。
• theme_econodist()：经济学人风格的ggplot2绘图主题。

接下来，小编就通过几个例子介绍R-ggeconodist包的绘图效果。

R-ggeconodist包样例介绍

「样例一」：ggplot2::geom_boxplot() 和 ggeconodist::geom_econodist()

• ggplot2::geom_boxplot()

library(tidyverse)
library(ggtext)
library(hrbrthemes)
library(wesanderson)
library(ggsci)
library(ggeconodist)

plot01 <- ggplot(mpg, aes(class, hwy)) + 
  geom_boxplot() +
  labs(
    title = "Example of <span style='color:#D20F26'>ggplot2::geom_boxplot function</span>",
    subtitle = "processed charts with <span style='color:#1A73E8'>geom_boxplot()</span>",
    caption = "Visualization by <span style='color:#0057FF'>DataCharm</span>") +
  hrbrthemes::theme_ipsum(base_family = "Roboto Condensed") +
  theme(
    plot.title = element_markdown(hjust = 0.5,vjust = .5,color = "black",
                                  size = 20, margin = margin(t = 1, b = 12)),
    plot.subtitle = element_markdown(hjust = 0,vjust = .5,size=15),
    plot.caption = element_markdown(face = 'bold',size = 12)
      )

• ggeconodist::geom_econodist()

plot01_01 <- ggplot(mpg, aes(class, hwy)) + 
  ggeconodist::geom_econodist(width = 0.25) +
  labs(
    title = "Example of <span style='color:#D20F26'>ggeconodist::geom_econodist function</span>",
    subtitle = "processed charts with <span style='color:#1A73E8'>geom_econodist()</span>",
    caption = "Visualization by <span style='color:#0057FF'>DataCharm</span>") +
  hrbrthemes::theme_ipsum(base_family = "Roboto Condensed") +
  theme(
    plot.title = element_markdown(hjust = 0.5,vjust = .5,color = "black",
                                  size = 20, margin = margin(t = 1, b = 12)),
    plot.subtitle = element_markdown(hjust = 0,vjust = .5,size=15),
    plot.caption = element_markdown(face = 'bold',size = 12)
      )

下面这幅图可以更好的对比两者不同的可视化效果：

介绍完具体的不同之后，我们再试着对其默认的颜色进行更改：

「样例二」：

plot02 <- ggplot(mpg, aes(class, hwy)) + 
  ggeconodist::geom_econodist(width = 0.5,median_point_size = 1.5,tenth_col = "#BC3C28", ninetieth_col = "#0072B5") +
  coord_flip() +
  labs(
    title = "Example of <span style='color:#D20F26'>ggeconodist::geom_econodist function</span>",
    subtitle = "processed charts with <span style='color:#1A73E8'>geom_econodist()</span>",
    caption = "Visualization by <span style='color:#0057FF'>DataCharm</span>") +
  hrbrthemes::theme_ipsum(base_family = "Roboto Condensed") +
  theme(
    plot.title = element_markdown(hjust = 0.5,vjust = .5,color = "black",
                                  size = 20, margin = margin(t = 1, b = 12)),
    plot.subtitle = element_markdown(hjust = 0,vjust = .5,size=15),
    plot.caption = element_markdown(face = 'bold',size = 12)
      )

当然，你还可以附上不同颜色：

「样例三」：

plot03 <- ggplot(mpg, aes(class, hwy)) + 
  ggeconodist::geom_econodist(aes(fill=factor(drv)),alpha=.5) +
  ggsci::scale_fill_nejm()+
  labs(
    title = "Example of <span style='color:#D20F26'>ggeconodist::geom_econodist function</span>",
    subtitle = "processed charts with <span style='color:#1A73E8'>geom_econodist()</span>",
    caption = "Visualization by <span style='color:#0057FF'>DataCharm</span>") +
  hrbrthemes::theme_ipsum(base_family = "Roboto Condensed") +
  theme(
    plot.title = element_markdown(hjust = 0.5,vjust = .5,color = "black",
                                  size = 20, margin = margin(t = 1, b = 12)),
    plot.subtitle = element_markdown(hjust = 0,vjust = .5,size=15),
    plot.caption = element_markdown(face = 'bold',size = 12)
      )

「样例四」：添加额外样例

gapminder %>%
  filter(year %in% c(1952, 1962, 1972, 1982, 1992, 2002)) %>%
  filter(continent != "Oceania") %>%
  ggplot(aes(x = factor(year), y = lifeExp, fill = continent)) +
  geom_econodist(
    median_point_size = 1.2,
    tenth_col = "#b07aa1",
    ninetieth_col = "#591a4f",
    alpha = .5,
    show.legend = FALSE
  ) +
  ggsci::scale_fill_jama(name = NULL) +
  coord_flip() +
  facet_wrap(~continent, nrow = 4) +
   labs(
    title = "Example of <span style='color:#D20F26'>ggeconodist::geom_econodist function</span>",
    subtitle = "processed charts with <span style='color:#1A73E8'>geom_econodist()</span>",
    caption = "Visualization by <span style='color:#0057FF'>DataCharm</span>") +
  hrbrthemes::theme_ipsum_rc(base_family = "Roboto Condensed") +
  theme(
    plot.title = element_markdown(hjust = 0.5,vjust = .5,color = "black",
                                  size = 20, margin = margin(t = 1, b = 12)),
    plot.subtitle = element_markdown(hjust = 0,vjust = .5,size=15),
    plot.caption = element_markdown(face = 'bold',size = 12)
      ) %>% 
  # 添加额外图例
  add_econodist_legend(
    econodist_legend_grob(
      tenth_col = "#b07aa1",
      ninetieth_col = "#591a4f",
    ), 
    below = "axis-b-1-4", 
    just = "right"
  ) %>% 
  grid.draw() %>% 
ggsave(filename = geom_econodist04.png",
  width = 7.5, height = 8, dpi = 900)

更多详细内容可参考：R-ggeconodist介绍^[1]

总结

今天小编介绍了另类的分布统计图绘制(geom_econodist),带给大家不一样的视觉效果，希望小伙伴们可以尝试下~~

◆ ◆ ◆  ◆ ◆
麟哥新书已经在当当上架了，我写了本书：《拿下Offer-数据分析师求职面试指南》，目前当当正在举行活动，大家可以用相当于原价5折的预购价格购买，还是非常划算的：

数据森麟公众号的交流群已经建立，许多小伙伴已经加入其中，感谢大家的支持。大家可以在群里交流关于数据分析&数据挖掘的相关内容，还没有加入的小伙伴可以扫描下方管理员二维码，进群前一定要关注公众号奥，关注后让管理员帮忙拉进群，期待大家的加入。

管理员二维码：
猜你喜欢

● 卧槽！原来爬取B站弹幕这么简单
● 厉害了！麟哥新书登顶京东销量排行榜！
● 笑死人不偿命的知乎沙雕问题排行榜
● 用Python扒出B站那些“惊为天人”的阿婆主！
● 你相信逛B站也能学编程吗