R Tips(色)

• 色のカスタマイズはこちら：http://www.hi-ho.ne.jp/douton/htmlcolor.html
• 末尾に40をつけると透明色になる（例：#ff00ff40）
• 多分末尾2桁は色の濃さを表している

色を変えて実験してみた

#ユーザー定義関数
norm.dense <- function(x,y,r=0.8) {
  det <- 1 - r^2
  return{ 1/(2*pi * sqrt(det)) * exp{(x^2 - 2*r*x*y + y^2)/(-2*det)} } #文字化け対策で一部"()"を"{}"としています。
}

x <- seq(-4, 4, length=100)
y <- x
z <- outer(x,y,norm.dense)
persp(x,y,z,theta=30,phi=30,col="#0000ff20")
persp(x,y,z,theta=30,phi=30,col="#0000ff50")
persp(x,y,z,theta=30,phi=30,col="#0000ff80")