_R网格:如何创建一个填充颜色的多边形的一半?

(这个问题可能太难了,也许不值得麻烦去解决——但是,如果有一个简单的解决方案——我会好奇地知道)

假设我创建了一个图像(使用网格包),如下所示:

require(grid)
grid.newpage()
grid.polygon(x=c((0:4)/10, rep(.5, 5), (10:6)/10, rep(.5, 5)),
             y=c(rep(.5, 5), (10:6/10), rep(.5, 5), (0:4)/10),
             id=rep(1:5, 4),
             gp=gpar(fill=1:5))

但是现在,如果我希望一些多边形只是部分填充(假设一个填充1/3,另一个填充1/2,另一个完全填充颜色),那么它看起来就像一杯部分填充的水。

我想象它可以在构建多边形的时候完成,问题是,假设我想要的东西只是基于我给它的比例来计算新的多边形,那该怎么做呢?

我提出这个问题的原因是想在徽标图上显示另一层信息(请参阅seqlogo包中的函数seqlogo)。

谢谢。