如何划分ggplot2中small multiple内部空间使圆形占比为70%

该需求完全可以实现，核心思路是基于每个分面（small multiple对应的facet面板）的坐标范围动态匹配圆形半径，保证圆形直径占分面可用边长的70%，剩余空间自动留白。

操作步骤 #

• 第一步：统一所有分面的坐标范围，推荐把每个分面的x、y轴范围都设为[0,1]，圆心固定在(0.5, 0.5)，此时分面的总边长为1，对应70%占比的圆形半径为0.35（直径0.7刚好占70%空间，上下左右各留0.15的空白，总留白占30%）。如果你的业务逻辑需要自定义分面范围，按公式半径 = (分面边长 * 0.7) / 2计算对应半径即可。
• 第二步：调用画圆函数绘制图形，同时固定分面坐标比例避免圆形变形。

示例代码 #

你可以直接用ggforce包的geom_circle简化画圆操作，无需手动生成圆形坐标：

# 加载依赖包
library(ggplot2)
library(ggforce)

# 示例数据，替换为你实际的圆心和分组数据
df <- data.frame(
  group = factor(c("组1", "组2", "组3", "组4")),
  center_x = 0.5, # 你已有的圆心x参数
  center_y = 0.5  # 你已有的圆心y参数
)

# 按70%占比计算半径，分面范围为0-1时半径固定为0.35
target_radius <- 0.35

# 绘制small multiple
ggplot(df) +
  geom_circle(aes(x0 = center_x, y0 = center_y, r = target_radius), fill = "steelblue", alpha = 0.7) +
  facet_wrap(~group) +
  # 固定分面坐标范围，和半径计算逻辑匹配
  xlim(0, 1) +
  ylim(0, 1) +
  # 固定坐标比例，避免圆形被拉伸为椭圆
  coord_fixed() +
  # 可选：移除冗余元素优化展示效果
  theme_minimal() +
  theme(
    axis.text = element_blank(),
    axis.title = element_blank(),
    panel.grid = element_blank()
  )

注意事项 #

• 如果你不想额外安装ggforce包，也可以用三角函数手动生成圆形多边形坐标，调用geom_polygon绘制，半径计算逻辑完全一致。
• 如果不同分面需要设置不同的坐标范围，只需要为每个分面单独计算匹配的半径值即可，无需调整其他逻辑。
• 必须保留coord_fixed()参数，否则分面宽高比变化时圆形会变形，空间占比也会偏离要求。

内容的提问来源于stack exchange，提问作者Federica De Martin