#看起来好像是左右渐层，不晓得有没有上下 、中心之类的 呵~~ #上下渐层 background2_2 <- function(x = c(-20,20), y = c(-20,20), r = 0.5, g=0.5, b = 0.5, xcorint = 5, ycorint = 5, axbox = TRUE, xlable="",ylable="",title ="") { ax <- min(x) bx <- max(x) ay <- min(y) by <- max(y) if(ax == bx || ay == by ||r > 1 ||r < 0 ||g > 1 ||g < 0 ||b > 1 ||b < 0 ){ warning("给我去看note!!") return(0); } if(xcorint > bx || ycorint > by){ warning("间隔大於你的最大轴座标啦") return(0); } plot(x, y, type='n', axes=F, xlab=(xlable), ylab=(ylable), main=(title)) i<-1 while(r+i*0.005 < 1 && g+i*0.005 < 1 && b+i*0.005 < 1){ if(r == 0){ if(b == 0) polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5, ay-5),col= rgb(0,g+i*0.005,0), lty=0) else if(g == 0) polygon(c(ax-5,ax-5,bx+5, bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5, ay-5),col= rgb(0,0,b+i*0.005), lty=0) else polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5, ay-5),col= rgb(0,g+i*0.005,b+ i*0.005), lty=0) } else if(b == 0){ if(g == 0) polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5, ay-5),col= rgb(r+i*0.005,0,0), lty=0) else polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5, ay-5),col= rgb(r+i*0.005,g+i*0.005,0), lty=0) } else if(g == 0) polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5, ay-5),col= rgb(r+i*0.005,0,b+ i*0.005), lty=0) else polygon(c(ax-5,ax-5,bx+5,bx+5),c(ay-5, by+5-(i-1)/5, by+5-(i-1)/5, ay-5),col= rgb(r+i*0.005,g+i*0.005,b+ i*0.005), lty=0) i <- i + 1 } ix<- seq(ax,bx,xcorint) iy<- seq(ay,by,ycorint) abline(v=ix, h=iy, col = "lightyellow", lty = "dotted") if(axbox == TRUE){ box() axis(1, ix) axis(2, iy) } else{ axis(1, seq(ax-xcorint,bx+xcorint,xcorint),lwd=2, lty='dotted') axis(2, seq(ay-ycorint,by+ycorint,ycorint),lwd=2, lty='dotted') } } #### Example:上下渐层 x <-c(-20,20) y <-c(-30,30) ##(1)红色 background2_2(x , y, r = 0.01, g = 0, b = 0) --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 140.113.191.14