Project mosaic で作図

Project Mosaic は数学教育や統計教育に役立つツールを開発するコミュニティである.

http://mosaic-web.org/

その成果がRのライブラリとして存在する. 以下のコマンドで導入できる.

install.packages("mosaic")

また以下のコマンドでライブラリを読み込むことができる.

library(mosaic)

これを用いて, 「Rグラフィックスクックブック ―ggplot2によるグラフ作成のレシピ集」第2章データの基本的なプロットをmosaicで再現しよう.


なおこの本はggplot2をメインに使っており, mosaic は lattice というグラフィックライブラリを使っている.

2.1 散布図を作成する

xyplot(mpg~wt, data=mtcars)

unnamed-chunk-3-1

2.2 折れ線グラフを作成する

xyplot(pressure~temperature, data=pressure,type="l")

unnamed-chunk-4-1

xyplot(pressure~temperature, data=pressure,type="b")

unnamed-chunk-5-1

2.3 棒グラフを作成する

xyplot(demand~factor(Time),data=BOD,type="h")

unnamed-chunk-6-1

bargraph(~cyl,data=mtcars)

unnamed-chunk-7-1

2.4 ヒストグラムを作成する

histogram(~mpg, data=mtcars)

unnamed-chunk-8-1

histogram(~mpg, data=mtcars,breaks = 10)

unnamed-chunk-9-1

2.5 箱ひげ図を作成する

bwplot(len ~ supp, data=ToothGrowth)

unnamed-chunk-10-1

bwplot(len ~ supp|factor(dose), data=ToothGrowth)

unnamed-chunk-11-1

2.6 関数曲線をプロットする

plotFun(x^3-5*x~x,xlim=c(-4,4))

unnamed-chunk-12-1

myfunc<-makeFun(1/(1+exp(10-x)) ~ x)
plotFun(myfunc(x) ~x,xlim=c(0,20))

unnamed-chunk-13-1

plotFun(1-myfunc(x) ~x,xlim=c(0,20),add=TRUE,col="red")

unnamed-chunk-13-2

まとめ

気がついたと思うが, コマンドがすべて

goal(y ~ x, data= ..., options)

と一貫している. より詳しくは以下のサイトにあるものを参照されたい.

https://github.com/ProjectMOSAIC/LittleBooks

また lattice については 「Rグラフィックス自由自在」 が非常に参考になる.

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中