如何为ggforce::geom_circle的单个圆设置自定义十六进制填充色？

问题场景 #

使用ggforce的geom_circle()绘制多个圆时，直接传入颜色向量设置每个圆的填充色会触发长度不匹配的报错。

原生成9个圆的代码：

library(ggplot2)
library(ggforce)
circles <- data.frame(
  x0 = rep(1:3, 3),
  y0 = rep(1:3, each = 3),
  r = seq(0.1, 1, length.out = 9)
)

plt <- ggplot() +
  geom_circle(aes(x0 = x0, y0 = y0, r = r), data = circles)
plt

尝试批量设置填充色的错误代码：

colors <- rep("#00FF00",9)
ggplot() +
   geom_circle(aes(x0 = x0, y0 = y0, r = r), fill = colors, data = circles)

报错信息：

Error in geom_circle():
! Problem while setting up geom aesthetics.
ℹ Error occurred in the 1st layer.
Caused by error in check_aesthetics():
! Aesthetics must be either length 1 or the same as the data (3249)
✖ Fix the following mappings: fill

报错原因 #

geom_circle()会将每个圆拆解为大量顶点数据（示例中9个圆共生成3249个数据点），直接传入长度为9的颜色向量时，无法与顶点数据的长度匹配，导致报错。

高效解决方案 #

将颜色向量整合到存储圆参数的数据框中，通过美学映射（aes()）绑定fill属性，这样每个圆的所有顶点都会自动继承对应圆的颜色，无需逐个添加图层，适合处理数千个圆的场景：

# 将颜色列添加到圆参数数据框中
circles$fill_color <- rep("#00FF00", 9)
# 若需要不同颜色，可替换为自定义向量，比如随机生成：
# circles$fill_color <- sample(c("#00FF00", "#FF0000", "#0000FF"), 9, replace = TRUE)

# 绘图时在aes内映射fill
ggplot() +
  geom_circle(aes(x0 = x0, y0 = y0, r = r, fill = fill_color), data = circles) +
  # 不需要图例时可添加该行
  guides(fill = "none")

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