ढाल रंग

Question

के साथ एक तीर बनाएं, मैं आर का उपयोग करके ढाल रंग के साथ एक तीर या सेगमेंट कैसे बना सकता हूं?

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

Answer 2

मुझे लगता है कि जिम नींबू को बेस-ग्राफिक्स समाधान बनाने के वर्षों में अपने सभी कार्यों के आधार पर स्वचालित रूप से 10K, शायद 20K, एसओ पर रेप पॉइंट दिया जाना चाहिए। लड़का अद्भुत है। बार-बार कोई रेलप पर कुछ मांगेगा, और वह एक समाधान को चाबुक करेगा।

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)