使用ggvoronoi按因子着色时，手动设置Voronio图的颜色

library(ggplot2)
library(ggvoronoi)

# 创建示例数据
data <- data.frame(x = c(1, 2, 3, 4), y = c(1, 2, 3, 4), factor = c("A", "B", "A", "B"))

# 将数据转换为Voronoi图的格式
voronoi_data <- deldir::deldir(data$x, data$y)

# 创建Voronoi图的边界线
voronoi_lines <- ggvoronoi::voronoi_segments(voronoi_data)

# 创建Voronoi图的区域并设置颜色
voronoi_polygons <- ggvoronoi::voronoi_polygons(voronoi_data, data)

# 绘制Voronoi图
ggplot() +
  geom_segment(data = voronoi_lines, aes(x = x1, y = y1, xend = x2, yend = y2), color = "black") +
  geom_polygon(data = voronoi_polygons, aes(x = x, y = y, fill = factor)) +
  scale_fill_manual(values = c("A" = "red", "B" = "blue"))  # 手动设置Voronoi图的颜色

# 推荐的腾讯云相关产品和产品介绍链接地址：
# - 腾讯云计算服务：https://cloud.tencent.com/product/cvm
# - 腾讯云数据库：https://cloud.tencent.com/product/cdb
# - 腾讯云服务器：https://cloud.tencent.com/product/cvm
# - 腾讯云人工智能：https://cloud.tencent.com/product/ai
# - 腾讯云物联网：https://cloud.tencent.com/product/iot
# - 腾讯云移动开发：https://cloud.tencent.com/product/mobdev
# - 腾讯云存储：https://cloud.tencent.com/product/cos
# - 腾讯云区块链：https://cloud.tencent.com/product/baas
# - 腾讯云元宇宙：https://cloud.tencent.com/product/vr