スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

"The scientific graphs must be, the arts, beautiful arts."

ヒストグラムを重ねてプロットする場合

> data1
num_of_Trials success_ratio frequency
1 5000 0.000 0.000200
2 5000 0.001 0.000000
3 5000 0.002 0.000000
4 5000 0.003 0.000000
5 5000 0.004 0.000000
6 5000 0.005 0.000000
7 5000 0.006 0.000000
8 5000 0.007 0.000000
9 5000 0.008 0.000000
10 5000 0.009 0.000000
11 5000 0.010 0.000000
12 5000 0.011 0.000000
13 5000 0.012 0.000000
14 5000 0.013 0.000000
15 5000 0.014 0.000000
16 5000 0.015 0.000000
17 5000 0.016 0.000000
      ・
      ・
      ・
      ・

こうすると、前の系列が足されてヒストグラムが書かれる:
ggplot(data1, aes(x=success_ratio,y=frequency,group=num_of_Trials,fill=num_of_Trials)) + geom_ribbon(aes(ymin=0, ymax=frequency),alpha = 0.6) + geom_line(alpha=0.6) + ylab("frequency")+xlim(c(0.635,0.705)) +opts(title="Changing")
montyhall3.png


一方、こうすると重ね書きする:
ggplot(data1, aes(x=success_ratio,y=frequency,group=num_of_Trials,fill=num_of_Trials)) + geom_area(alpha = 0.6) + ylab("frequency")+xlim(c(0.635,0.705)) +opts(title="Changing")
montyha;ll2
スポンサーサイト
Profile

zoa

Author:zoa
Metropolis (1927)

Calendar
08 | 2011/09 | 10
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 -
Labels
Admin
Previous Posts
Recent Comments
Recent Trackback
Archive
このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。