在基础 R 中创建渐变填充箭头

Question

我正在寻找一种将箭头添加到基础 R 中的绘图的方法，这样箭头将填充灰色渐变色，如下所示：

我已经看到this 解决方案，但这似乎相当复杂且不那么灵活：我需要在很多地块中绘制一个很棒的箭头，所有这些都可能具有不同的长度和宽度。 我知道shape 包，但这似乎只能填充箭头，并且不提供箭头的可填充“基础”。 有什么建议吗？

Answer 1

按照@MrFlick 的建议，这是帮助您入门的一种方法。您可能希望将其封装在一个函数中，以便您对箭头的大小、底部和箭头的宽度、渐变的平滑度等施加更多影响。

#empty box
plot(c(-1, 2), c(-1, 10), ,type="n",axes=FALSE, xlab = "", ylab = "")
# plot the arrow, without a fill
polygon(c(0,0,-.25,.5,1.25,1,1,0), y = c(0,6,6, 8,6,6,0,0), border = NA)
# create gradient colors
nslices = 100
cols <- colorRampPalette(colors = c("white", "black"))(nslices)
# split the base of the arrow in nslices and fill each progressively
ys <- seq(0,6, len = nslices + 1)
for (i in 1:nslices) {
  polygon(c(0,0,1,1), c(ys[i], ys[i+1], ys[i+1], ys[i]), col = cols[i], border = NA)
}
# add a filled arrowhead
polygon(c(-.25, .5, 1.25, -.25), c(6, 8, 6, 6), col = "black")

这会给你一个像这样的箭头：

HTH，彼得

Answer 2

使用链接问题中定义的箭头，现在在基本图形中

# create a black arrow, saved as external file
library(grid)
png("mask.png")
grid.polygon(c(-0.06, 0.06, 0.06, 0.15, 0, -0.15, -0.06),
             c(-5, -5, 2.5, 2, 5, 2, 2.5), gp=gpar(fill="black"),
             def="native",
             vp=viewport(xs=c(-0.15, 0.15), ys=c(-5, 5)))
dev.off()

## read back in as colour matrix
library(png)
m <- readPNG("mask.png", native=FALSE)
mask <- matrix(rgb(m[,,1],m[,,2],m[,,3]),
               nrow=nrow(m))

rmat <- matrix(grey(seq(0,1,length=nrow(m))),
               nrow=nrow(m), ncol=ncol(m))
rmat[mask == "#FFFFFF"] <- NA


## use in base plot
set.seed(12321)
plot(1:10, rnorm(10))
rasterImage(rmat, 2, -1, 2.5, 0)

编辑：

您不必使用临时文件来创建掩码，它比摆弄逻辑矩阵（更）方便。这是直接将箭头创建为矩阵的起点，

marrow <- function(nr=500, nc=300, col = grey(seq(0, 1, length=nr))){

  skin <- matrix(col, nrow=nr, ncol=nc)
  head <- lower.tri(matrix(TRUE, nrow=nc/2, ncol=nc/2))
  skull <- cbind(head[seq(nc/2,1),], head[seq(nc/2,1),seq(nc/2,1)])

  rib <- matrix(TRUE, nrow=nr-nrow(skull), ncol=nc/4)
  trunk <- cbind(rib, !rib, !rib, rib)
  skeleton <- rbind(skull, trunk)
  skin[skeleton] <-  NA_character_
  skin
}

grid.newpage()
grid.raster(marrow(), 
            width = unit(1,"npc"), 
            height=unit(1,"npc"))