使用ggplot的coord_polar绘制极坐标直方图出现空白区域的解决方法

问题原因 #

极坐标下直方图出现空白，是因为geom_histogram默认自动分箱时，分箱边界可能存在细微不连续，或是极坐标投影时的数值近似导致相邻柱子无法紧密衔接。手动控制分箱范围或提前统计频数是最有效的解决方式。

方案一：手动指定分箱边界 #

先计算数据极值，生成连续且完全覆盖数据范围的分箱边界，确保柱子紧密衔接：

set.seed(123)
x <- data.frame(x = rnorm(1000) + (runif(1000)-0.5)*5)

# 计算数据极值，生成连续分箱边界
x_min <- floor(min(x$x))
x_max <- ceiling(max(x$x))
bin_breaks <- seq(x_min, x_max, by = 0.5) # 可根据需求调整by值（分箱宽度）

# 绘制极坐标直方图
library(ggplot2)
ggplot(x, aes(x)) +
  geom_histogram(breaks = bin_breaks, color = "black", fill = "gray") +
  coord_polar() +
  theme_void()

方案二：预统计频数后绘制 #

提前统计每个分箱的频数，用geom_bar绘制，更精准控制柱子的位置和宽度：

set.seed(123)
x <- data.frame(x = rnorm(1000) + (runif(1000)-0.5)*5)

# 预统计分箱频数
library(dplyr)
hist_data <- x %>%
  mutate(bin = cut(x, breaks = seq(floor(min(x)), ceiling(max(x)), by = 0.5), include.lowest = TRUE)) %>%
  count(bin) %>%
  mutate(
    bin_start = as.numeric(sub("\\((.*),.*\\]", "\\1", bin)),
    bin_end = as.numeric(sub(".*,(.*)\\]", "\\1", bin)),
    bin_mid = (bin_start + bin_end)/2
  )

# 绘制极坐标直方图
ggplot(hist_data, aes(x = bin_mid, y = n, width = 0.5)) + # width需和分箱宽度一致
  geom_bar(stat = "identity", color = "black", fill = "gray") +
  coord_polar() +
  theme_void()

说明 #

两种方案都通过消除分箱的不连续性解决空白问题：方案一直接控制geom_histogram的分箱规则，方案二通过预统计将离散分箱转化为可精准控制的条形图，避免极坐标转换时的数值近似误差。

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