廿TT

譬如水怙牛過窓櫺 頭角四蹄都過了 因甚麼尾巴過不得

R の treemapify パッケージで Google アナリティクスのデータをツリーマップに

ただパッケージ動かしてみたっていうだけなんですけど。

インストール方法は GitHub - wilkox/treemapify: 🌳 ggplot2 geoms for drawing treemaps に従ってください。

ggplot の記法が使えて、facet とかできる点がいいと思いました。

f:id:abrahamcow:20170506191213p:plain

#library(devtools)
#install_github("wilkox/ggfittext")
#install_github("wilkox/treemapify")

library(googleAnalyticsR)
library(treemapify)
ga_auth()
account_list <- ga_account_list()
ga_id <- account_list[3,'viewId']
gadata2 <-
  google_analytics_4(ga_id,
                     date_range = c("2017-04-01","2017-04-30"),
                     metrics = c("sessions","goal3Completions"),
                     dimensions = c("userType","medium","source"),
                     order = order_type(c("sessions"), 
                                        sort_order = "DESC", 
                                        orderType = "VALUE"),
                     max = 20000)

ggplot(gadata2, aes(subgroup = medium,
                   area = sessions,
                   fill = goal3Completions/sessions)) +
  geom_treemap() +
  geom_treemap_subgroup_border()+
  geom_treemap_subgroup_text(alpha=0.5,place = "centre") +
  geom_treemap_text(aes(label=source),place = "bottomright")+
  scale_fill_continuous(low="white",high="forestgreen")+
  guides(fill=guide_legend(title="CVR"))+
  facet_wrap(~userType,nrow=2)

abrahamcow.hatenablog.com