Question

(这个问题可能太困难,也许不值得解决——然而,如果解决办法容易——我很想知道)

请允许我说,我树立了一种形象(利用电网包)。

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功能)

感谢。

Answer 1

您可以两倍地填充多角:首先用提纲提一整条,但填满。你们可以比较容易地看到这一例子。

x <- c(left = 0.25, right = 0.75)
y <- c(bottom = 0.1, mid = 0.6, top = 0.9)

grid.newpage()
grid.polygon(x =  rep(x[c("left", "right", "right", "left")], 2),
             y =  y[rep(c("bottom", "top", "bottom", "mid"), each = 2)],
             id = rep(1:2, each = 4),
             gp = gpar(fill = c(NA, "blue")))

友情链接