如何在ggplot2中制作首因子居正北的均匀径向图

问题分析 #

使用coord_radial时，离散因子作为theta轴会出现首尾水平间距过大的问题，原因是默认离散轴会在两端添加扩展padding，导致角度映射范围被拉伸，首尾间隔大于其他水平之间的间隔。同时要让首个因子位于正北，需要调整角度起始点和轴范围。

解决方案 #

将离散因子转换为连续数值，手动设置x轴的breaks、labels及范围，配合coord_radial的start参数实现均匀分布和正北定位：

示例代码（4个因子） #

library(dplyr)
library(ggplot2)

# 构造数据并将因子转换为从0开始的连续数值
tibble(lab = c("A", "B", "C", "D"),
       val = rexp(4)) %>%
  mutate(x = as.integer(factor(lab)) - 1) %>% # A对应0，B对应1，依此类推
  ggplot(aes(x, val, group = 1)) +
  geom_line() +
  # 设置x轴刻度为转换后的数值，标签对应原因子
  scale_x_continuous(breaks = 0:3, labels = c("A", "B", "C", "D")) +
  # start=-pi/2 将x=0的位置映射到正北（-90度），theta指定x为角度轴
  coord_radial(start = -pi/2, theta = "x", r.axis.inside = TRUE) +
  labs(x = "lab")

适配15个因子的通用写法 #

如果是15个因子水平，只需调整对应的数值范围即可：

# 构造包含15个因子水平的数据集
df <- tibble(lab = LETTERS[1:15], val = rexp(15)) %>%
  mutate(x = as.integer(factor(lab)) - 1)

ggplot(df, aes(x, val, group = 1)) +
  geom_line() +
  scale_x_continuous(breaks = 0:14, labels = df$lab) +
  coord_radial(start = -pi/2, theta = "x", r.axis.inside = TRUE) +
  labs(x = "lab")

关键说明 #

1. 连续数值转换：将因子转为从0开始的连续整数，确保每个水平的位置间隔相等（均为1）。
2. 轴范围与刻度：通过scale_x_continuous指定breaks和labels，让刻度对应原因子水平，同时x轴范围自动匹配0到n-1（n为因子数量），保证角度映射的均匀性。
3. 正北定位：start = -pi/2参数将x=0的位置映射为正北方向（对应极坐标的-90度位置），后续每个因子水平按2π/n的角度间隔均匀分布。

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