如何在ggforce包的geom_voronoi_tile函数中改变区域的颜色

install.packages("ggforce")

library(ggplot2)
library(ggforce)

# 假设数据集为df，包含两个变量x和y
df <- data.frame(x = c(1, 2, 3, 4, 5),
                 y = c(1, 3, 2, 5, 4))

# 使用geom_voronoi_tile函数绘制voronoi图
p <- ggplot(df, aes(x, y)) +
  geom_voronoi_tile()

# 添加aes函数设置填充颜色的变量为color_var
color_var <- c("red", "blue", "green", "yellow", "purple")
p <- p + aes(fill = color_var)

# 设置填充颜色的调色板为指定的颜色向量
color_vector <- c("red", "blue", "green", "yellow", "purple")
p <- p + scale_fill_manual(values = color_vector)

library(ggplot2)
library(ggforce)

# 创建数据集
df <- data.frame(x = c(1, 2, 3, 4, 5),
                 y = c(1, 3, 2, 5, 4))

# 绘制voronoi图
p <- ggplot(df, aes(x, y)) +
  geom_voronoi_tile()

# 设置区域颜色
color_vector <- c("red", "blue", "green", "yellow", "purple")
p <- p + aes(fill = color_var) +
  scale_fill_manual(values = color_vector)

# 显示图形
print(p)