求可绘制多边形并生成RGB数组的R语言库及实现方案

之前我也卡在Imager只能画矩形的问题上，试了raster包没找到头绪，后来发现implot其实完全支持绘制自定义多边形，还能处理重叠和透明度，完美解决生成对应RGB数组的需求！

完整实现示例 #

下面是生成三个重叠多边形的代码，每个多边形沿X轴依次偏移，带不同的半透明填充色：

# 设置画布尺寸
width <- height <- 250

# 定义第一个多边形的顶点坐标（X和Y轴）
xes <- c(10, 20, 30, 20)
yes <- c(10, 20, 10, 50)

# 初始化全白背景的cimg对象（RGB通道初始值都是1）
cimg(array(1, c(width, height, 1, 3))) -> img3

# 链式调用implot绘制三个多边形，每个设置填充色和透明度，关闭边框
img3 %>% 
  implot(., polygon(xes, yes, col = rgb(red = 0, green = 0, blue = 1, alpha = 0.5), border = NA), rescale = FALSE) %>% 
  implot(., polygon(xes + 10, yes, col = rgb(red = 1, green = 0, blue = 0, alpha = 0.5), border = NA), rescale = FALSE) %>% 
  implot(., polygon(xes + 20, yes, col = rgb(red = 0, green = 1, blue = 0, alpha = 0.5), border = NA), rescale = FALSE) -> out

# 提取最终的RGB数组，维度为width × height × 3
out[,,1,]

关键说明 #

• 初始化cimg时用array(1)是为了创建全白背景，你可以根据需求修改初始值（比如0对应全黑）
• implot里的rescale = FALSE必须加上，不然坐标会被自动缩放，导致多边形位置不符合预期
• rgb()里的alpha参数控制透明度，值从0（完全透明）到1（完全不透明），重叠区域会自动混合颜色
• 最终的out[,,1,]就是我们需要的RGB数组，每个元素对应对应像素的R、G、B通道值

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