使用ggplot2绘制四分之一圆环时geom_area绘图异常求助

你遇到的情况我之前也碰过——基础绘图能轻松画出嵌套的四分之一圆环，但换成ggplot2的geom_area()就乱套了，核心原因是**geom_area()的默认逻辑是从x轴向上堆叠填充，而你的数据只提供了圆环的上边界，没有构造出闭合的填充区域**。

问题根源分析 #

你当前的代码只生成了每个半径对应的四分之一圆上半部分的点（X从0到r[i]，Y是sqrt(r[i]^2 - quadX^2)），但geom_area()需要的是闭合的多边形路径才能正确填充环形区域，否则它会把每条曲线直接连到x轴底部，导致图形变形。

修正后的代码方案 #

我们需要修改数据生成逻辑，给每个分组构造闭合的四分之一环形多边形，同时加上等比例坐标系避免图形拉伸：

library(ggplot2)
library(dplyr)

N <- 1E2
r <- rev(c(1,2,4,7))
maxXY = max(r)+.25*max(r)
grupp <- c("0","0.25","0.5","0.75")
datalist = list()

# 基础绘图验证（原本的逻辑没问题）
plot(0,0,xlim=c(0,maxXY),ylim=c(0,maxXY))
for (i in 1:length(r)) {
  quadX <- seq(from = 0,to = r[i],length.out = N) 
  quadY <- sqrt(r[i]^2 - quadX^2) 
  lines(quadX,quadY)
  
  # 关键修改：构造闭合的多边形数据
  # 路径顺序：(0,0) → 四分之一圆上的点 → (r[i], 0) → 回到(0,0)
  dat <- data.frame(
    X = c(0, quadX, r[i], rev(quadX)),
    Y = c(0, quadY, 0, rep(0, N))
  )
  dat$group <- grupp[i]
  datalist[[i]] <- dat 
}

DF = do.call(rbind, datalist)

# 用geom_polygon绘制闭合多边形，加上等比例坐标系
p1 <- ggplot(DF, aes(x=X, y=Y, fill=group)) + 
  geom_polygon(alpha=0.6 , size=1, colour="black") +
  coord_fixed() # 强制xy轴等比例，避免圆环变椭圆

plot(p1)

核心修改点说明 #

1. 闭合多边形构造：给每个分组的数据补充了从(r[i], 0)回到(0,0)的路径，让每个区域成为完整的四分之一环形，这样填充逻辑才会正确。
2. coord_fixed()：这一步绝对不能少！ggplot默认会自动调整轴比例，没有它的话，你的四分之一圆会被拉伸成椭圆，完全失去环形的样子。
3. 用geom_polygon替代geom_area：因为我们已经手动构造了闭合多边形，geom_polygon()比geom_area()更适合这种场景，它专门用于绘制闭合的多边形填充。

如果你坚持要用geom_area()，也可以在构造好闭合数据后，设置position="identity"避免堆叠，但geom_polygon是更直观的选择。

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