独特的箱型图版式，你学会了吗？

##帮助将econodist图例添加到ggplot2绘图
add_econodist_legend()
##创建一个可以与econodist图表一起使用的图例grob
econodist_legend_grob()
##绘图和统计
geom_econodist() GeomEconodist 
stat_econodist() StatEconodist
##左对齐
left_align()
##更流行的Econodist 风格的ggplot2主题
theme_econodist()

install.packages("ggeconodist", repos = "https://cinc.rud.is")
library(ggeconodist)

library(dplyr)
library(patchwork)
library(hrbrthemes)
library(gapminder)

p <- ggplot(mpg, aes(class, hwy)) + theme_ipsum_rc()
##将geom_boxplot改为geom_econodist即可用ggeconodist绘制箱型图
(p + geom_boxplot()) +
  (p + geom_econodist(width = 0.25)) +
  plot_layout(ncol = 1)

#将图片转为横向
(p + geom_boxplot() + coord_flip()) +
#参数设置颜色
  (p + geom_econodist(tenth_col = ft_cols$blue, ninetieth_col = ft_cols$red) +
     coord_flip()) +
  plot_layout(ncol = 1)

##设置填充颜色 
(p + geom_boxplot(aes(fill = factor(drv)))) +
  (p + geom_econodist(aes(fill = factor(drv)))) +
  plot_layout(ncol = 1)

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",
    show.legend = FALSE
  ) +
  ##标尺设置
  ggthemes::scale_fill_tableau(name = NULL) +
  coord_flip() +
  labs(
    x = "Year", title = "Life Expectancy", y = NULL,
    caption = "Example borrowed from @cmdline_tips"
  ) +
  ##分面设置
  facet_wrap(~continent, nrow = 4) +
  theme_ipsum_rc() -> gmgg

grid.newpage()
gmgg %>% 
  add_econodist_legend(
    econodist_legend_grob(
      tenth_col = "#b07aa1",
      ninetieth_col = "#591a4f",
    ), 
    below = "axis-b-1-4", 
    just = "right"
  ) %>% 
  grid.draw()

##普通boxplot
boxplot(Petal.Width~Species,iris,col="#b07aa1")
##使用ggeconodist绘图
ggplot(iris, aes(Species,Petal.Width,color=Species),color  = "Species")+ 
  geom_econodist(width = 0.5)

##绘制两种常见的堆积模式
ggplot(diamonds,aes(cut,price,fill=color))+
  geom_econodist()
ggplot(diamonds,aes(cut,price,fill=color,alpha=1/30))+
  geom_econodist(position="identity")

###ggplot2两种分面板式
ggplot(diamonds,aes(cut,price,fill=color))+
  geom_econodist()+
  facet_grid(.~color) 
ggplot(diamonds,aes(cut,price,fill=color))+
  geom_econodist()+
  facet_wrap(~color)

library(ggthemes)
ggplot(diamonds,aes(cut,price,fill=color))+
  geom_econodist()+
  ##图题
  ggtitle("Box Plot")+
  ##添加economist特色主题
  theme_economist()+
  ##设置图例配色
  scale_fill_economist()+
  guides(fill=guide_legend(title=NULL)) 

ggplot(diamonds,aes(cut,price,fill=color))+
  geom_econodist()+
  ggtitle("Box Plot")+
  theme_economist()+
  scale_fill_economist()+
  guides(fill=guide_legend(title=NULL))+
  ##按颜色进行分面
  facet_grid(.~color)

##使用mammogram_costs数据
ggplot(mammogram_costs, aes(x = city)) +
  geom_econodist(
    aes(ymin = tenth, median = median, ymax = ninetieth),
    stat = "identity", show.legend = TRUE
  ) +
  ##标尺设置范围等
  scale_y_continuous(expand = c(0,0), position = "right", limits = range(0, 800)) +
  ###版面设置
  coord_flip() +
  labs(
    x = NULL, y = NULL,
    title = "Mammoscams",
    subtitle = "United States, prices for a mammogram*\nBy metro area, 2016, $",
    caption = "*For three large insurance companies\nSource: Health Care Cost Institute"
  ) +
  theme_econodist() -> gg

grid.newpage()
left_align(gg, c("subtitle", "title", "caption")) %>% 
  add_econodist_legend(econodist_legend_grob(), below = "subtitle") %>% 
  grid.draw()