如何移除ggplot2中coord_polar图形的边框及网格并设置统一背景色

我来帮你搞定这个极坐标图的烦恼～你之前尝试的代码没生效，主要是因为极坐标下的网格和边框对应的theme元素和普通笛卡尔坐标不太一样，咱们一步步调整：

完整解决方案代码 #

library(ggplot2)
library(ggthemes) # 加载theme_tufte需要的包

# 构造数据
a <- seq(1,20)
b <- a^0.25
df <- as.data.frame(cbind(a,b))

# 绘制极坐标图并调整主题
gg1 <- ggplot(df, aes(x = a, y = b, colour = a)) +
  coord_polar(start = 1) +
  geom_bar(stat = 'identity', fill = NA) + # fill=NA让柱子仅显示边框，可根据需求调整为填充色
  theme_tufte() +
  theme(
    # 设置整个绘图区域的背景色，colour=NA避免额外边框
    plot.background = element_rect(fill = "floralwhite", colour = NA),
    # 设置面板区域背景色，和绘图区域一致避免缝隙
    panel.background = element_rect(fill = "floralwhite", colour = NA),
    # 移除面板边框
    panel.border = element_blank(),
    # 彻底移除所有网格线（极坐标下的环形/径向网格都在这里控制）
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    # 移除坐标轴刻度与文本（如果不需要的话）
    axis.tick = element_blank(),
    axis.text = element_blank(),
    # 移除坐标轴标题（按需保留）
    axis.title = element_blank()
  )

print(gg1)

关键调整说明 #

• 背景色统一：同时设置plot.background和panel.background，避免绘图区域和面板之间出现颜色缝隙，colour=NA是为了不让背景矩形自己产生额外边框。
• 移除网格：极坐标下的环形、径向网格都由panel.grid.major和panel.grid.minor控制，必须把这两个都设为element_blank()才能彻底去掉网格。
• 移除边框：除了panel.border，还要确保背景元素的colour设为NA，避免意外出现边框。
• 坐标轴清理：如果不需要坐标轴的刻度和文本，一并移除可以让图更干净简洁。

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