色付き棒グラフ行列（ggplot2） - 廿TTで書いた theme_spark でもうちょっとあそんでみる。
theme_spark <-function(base_size =11, base_family =""){ theme_grey(base_size = base_size, base_family = base_family)%+replace% theme(panel.background = element_rect(fill ="white",colour =NA), panel.grid =element_blank(), axis.line.y = element_blank(), panel.border = element_blank(), strip.text.x = element_blank(), strip.text.y = element_text(angle =0), strip.background = element_blank())}
サーチコンソールのデータの図示。
高さでインプレッション、色でクリック率を表して、トータルのインプレッションが多い順に並べている。
library(tidyverse)library(searchConsoleR) scr_auth() sc_websites <- list_websites() scdata <- search_analytics(sc_websites[1,1], dimensions = c("date","page"), rowLimit =50000) scdata2 <-scdata %>% group_by(page)%>% summarise(totalCTs=sum(clicks),totalIMPs=sum(impressions))%>% dplyr::filter(totalIMPs>=100*90)%>% left_join(scdata,by="page")%>% mutate(pagePath=sub("http://abrahamcow.hatenablog.com/","",page))%>% arrange(date,desc(totalIMPs))%>% mutate(pagePath=factor(pagePath,levels=pagePath[!duplicated(pagePath)])) p1<-ggplot(scdata2,aes(x=date,y=impressions,fill=ctr))+ geom_col(width=1)+ facet_grid(pagePath~.,scales ="free_y")+ scale_fill_continuous(labels=scales::percent)+ theme_spark() print(p1)
統計グラフの本よみたい。おすすめあったら教えて下さい。
The Visual Display of Quantitative Information
- 作者: Edward R. Tufte
- 出版社/メーカー: Graphics Pr
- 発売日: 2001/05/01
- メディア:ハードカバー
- 購入: 2人 クリック: 22回
- この商品を含むブログ (15件) を見る
The Grammar of Graphics (Statistics and Computing)
- 作者: Leland Wilkinson,D. Wills,D. Rope,A. Norton,R. Dubbs
- 出版社/メーカー: Springer
- 発売日: 2013/01/02
- メディア:ペーパーバック
- クリック: 60回
- この商品を含むブログを見る
- 作者: William S. Cleveland
- 出版社/メーカー: Hobart Pr
- 発売日: 1994
- メディア:ハードカバー
- クリック: 1回
- この商品を含むブログ (1件) を見る