R极坐标分类绘图：如何实现无重叠带标签散点？

核心思路是手动为每个分类组内的点计算偏移位置，模拟geom_dotplot的堆叠效果，同时兼容coord_polar()，实现无重叠散点+编号标签的极坐标图。

步骤1：数据预处理 #

先将分类变量转换为数值型，再按x轴分类分组，为每个组内的点计算垂直方向的堆叠偏移量，确保同组内的点分散不重叠。以下是适配69组数据的处理示例：

library(tidyverse)

# 模拟69组测试数据（结构与你的数据对齐）
set.seed(123)
df <- tibble(
  x = sample(paste0("Group_", 1:10), 69, replace = TRUE),
  y = sample(paste0("Cat_", 1:5), 69, replace = TRUE),
  id = 1:69
)

# 预处理：转数值+计算堆叠偏移
df_processed <- df %>%
  mutate(
    x_num = as.integer(factor(x)),
    y_num = as.integer(factor(y))
  ) %>%
  group_by(x, y) %>%
  # 同组同分类的点，在y轴方向添加递进偏移，避免重叠
  mutate(offset = seq(-0.2, 0.2, length.out = n())) %>%
  ungroup() %>%
  mutate(y_pos = y_num + offset)

步骤2：绘制极坐标图 #

用自定义的位置数据绘制散点和编号标签，最后启用极坐标：

ggplot(df_processed, aes(x = x_num, y = y_pos)) +
  geom_point(size = 3, color = "#2c3e50") +
  # 添加编号标签，调整位置避免遮挡散点
  geom_text(aes(label = id), size = 2.5, hjust = 0.5, vjust = 1.5) +
  # 将数值轴转回原分类标签
  scale_x_continuous(breaks = unique(df_processed$x_num), labels = unique(df_processed$x)) +
  scale_y_continuous(breaks = unique(df_processed$y_num), labels = unique(df_processed$y)) +
  coord_polar() +
  labs(x = "X分类变量", y = "Y分类变量", title = "极坐标无重叠散点带编号") +
  theme_minimal() +
  theme(
    axis.text.x = element_text(size = 10),
    axis.text.y = element_text(size = 10)
  )

关键调整点 #

• 偏移量范围（seq(-0.2, 0.2, ...)）可根据每组内的点数量调整，点多的组可扩大范围（如-0.3到0.3），保证无重叠。
• 若y轴分类数量多，可缩小散点尺寸和标签字号，提升整体可读性。
• 该方法完全自定义点位置，不受geom_dotplot与极坐标不兼容的限制，同时解决了geom_quasirandom的重叠问题。

内容的提问来源于stack exchange，提问作者Julien