ベクトル(文字列)の頻度を可視化したい with dplyr, ggvis

@teramonagi先生の記事にインスパイアされたものです。

先日version 0.3がCRAN上でリリースされたggvisパッケージ、連結は%>%です。

library(ggvis)
library(knitr)
library(data.table)
library(dplyr)

サンプルデータ

x <- sample(letters[1:15], 100, replace=TRUE)

で、ggivsで可視化。色つけるとダメなバグがあるっぽいので、地味に。

x %>%
  data.frame %>% 
  setnames("STR") %>%
  ggvis(~STR) %>%
  layer_bars()

但し、library(ggvis)でメッセージが出るように、ggvisのAPIは手のひら返しがあるかもしれないので、アドホックな可視化にはいいと思いますが、ルーチンな業務に導入は危険です。

それではみなさん、Enjoy!!