【R】ggcorset

1. はじめに

ggcorsetは、ある2点の時点について、コルセットのようなプロットを実現するパッケージです。

2. インストール

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

devtools::install_github("kbelisar/ggcorset")

3. つかってみる

以下の2つの関数を利用できます。

gg_corset()
gg_corset_elongated()

また、ggplotとの親和性もよいです。

適当にデータを作って可視化してみます。

library(ggplot2)
library(ggcorset)
library(viridis)

dat <- data.frame("id" = c(1:300), "day1" = round(rnorm(300, mean = 10, sd = 4)), "day2" = rpois(300, lambda = 2))
dat$change <- dat$day2 - dat$day1

p1 <- gg_corset(dat, y_var1 = "day1", y_var2 = "day2", group = "id", c_var = "change") + 
  xlab("Day") + 
  ylab("Mean Books I read per Week") +
  ggtitle("Change in Mean Number of Books I read per Week") +    
  scale_x_discrete(labels = c("Pre","Post")) +          
  scale_colour_viridis(option = "mako", 
                       direction = -1,
                       breaks = c(-7,0,7),              
                       name = "Change in Days")         

p1  

確かにコルセットっぽい。データは、コードを見ると分かるように、本当に適当です。

4. さいごに

様々な可視化技術に触れるのは楽しいですね。