R中添加Geom_Bar后Coord_Polar下Geom_Line无法闭合的解决问询

问题背景 #

使用ggplot的coord_polar绘制环形数据时，同时展示两类数据：

• geom_bar：24小时每小时的目标对象计数，x轴以弧度（0到2π）表示时间
• geom_line：对应每小时的气候变量均值

遇到的问题：线条无法首尾闭合，尝试添加n+1行x=0的虚拟数据无效，仅在午夜位置延伸线条，未实现24小时与1小时的闭合。

可行解决方法 #

核心思路：给线条数据复制第一行记录，并将其x值设为2π，让线条从最后一个小时的位置（接近2π）直接连接到2π处的第一小时数据，在极坐标下自然形成闭合环。

修改后的完整代码 #

library(ggplot2)
library(dplyr)

# 模拟数据
n <- 1000
sun.time <- runif(n, 0, 2 * pi)  
predictions <- rnorm(n, mean = 3, sd = 0.5)  
data_sim <- data.frame(sun.time = sun.time, predictions = predictions)

# 按24小时分箱
bins <- 24  
data_sim$bins <- cut(data_sim$sun.time, breaks = seq(0, 2 * pi, length.out = bins + 1), include.lowest = TRUE)

# 计算每箱的预测值均值（线条数据）
average_predictions <- data_sim %>%
  group_by(bins) %>%
  summarise(predictions = mean(predictions, na.rm = TRUE))

# 计算每箱的计数（柱状图数据）
bin_counts <- data_sim %>%
  group_by(bins) %>%
  summarise(count = n()) %>%
  left_join(average_predictions, by = "bins")

# 给每个分箱设置弧度标签，并按顺序排列
bin_counts$labels <- seq(0, 2 * pi, length.out = bins + 1)[-length(seq(0, 2 * pi, length.out = bins + 1))]
bin_counts <- bin_counts %>% arrange(labels)

# 关键：复制第一行数据，将x设为2π，实现线条闭合
line_data <- bind_rows(bin_counts, bin_counts[1,] %>% mutate(labels = 2*pi))

# 绘图
ggplot(bin_counts, aes(x = labels, y = count)) +
  geom_bar(stat = "identity", fill = "skyblue", alpha = 0.7, width = (2 * pi / bins)) +
  # 使用处理后的line_data绘制线条，确保group=1
  geom_line(data = line_data, aes(y = predictions * 15), color = "red", size = 1, group = 1) +
  coord_polar(start = -0.13) +
  theme_minimal() +
  scale_x_continuous(expand = c(0, 0), breaks = seq(0, 2 * pi, by = pi / 2),
                     labels = c('Midnight', 'Sunrise', 'Noon', 'Sunset', 'Midnight')) +
  theme(axis.text.x = element_text(size = 10)) +
  labs(x = '') +
  ylim(0, NA)

方法说明 #

• 之前添加x=0的虚拟数据无效，是因为极坐标下x=0和x=2π是同一个位置，但原数据的最后一个点是2π - 2π/24，线条从该点到x=0会跨越整个环形，而非直接闭合。
• 将复制的第一行数据x设为2π后，线条会从最后一个分箱的位置直接连接到2π，在极坐标下刚好和起始点（x=0）重合，实现完美闭合。
• 柱状图数据无需修改，因为geom_bar的宽度设置为2π/bins，刚好填满每个小时的弧度区间，不会出现重叠或间隙。

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