ggplot如何修改极坐标图中网格的特定部分？

问题描述 #

我正在绘制如下的极坐标图：

library(geomtextpath)
library(tidyverse)

df <- data.frame(Temperature = c(4.4, 4.6, 6.3, 8.7, 11.6, 14.1, 15.9, 15.5, 13.1, 9.7, 6.7, 4.3),
                 Month = factor(month.name, month.name),
                 MonthRad = seq(0, 2*pi, length.out = 12))

rad2deg <- function(rad) {(rad * 180) / (pi)}

ggplot(df, aes(MonthRad, Temperature)) +
  geom_line() +
  geom_point(aes(x = 0, y = 0), shape = 4, size = 3, stroke = 1.5) +
  geom_textpath(aes(x = seq(min(MonthRad), max(MonthRad), length.out = 13)[-13] + (2*pi/12)/2, label = Month), y = max(df$Temperature),
                vjust = 1.5) +
  scale_x_continuous(breaks = seq(min(df$MonthRad), max(df$MonthRad), length.out = 13)[-13],
                     labels = seq(min(df$MonthRad), max(df$MonthRad), length.out = 13)[-13] %>% 
                       rad2deg() %>% 
                       round(0) %>% 
                       paste0("°"),
                     minor_breaks = c(0, max(df$MonthRad)/4)) +
  scale_y_continuous(breaks = c(0, max(df$Temperature))) +
  theme_bw() +
  theme(panel.border = element_blank(),
        axis.text.x = element_text(size = 10, 
                                   vjust = -.5),
        axis.title.x = element_blank(),
        panel.grid.major.x = element_line(color = "darkgrey", 
                                          linetype = "dashed"),
        panel.grid.major.y = element_line(color = "black"),
        panel.grid.minor.x = element_line(color = "black",
                                          arrow = arrow(angle = 25,
                                                        length = unit(0.02, "native"),
                                                        type = "closed")),
        legend.position = "none",
        axis.title.y = element_blank(),
        axis.text.y = element_blank(), 
        axis.ticks.y = element_blank()) + 
  coord_curvedpolar()

原效果：

当前灰色虚线由panel.grid.major.x生成，对应scale_x_continuous的breaks设置。我需要把月份名称之间的网格段改成黑色实线，预期效果：

解决方法 #

要实现目标效果，只需调整网格线的样式配置，并对应修改x轴的刻度设置，具体步骤如下：

1. 调整网格线样式：将panel.grid.major.x的颜色改为黑色，线型设为实线；
2. 对齐网格与月份分隔：让x轴的breaks对应月份的角度位置，确保网格线正好分隔月份；
3. 清理冗余元素：移除不需要的次要网格线和角度刻度标签，避免视觉干扰。

修改后的完整代码：

library(geomtextpath)
library(tidyverse)

df <- data.frame(Temperature = c(4.4, 4.6, 6.3, 8.7, 11.6, 14.1, 15.9, 15.5, 13.1, 9.7, 6.7, 4.3),
                 Month = factor(month.name, month.name),
                 MonthRad = seq(0, 2*pi, length.out = 12))

rad2deg <- function(rad) {(rad * 180) / (pi)}

# 计算月份名称的位置（每个月的中间角度）
month_mid_rads <- df$MonthRad + (2*pi/12)/2

ggplot(df, aes(MonthRad, Temperature)) +
  geom_line() +
  geom_point(aes(x = 0, y = 0), shape = 4, size = 3, stroke = 1.5) +
  geom_textpath(aes(x = month_mid_rads, label = Month), y = max(df$Temperature),
                vjust = 1.5) +
  scale_x_continuous(breaks = df$MonthRad,  # 网格线对应每个月的起始角度
                     labels = NULL,  # 隐藏原角度刻度
                     minor_breaks = NULL) +
  scale_y_continuous(breaks = c(0, max(df$Temperature))) +
  theme_bw() +
  theme(panel.border = element_blank(),
        axis.text.x = element_blank(),  # 隐藏x轴刻度文本
        axis.title.x = element_blank(),
        panel.grid.major.x = element_line(color = "black",  # 设置为黑色实线
                                          linetype = "solid"),
        panel.grid.major.y = element_line(color = "black"),
        panel.grid.minor.x = element_blank(),  # 移除带箭头的次要网格线
        legend.position = "none",
        axis.title.y = element_blank(),
        axis.text.y = element_blank(), 
        axis.ticks.y = element_blank()) + 
  coord_curvedpolar()

关键修改说明 #

• 用month_mid_rads精准定位月份名称的位置，确保和网格线分隔对应；
• 将panel.grid.major.x改为黑色实线，直接对应月份之间的分隔网格；
• 隐藏了原有的角度刻度标签，避免和月份名称重叠；
• 移除了次要网格线的箭头样式，让整体视觉更简洁统一。

内容的提问来源于stack exchange，提问作者J. Doe