饼图加环形标注-R

帮朋友复现的图，这里代码做个留存记录

07ccf9ba01fd0eff123fe454e82f12c.png

R代码

library(ggplot2)
library(ggnewscale)
library(dplyr)

# 创建示例数据（按大致占比）
data <- data.frame(
  group = c("PD1+", "LAG3+", "TIM3+", "PD1+LAG3+", "PD1+TIM3+", "LAG3+TIM3+", "PD1+LAG3+TIM3+", "阴性"),
  value = c(15, 10, 5, 10, 7, 6, 8, 40),
  color = c("blue", "red", "yellow", "purple", "lightblue", "orange", "brown", "gray80")
)

# 计算起始和结束角度
data <- data %>%
  arrange(desc(value)) %>%
  mutate(end = cumsum(value),
         start = lag(end, default = 0))

# 绘制饼图
P <- ggplot(data, aes(ymin = 0, ymax = 1, xmin = start, xmax = end, fill = group)) +
  geom_rect() +
  scale_fill_manual(values = setNames(data$color, data$group)) +
  coord_polar(theta = "x") +
  theme_void() +
  theme(legend.position = "none") +
  ggtitle("SFV-Luc 免疫分布") +
  new_scale_fill() +  # 开启第二个填充层
  
  # 叠加外圈标注
  geom_rect(data = data %>% filter(group %in% c("PD1+", "PD1+LAG3+", "PD1+TIM3+", "PD1+LAG3+TIM3+")),
            aes(ymin = 1, ymax = 1.1, xmin = start, xmax = end, fill = "PD1+"), inherit.aes = FALSE) +

  
  geom_rect(data = data %>% filter(group %in% c("LAG3+", "PD1+LAG3+", "LAG3+TIM3+", "PD1+LAG3+TIM3+")),
            aes(ymin = 1.1, ymax = 1.2, xmin = start, xmax = end, fill = "LAG3+"), inherit.aes = FALSE) +

  
  geom_rect(data = data %>% filter(group %in% c("TIM3+", "PD1+TIM3+", "LAG3+TIM3+", "PD1+LAG3+TIM3+")),
            aes(ymin = 1.2, ymax = 1.3, xmin = start, xmax = end, fill = "TIM3+"), inherit.aes = FALSE) +
  scale_fill_manual(values = c("PD1+" = "blue", "LAG3+" = "red", "TIM3+" = "yellow"), na.value = NA)
P

结果图：

2fa17643fcdccf7b3ffc2ed67a2f057.png