Hatena::ブログ(Diary)

極めて個人的なメモ Twitter

Θ・)ノシ Bob#3のメモ帳です。
1972 | 12 |
2003 | 03 | 04 | 05 | 06 | 11 | 12 |
2004 | 01 | 02 | 03 | 04 | 05 | 06 | 09 | 10 | 11 | 12 |
2005 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 09 | 10 | 11 |
2006 | 03 | 04 | 05 | 06 | 07 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 05 | 06 | 07 | 10 | 11 | 12 |
2008 | 01 | 02 | 04 | 05 | 08 | 09 | 10 | 11 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 |
2011 | 05 | 06 | 09 | 10 |
2012 | 02 | 03 | 05 | 06 | 08 |
2013 | 01 | 02 | 03 |
2015 | 02 |

2012-06-17

[] ggplot2の練習中  ggplot2の練習中を含むブックマーク  ggplot2の練習中のブックマークコメント

ggplot2は記法が独特なので敬遠してきたのですが、最近ggplot2を使うと良さそうな事案に遭遇したので勉強中です。

library(ggplot2) 

p1 <- ggplot(iris, aes(Petal.Length, fill=Species))
p1 + geom_histogram() + opts(title="積み重ねヒストグラム")
p1 + geom_histogram() + facet_grid(Species~.) + opts(title="群別ヒストグラム") 
p1 + geom_freqpoly(aes(color=Species)) + opts(title="度数分布")
p1 + geom_density(alpha=0.7) + opts(title="密度推定")

ggplot(iris, aes(x=Species, y=Petal.Length)) + geom_boxplot() + geom_jitter(aes(color=Species)) + opts(title="箱ひげ図")

ggplot(iris, aes(x=Petal.Length, y=Petal.Width)) + geom_density2d(aes(color=Species)) + geom_point(aes(color=Species, alpha=0.7)) + opts(title="二次元密度推定") + scale_color_brewer(palette = "Dark2")

f:id:bob3:20120617235013p:image

f:id:bob3:20120617235014p:image

f:id:bob3:20120617235015p:image

f:id:bob3:20120617235016p:image

f:id:bob3:20120617235017p:image

f:id:bob3:20120617235018p:image

dichikadichika 2012/06/18 08:53 おお、ついにggplot2の世界へいらっしゃいましたか!w
ちなみに、Hadleyはwebsiteの方をもう更新しないと言っており、いくつかのgeom(geom_violin等)は掲載されてなかったりします。
以下のggplot2 0.9.0のDEVELOPMENT、1つ目の*参照
http://cran.r-project.org/web/packages/ggplot2/NEWS

bob3bob3 2012/06/18 12:18 えー、websiteは更新されないんですか。
GitHubも眺めてみます。
https://github.com/hadley/ggplot2

kohskekohske 2012/06/18 13:04 0.8.9までのhouse-madeなdocumentはやめて、help(i.e. roxygen2)からの自動webpage生成に移行してます。
http://had.co.nz/ggplot2/docs/
まだunofficialですが。

トラックバック - http://d.hatena.ne.jp/bob3/20120617