ggplot2优雅的绘制圆形柱状图

本节来介绍如何利用ggchicklet包通过ggplot2来绘制圆形柱状图,喜欢的小伙伴欢迎扫描文末二维码加入我的交流群更多精彩内容为您而准备

加载R包

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

加载数据

data("debates2019")

数据清洗

df <- debates2019 %>%
  filter(debate_group == 1) %>% 
  mutate(speaker = fct_reorder(speaker,elapsed, sum,.desc=FALSE)) %>%
  mutate(topic = fct_other(topic,
    c("Immigration", "Economy", "Climate Change",
      "Gun Control", "Healthcare", "Foreign Policy")))

数据可视化

ggplot(df,aes(speaker, elapsed, group = timestamp, fill = topic)) +
  geom_chicklet(width = 0.5)+
  scale_y_continuous(
    expand = c(0, 0.0625),
    position = "right",
    breaks = seq(0, 14, 2),
    labels = c(0, sprintf("%d min.", seq(2, 14, 2)))
  ) +
  scale_fill_manual(
    name = NULL,
    values = c(
      "Immigration" = "#ae4544",
      "Economy" = "#d8cb98",
      "Climate Change" = "#a4ad6f",
      "Gun Control" = "#cc7c3a",
      "Healthcare" = "#436f82",
      "Foreign Policy" = "#7c5981",
      "Other" = "#cccccc"
    ),breaks = setdiff(unique(debates2019$topic), "Other")) +
  labs(x = NULL, y = NULL, fill = NULL) +
  theme_classic()+
  theme(axis.text.x = element_text(color="black",vjust=.5,hjust=1,
                                   size=10,angle=90),
        axis.text.y=element_text(color="black",size=10),
        legend.position = "top")

关注下方公众号，获取更多优质资源，如需要加入微信交流群，请在菜单栏处添加作者微信，即可邀您进群