创建一个渐变色的箭头答案

【问题标题】：create an arrow with gradient color创建一个渐变色的箭头
【发布时间】：2012-06-15 20:55:15
【问题描述】：

如何使用 R 创建带有渐变颜色的箭头或线段？

【问题讨论】：

您能否更具体一些，或许可以对您的用例进行完整描述...您尝试过什么？

【解决方案1】：

试试这个，

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()

library(png)
m <- readPNG("mask.png", native=FALSE)
mask <- matrix(rgb(m[,,1],m[,,2],m[,,3]),
               nrow=nrow(m))

rmat <- matrix(rgb(colorRamp(c("blue","white","red"))(seq(0,1,length=nrow(m))), maxColorValue=255),
               nrow=nrow(m), ncol=ncol(m))
rmat[mask == "#FFFFFF"] <- NA
grid.newpage()
grid.raster(rmat)

编辑：您可以在情节中重复使用它，例如

library(ggplot2)
ggplot(iris) + geom_path(aes(Sepal.Length, Petal.Length, colour = Petal.Width)) +
  guides(colour = guide_colourbar()) +
  annotation_custom(rasterGrob(rmat, width=unit(1,"npc"), height=unit(1, "npc")),
                    x = 6, xmax=6.2, y=2.5, ymax=4)

【讨论】：

构建蒙版然后使用 colorRamp 为 png 图像着色的精彩演示。可以在晶格中使用，也可以作为独立对象粘贴到其他应用程序中。

【解决方案2】：

我认为 Jim Lemon 应该自动获得 10K，甚至可能是 20K 的 SO 代表点数，这要归功于他多年来创建基础图形解决方案的所有工作。这家伙很了不起。一次又一次，有人会在 Rhelp 上要求一些东西，他会想出一个解决方案。这是帮助页面提供的“随机彩虹”：

require(plotrix)
x<-c(0,cumsum(rnorm(99)))
 y<-c(0,cumsum(rnorm(99)))
 xydist<-sqrt(x*x+y*y)
 plot(x,y,main="Random walk plot",xlab="X",ylab="Y",type="n")
 color.scale.lines(x,y,c(1,1,0),0,c(0,1,1),colvar=xydist,lwd=2)

【讨论】：

当然，ggplot2的qplot(x, y, colour=xydist, geom="path")的作者也有自己的fanclub。