単一変数のプロット

R で学ぶ plotly によるインタラクティブ可視化

Adam Loy

Statistician, Carleton College

ワインデータの確認

library(dplyr)
glimpse(wine)

Rows: 178
Columns: 14
$ Type            <fct> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1...
$ Alcohol         <dbl> 14.23, 13.20, 13.16, 14.37, 13.24, 14.20, 14.3...
$ Malic           <dbl> 1.71, 1.78, 2.36, 1.95, 2.59, 1.76, 1.87, 2.15...
...
$ Hue             <dbl> 1.04, 1.05, 1.03, 0.86, 1.04, 1.05, 1.02, 1.06...
$ Dilution        <dbl> 3.92, 3.40, 3.17, 3.45, 2.93, 2.85, 3.58, 3.58...
$ Proline         <int> 1065, 1050, 1185, 1480, 735, 1450, 1290, 1295,...

plotlyで棒グラフ

棒グラフのアニメーション

library(plotly)

wine %>%
   count(Type) %>%                 
   plot_ly(x = ~Type, y = ~n) %>% 
   add_bars()

count() で度数表を作成
~ で美的属性を指定
add_bars() でバーのトレースを追加

バーの並べ替え

並べ替えた棒グラフのアニメーション

library(forcats)

wine %>%
  count(Type) %>%                 
  mutate(Type = fct_reorder(Type, n, .desc = TRUE)) %>% 
  plot_ly(x = ~Type, y = ~n) %>%
  add_bars()

棒の並び替えに fct_reorder() を使用
.desc 引数を TRUE に設定

plotlyでヒストグラム

ヒストグラムのアニメーション

wine %>%
   plot_ly(x = ~Phenols) %>%  # 美的属性を指定

   add_histogram()            # ヒストグラムのトレースを追加

ビン数の調整

wine %>%
   plot_ly(x = ~Phenols) %>% 
   add_histogram(nbinsx = 10)

ビン幅の調整

wine %>%
   plot_ly(x = ~Phenols) %>% 
   add_histogram(xbins = list(start = 0.8, end = 4, size = 0.25))

Let's practice!

R で学ぶ plotly によるインタラクティブ可視化