【R】gggrid

1. はじめに

gggridは、ggplotにレイヤーを重ねて表示してくれるパッケージです。

2. インストール

Githubからインストールします。

devtools::install_github("pmur002/gggrid")

3. つかってみる

gggridは、２つの関数を提供します。grid_panel() と grid_group()です。

library(gggrid)

label <- textGrob("disp vs mpg on mtcars",
                  x=unit(1, "npc") - unit(5, "mm"),
                  y=unit(1, "npc") - unit(5, "mm"),
                  just=c("right", "top"))
ggplot(mtcars, aes(disp, mpg)) +
  geom_point() +
  grid_panel(label)

rug <- function(data, coords) {
  segmentsGrob(unit(1, "npc"),
               coords$y,
               unit(1, "npc") - unit(2, "mm"),
               coords$y,
               gp=gpar(lwd=2, col=rgb(0,0,0,.5)))
}
ggplot(mtcars, aes(x=disp, y=mpg)) +
  geom_point() +
  grid_panel(rug)

4. さいごに

まだまだたくさんの機能があるようです。