作者shyfang (冷~~)
看板NCTU-STAT95G
标题Re: [分享]彩色无痕迹平面版 渐层背景!
时间Mon May 19 12:45:01 2008
那我告诉你们怎麽把图放上去好了
background2_1 <- 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 ="")
{
…
#comment 底下五行，就是不要有格线及座标
# 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_1(x , y, r = 0.01, g = 0, b = 0)
par(new=T) #接下来就随意，看你要放什麽图啦~~
plot(1:100,col=rainbow(100))
#看起来好像是左右渐层，不晓得有没有上下 、中心之类的 呵~~
※ 编辑: shyfang 来自: 140.114.36.142 (05/19 12:46)
1F：推 josephw:XD 其实用points, curve...etc就可以放图 05/19 13:49
2F：→ josephw:只是用这个要有中间格子线XD....其他地方渐层改位置就可以 05/19 13:49
3F：推 josephw:@@因为这个是让想改轴直接不用再重新去定义axis 05/19 13:58
4F：→ shyfang:喔，因为我只想要背景，本来还想说，把xy写死算了 05/19 17:04
5F：→ shyfang:有些图还是只有plot才画得出来的 05/19 17:15
6F：推 josephw:XD 05/19 18:00