【R】ggbump

1. はじめに

ggbumpは、時間などの変化によって順位の変化を見ることができるバンプチャートを表示してくれるパッケージです。

2. インストール

CRANからインストールできます。

install.packages("ggbump")

3. 使ってみる

まずは、データを用意。3都市の各四半期での架空の順位とします。

library(tidyverse)
library(ggplot2)
library(ggbump)

df <- data.frame(
  "city" = c(rep("Tokyo", 4), rep("Osaka", 4), rep("Sendai", 4) ),
  "season" = c(rep(c("2020-1Q", "2020-2Q", "2020-3Q", "2020-4Q" ), 3)),
  "order" = c(c(1:4), c(1:4), c(1:4)),
  "rank" = c(3, 2, 3, 3, 2, 1, 2, 1, 1, 3, 1, 2 ),
  "group" = c(rep("1",4), rep("2",4), rep("3",4))
)

> df
     city  season order rank group
1   Tokyo 2020-1Q     1    3     1
2   Tokyo 2020-2Q     2    2     1
3   Tokyo 2020-3Q     3    3     1
4   Tokyo 2020-4Q     4    3     1
5   Osaka 2020-1Q     1    2     2
6   Osaka 2020-2Q     2    1     2
7   Osaka 2020-3Q     3    2     2
8   Osaka 2020-4Q     4    1     2
9  Sendai 2020-1Q     1    1     3
10 Sendai 2020-2Q     2    3     3
11 Sendai 2020-3Q     3    1     3
12 Sendai 2020-4Q     4    2     3

プロットします。

df %>% 
  ggplot(aes(season, rank, color = city, group = city)) +
  geom_bump(smooth = 15, size = 2, alpha = 0.2) +
  scale_y_reverse() 

4. さいごに

このパッケージには、他にも様々な機能があります。