如何在R语言中绘制连续线条的360°极坐标图？

问题背景 #

当前我用以下R代码生成了柱状极坐标图：

data2 <- data.frame(time = c(ts_nodates), bearing = c(T6PO_Clean$bearing))

ggplot(data2, aes(x = bearing, y = time, fill = factor(bearing))) 
+     geom_col(width = 5)   
+     scale_x_continuous(breaks = seq(0, 359, by = 10), limits = c(-10, 350)) 
+     coord_polar(start = -pi/18, clip = "off")

我希望将其改为连续线条的360°极坐标图，但尝试后得到异常结果，目标是生成环形连续线条的极坐标图效果。

解决方案代码 #

要实现目标效果，需调整数据处理和绘图参数，修改后的代码如下：

# 1. 按方位角排序数据，保证线条连接顺序正确
data2_sorted <- data2[order(data2$bearing), ]

# 2. 添加闭合点，复制第一条数据到末尾，实现360°环形闭合
data2_closed <- rbind(data2_sorted, data2_sorted[1, ])

# 3. 绘制连续线条极坐标图
ggplot(data2_closed, aes(x = bearing, y = time)) +
  geom_line(color = "#2c3e50", size = 1) +  # 替换柱状为线条，设置颜色和粗细
  scale_x_continuous(breaks = seq(0, 359, by = 10), limits = c(0, 360)) +  # 适配360°完整范围
  scale_y_continuous(expand = c(0, 0)) +  # 移除y轴留白，贴合环形
  coord_polar(start = -pi/18, clip = "off") +  # 保留原起始角度设置
  theme_minimal() +
  theme(
    legend.position = "none",  # 移除不必要的图例
    panel.grid = element_line(color = "#bdc3c7", linetype = "dashed")  # 优化网格样式
  )

关键调整说明 #

• 替换geom_col为geom_line：用线条替代柱状，实现连续可视化效果
• 数据排序：必须按bearing字段排序，避免线条因数据顺序混乱出现跳变
• 添加闭合点：通过复制首行数据到末尾，让线条在360°位置与0°位置衔接，形成完整环形
• 坐标轴调整：将x轴范围设为0-360，适配360°极坐标的完整展示；移除y轴留白让线条更贴合环形结构

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