ggplot2极坐标图线条异常绕圈：如何实现最短路径连线？

我用ggplot2绘制极坐标角度图，单独画点没问题，但画点间连线时出现异常：当数据角度从π跳转到-π附近时，线条会绕图一圈。希望用ggplot2解决这个问题，不想切换到plotly。复现代码如下：

test = data.frame(x= 1:25, 
                  theta = c(seq(0, pi, length.out=13), seq(-pi+pi/25, 0, length.out=12)))

ggplot(test, aes(x= x, y =theta, color = x))+
  geom_line()+
  geom_point()+
  scale_color_viridis_c("x")+
  coord_radial(theta = "y", start=pi,  clip= "off", r.axis.inside = T, expand=F, rotate.angle = T)+scale_y_continuous(limits = c(-pi, pi))+
  xlab("x")+ylab("Angle (rad)")

解决方案 #

问题根源是ggplot2在极坐标连线时，会直接按原始数值的线性关系绘制，不会自动识别角度的周期性（π和-π实际是同一个位置）。要实现最短路径连线，需先调整theta值，让相邻点的角度差控制在[-π, π]范围内：

• 计算相邻theta的差值，判断差值的绝对值是否超过π
• 对theta进行偏移调整：若后一个点比前一个点小超过π，则给后一个点加2π；若大超过π，则减2π
• 用调整后的theta绘图，最后将坐标轴刻度映射回原始的[-π, π]范围

修改后的完整代码：

library(dplyr)
library(ggplot2)

test = data.frame(x= 1:25, 
                  theta = c(seq(0, pi, length.out=13), seq(-pi+pi/25, 0, length.out=12)))

# 调整theta值，确保相邻点角度差在[-pi, pi]内
test_adjusted <- test %>%
  mutate(theta_adjusted = theta,
         diff = theta - lag(theta)) %>%
  mutate(theta_adjusted = case_when(
    diff < -pi ~ theta_adjusted + 2*pi,
    diff > pi ~ theta_adjusted - 2*pi,
    TRUE ~ theta_adjusted
  )) %>%
  fill(theta_adjusted, .direction = "down") # 填充第一个值的NA

ggplot(test_adjusted, aes(x= x, y = theta_adjusted, color = x))+
  geom_line()+
  geom_point()+
  scale_color_viridis_c("x")+
  coord_radial(theta = "y", start=pi,  clip= "off", r.axis.inside = T, expand=F, rotate.angle = T)+
  # 将y轴刻度映射回[-pi, pi]
  scale_y_continuous(
    limits = c(-pi, 3*pi), # 扩大范围容纳偏移后的theta值
    breaks = c(-pi, -pi/2, 0, pi/2, pi, 3*pi/2, 2*pi),
    labels = c(expression(-pi), expression(-pi/2), "0", expression(pi/2), expression(pi), expression(-pi/2), expression(-pi))
  )+
  xlab("x")+ylab("Angle (rad)")

说明 #

调整后的theta_adjusted会把原本接近-π的数值偏移到π到2π的区间，这样连线时就会走π到该偏移值的最短路径，而非绕到-π。最后通过scale_y_continuous将刻度标签替换为原始的角度标识，保证坐标轴显示符合预期。

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