
277
277
13.1 R グラフィックスの概要
これを行列に変換してプロットしましょう。
> #
行列に変換する
> doctorates.m <- as.matrix(doctorates[2:7])
> rownames(doctorates.m) <- doctorates[, 1]
> doctorates.m
engineering science education health humanities other
2001 5323 20643 6436 1591 5213 2159
2002 5511 20017 6349 1541 5178 2141
2003 5079 19529 6503 1654 5051 2209
2004 5280 20001 6643 1633 5020 2180
2005 5777 20498 6635 1720 5013 2480
2006 6425 21564 6226 1785 4949 2436
barplot
関数はデータフレームには使えないので、この問題のためにこのデータで
行列オブジェクトを作成しました。
まずは、
2001
年の分野ごとの博士号の棒グラフを表示しましょう。
> barplot(doctorates.m[1, ])
図
13-7
からわかるように、デフォルトでは
R
は棒の高さに合わせて
y
軸を表示し
ますが、
x
軸は表示しません。また、
R
は列名を使って棒に自動的に名前を付けます。
ここで、各年の棒を積み重ねてすべての年を表示したいとしましょう。さらに、棒を ...