ggplot2: An Implementation of the Grammar of Graphics

作図のための文法

• CRAN: http://cran.r-project.org/web/packages/ggplot2/index.html
• GitHub: https://github.com/hadley/ggplot2

> library(ggplot2)

バージョン: 2.1.0

aes

審美的属性の付加。ggplot()のmappingに渡した要素はすべてのレイヤーで適用される。

> aes(x = mpg, y = wt)

* x -> mpg
* y -> wt

coord_fixed

Arguments

• ratio アスペクト比
• xlim
• ylim
• expand logical.

> ggplot(mtcars, aes(mpg, wt)) + 
+   geom_point() +
+   coord_fixed(ratio = 5)

coord_map

投影図

Arguments

• projection
• ...
• orientation
• xlim
• ylim

geom_bar

> ggplot(mpg, aes(class)) +
+   geom_bar()

geom_count

> # ggplot(mpg, aes(cty, hwy)) +
> #  geom_point()
> 
> ggplot(mpg, aes(cty, hwy)) +
+  geom_count()

ggplot

ggplotベースの図を作成する

Arguments

• data... data.frameクラスオブジェクトを想定。data.frameでない場合、fortify()で変換すると良い。
• mapping... aes()
• ...
• environment

ggplotGrob

hmisc

{Hmisc}が提供する要約統計量を求める関数をggplot内で利用する

> mean_cl_boot()
> mean_cl_normal()
> mean_sdl()
> median_hilow()

map_data

地図データベースのデータフレーム作成

Arguments

• map... {maps}パッケージを元にしている。country, france, italy, nz, state, usa, world そして world2
• region
• exact
• ...

> states <- map_data("state")
> arrests <- USArrests
> names(arrests) <- tolower(names(arrests))
> arrests$region <- tolower(rownames(USArrests))
> 
> choro <- merge(states, arrests, sort = FALSE, by = "region")
> choro <- choro[order(choro$order), ]
> ggplot(choro, aes(long, lat)) +
+   geom_polygon(aes(group = group, fill = assault)) +
+   coord_map("albers",  at0 = 45.5, lat1 = 29.5)

position_nudge

ラベル位置を微調整する際に役立つ関数

> data.frame(x = c(1,3,2,5),
+            y = c("a","c","d","c")) %>% 
+   ggplot(mapping = aes(x, y)) +
+   geom_point() +
+   geom_label(mapping  = aes(label = y), 
+              position = position_nudge(x = 0.2, y = 0.2))

stat_summary_bin

Arguments

• mapping
• data
• geom
• fun.data... ref) hmisc()
• fun.ymin, fun.y, fun.ymax
• fun.args
• na.rm
• position
• show.legend
• inherit.aes
• ...

> ggplot(mtcars, aes(cyl, mpg)) + 
+   geom_point() +
+   stat_summary(fun.data = "mean_cl_boot", colour = "red", size = 2) +
+   stat_summary(fun.y = "median", colour = "red", size = 2) +
+   stat_summary(fun.y = "mean", colour = "red", size = 2)

update_labels

軸や凡例のラベルを更新する

> p <- ggplot(mtcars, aes(mpg, wt)) + 
+   geom_point()
> update_labels(p, list(x = expression(x / y ^ 2)))

qplot