ggplot2优雅的自定义绘制圈图

library(tidyverse)
# install.packages("packcircles") # 如果没有安装packcircles包，可以先安装
library(packcircles)
library(geomtextpath)
library(ggpattern)

languages <- read_tsv("data.xls")

df_raw <- languages %>% arrange(desc(github_language_repos)) %>% 
  slice(1:5)

# 利用packcircles包进行圆圈布局，根据github_language_repos的值计算圆圈大小，并对圆圈半径进行调整
pack <- circleProgressiveLayout(df_raw$github_language_repos, sizetype = "area") %>% 
  mutate(radius = radius - 100)

# 将圆圈布局的结果与原始数据合并，并为每个圆圈指定一个id
df_plot <- cbind(df_raw, pack) %>% mutate(id = 1:5)

# 利用circleLayoutVertices函数生成每个圆圈上的点的坐标信息
df <- circleLayoutVertices(pack, npoints = 50)

# 为每个圆圈指定一个title，用于绘制文字标签
df$title <- df_plot$title[match(df$id, df_plot$id)]

ggplot() +
  # 利用geom_textpath绘制围绕圆圈的文字标签
  geom_textpath(data = df, aes(x, y, label = title), hjust = "ymax",size = 4.5) +
  # 利用geom_text绘制圆圈内的文字标签，数字使用逗号分隔方便阅读
  geom_text(data = df_plot, aes(x , y, label = scales::comma(github_language_repos)),size = 3) +
  coord_equal() + # 设置坐标轴等比例
  theme_void() + # 设置空白主题，即无背景和坐标轴
  scale_pattern_filename_discrete(choices = image) + # 设置图案的选择
  theme(legend.position = "none", # 隐藏图例
        plot.margin = unit(c(1,1, 1, 1), "cm")) # 设置图形的边距