ggplot2优雅绘制环状华夫图

library(tidyverse)
library(ggtext)

df <- read_tsv("data.xls") %>% mutate(count =as.factor(EDA_count))

labels <- tibble(x = 0,y = 1:5,
  text = c("A", "B","C","D","E"))

ggplot() + # 构建画布
  geom_segment(data =df, aes(x = x + .5, xend = x + (.5+.9),
  y = plot_seg, yend = plot_seg, color = count),
               size = 3)+ # 绘制色块
  geom_segment(aes(x = 0 + .5, xend = 2 + (.5+.9), y = 1 - .4, yend = 1 - .4),
               size = 0.5, color = "black", # 绘制一个箭头指明方向
               arrow = arrow(length = unit(0.005, "npc"))) +
  # 添加标签             
  geom_text(data = labels, aes(x = x, y = y, label = text),
            colour="black",family="Times",fontface = "bold") +
  # 添加注释并通过 richtext引入markdown语法
  annotate(geom = "richtext",x = 0,y = -6,label = "**count**",
    color = "black", family = "Times",
    fill = NA, label.color = NA, size = 5) +
  # 添加颜色  
  scale_color_brewer(palette="Paired")+
  # 设置坐标范围
  ylim(-8, 6) + xlim(0, 20) +
  # 转化为极坐标
  coord_polar() +
  # 修改图例
  guides(color = guide_legend(keywidth =2, keyheight = 1,title.position = "top",
                              title.hjust = .5)) +
  # 设置主题
  theme(
    panel.grid = element_blank(),
    axis.ticks = element_blank(),
    axis.text = element_blank(),
    axis.title = element_blank(),
    legend.position = c(0.5,0.5),
    legend.key = element_blank(),
    legend.key.height = unit(5,"mm"),
    legend.key.width = unit(5, "mm"),
    legend.text = element_text(family = "Times", hjust = 0.5, size = 10, colour = "black", face = "bold"),
    legend.title = element_blank(),
    legend.background =element_blank(),
    panel.background = element_rect(fill ="white", colour = "white"),
    plot.background = element_rect(fill = "white", colour = "white", size = 3))