R 如何使多边形边框和填充颜色透明度总和为1

我正在尝试可视化聚类的结果，并希望使用具有宽边框的多边形

以下是我目前掌握的情况：

示例代码： 我希望多边形的填充颜色和边界颜色总和为透明度=1，但单独绘制时，每个颜色的alpha=0.5（在本图中，我只是使用alpha=1进行演示）

---

查看

polyclip

包装上的

polyoffset

。

x = c(2, 6, 7, 1, 8, 2, 5, 7)
y = c(3, 5, 1, 1, 1, 2, 3, 4)
l = c('A', 'B', 'C', 'D', 'B2', 'E', 'F', 'G')

n = 8
pallete = topo.colors(n, alpha=0.5)

plot(NULL, NULL, bty="n", 
     ylim=c(1-0.3, 5+0.3), 
     xlim=c(1-0.3, 8+0.3), xaxt="n",
     xlab="x", ylab="y")

# grids
abline(h=1:10, v=1:10, col="gray", lty=3)

polygon(c(1,2,3), c(1,2,1), col=pallete, border=pallete, lwd=30)

axis(side=1, at=1:8) 
points(x, y, col="red", pch=19)
text(x + 0.3, y, labels=l, cex=0.7)