如何消除R ggplot2中geom_radial的axis.line与panel.border间距

问题核心 #

使用coord_radial()绘制径向图时，panel.border生成的矩形外框与axis.line.x的内圆存在间距，调整expand参数等常规方法无效，需要让二者贴合并最终保存圆形边界的图片。

解决方案 #

1. 让内外边框贴合：用annotate绘制外圆替代矩形panel.border

panel.border基于ggplot的矩形面板，坐标转换后仍保持矩形，因此改用annotate()绘制外圆，可精准对齐内圆和柱子边缘：

library(ggplot2)

plot_data <- data.frame('xval' = seq(1, 100),
                        'yval' = seq(100, 1))

ggplot(plot_data, aes(x = xval, y = yval))+
  geom_col()+
  # 同时关闭x、y轴的扩展间距
  scale_y_continuous(expand = c(0, 0))+
  scale_x_continuous(expand = c(0, 0))+
  coord_radial(theta = 'x', start = 0, clip = "off")+
  # 绘制外圆：x取柱子右边缘（xval最大值+0.5），y取yval最大值
  annotate("path", 
           x = rep(100.5, 360), 
           y = rep(max(plot_data$yval), 360), 
           theta = seq(0, 2*pi, length.out = 360),
           colour = "black")+
  theme_void()+
  theme(axis.line.x = element_line())

2. 保存圆形边界图片：用magick包裁剪

ggplot默认保存矩形图片，使用magick包创建圆形遮罩裁剪图片：

# 先保存原始径向图
ggsave("radial_plot.png", plot = last_plot(), width = 6, height = 6, dpi = 300)

# 用magick裁剪成圆形
library(magick)
img <- image_read("radial_plot.png")

# 创建与原图等大的圆形遮罩
mask <- image_draw(image_blank(width = image_info(img)$width, height = image_info(img)$height))
symbols(image_info(img)$width/2, image_info(img)$height/2, 
        circles = image_info(img)$width/2, bg = "white", fg = "white", add = TRUE)
dev.off()

# 应用遮罩并保存
img_circle <- image_composite(img, mask, operator = "copyopacity")
image_write(img_circle, "radial_plot_circle.png")

原理说明 #

• coord_radial()仅做坐标转换，不会改变ggplot的矩形面板结构，因此panel.border始终是矩形，无法与内圆贴合；用annotate()绘制的外圆可基于转换后的坐标精准对齐。
• magick通过遮罩技术保留圆形区域，将矩形图片裁剪为纯圆形输出。

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