r语言入门——颜色转换

r语言提供了许多种设置颜色的函数，其中rgb函数颜色强度要求取值范围在[0,1]，而通常rgb是用3个取值在[0,255]的数表示，转换方法很简单，只需要自定义一个新的函数即可通过输入普通的rgb值来控制颜色了。
代码如下：

rgb0 <- function(r,g,b){
        return(rgb(r/255,g/255,b/255))
     }

然后我们用PS打开想拾取颜色的图片，得到颜色的RGB值

然后我们用这个颜色画一个正八边形

dbx <- function(n,c){
     t <- seq(360/n,360,360/n)
     x <- cos(t/180*pi)*100/360
     y <- sin(t/180*pi)*100/360
     dev.new()
     plot(x,y)
     polygon(x,y,col=c)
 }
dbx(8,rgb0(191,209,99))