★ グラフの塗りつぶし指定で ★

9829. グラフの塗りつぶし指定で 波音 2006/04/15 (土) 19:01
└9832. Re: グラフの塗りつぶし指定で sb 2006/04/16 (日) 08:19
 └9833. Re^2: グラフの塗りつぶし指定で 波音 2006/04/16 (日) 20:30


9829. グラフの塗りつぶし指定で 波音  2006/04/15 (土) 19:01
DF<-function(x)dchisq(x,19)
plot(DF,0,50)
chisqpaint <- function(x1, x2)
{
xvals <- seq(x1, x2, length=50)
dvals <- c(DF(xvals), 0, 0)
xvals <- c(xvals, x2, x1)
polygon(xvals, dvals, col="pink")
}
chisqpaint(10,20)

chisqpaint関数の引数に色の指定をしたい場合,col="pink"の部分をcol=x3などとすれば引数の指定で

chisqpaint(10,20,1)

として黒で塗り潰しができますが,直接

chisqpaint(10,20,col="pink")

のように指定させるようなことはできますか(というか,でないことはないでしょうが難しいプログラムになってしまいますか?)。

     [このページのトップへ]


9832. Re: グラフの塗りつぶし指定で sb  2006/04/16 (日) 08:19
DF<-function(x)dchisq(x,19)
plot(DF,0,50)


chisqpaint <- function(x1, x2, color)
{
xvals <- seq(x1, x2, length=50)
dvals <- c(DF(xvals), 0, 0)
xvals <- c(xvals, x2, x1)
polygon(xvals, dvals, col=color)
}

# 例
chisqpaint(10,20, color="pink")
chisqpaint(10,20, color="blue")

     [このページのトップへ]


9833. Re^2: グラフの塗りつぶし指定で 波音  2006/04/16 (日) 20:30
回答ありがとうございます。
特にプログラムをいじらなくてもchisqpaint関数の引数の指定でcolor="pink"とすればよかったのですね。

     [このページのトップへ]


● 「統計学関連なんでもあり」の過去ログ--- 037 の目次へジャンプ
● 「統計学関連なんでもあり」の目次へジャンプ
● 直前のページへ戻る