R: 複数回答のアンケートのグラフの例

経緯

「新知事に優先して取り組んでほしい政策は「教育・子育て」が４１・９％で最多」

都知事に改憲阻止を求めている有権者などいないようである (ﾟ⊿ﾟ) 

【東京都知事選 序盤情勢】https://t.co/TheBuRLRPVpic.twitter.com/NOWyQFxQSb

— ano_ano (@ano_ano_ano) 2016年7月18日

この円グラフおかしいやろ https://t.co/BcRIS0VVrv

— 石動しのぶ (@isurugi_tfdoll) 2016年7月19日

複数回答させるアンケートの結果表示、どうやるのが正しいんだろう

— トデス子'\ (@todesking) 2016年7月19日

@todesking上田尚一は風配図を推奨していますね（統計グラフのウラ・オモテ、講談社ブルーバックス）

— あびこ（牛） (@abiko_ushi) 2016年7月19日

複数回答ありの場合、合計が100％を超えてしまうので、円グラフや帯グラフは使えない。

レーダーチャート

上田尚一が推奨した風配図は「レーダーチャート」といったほうがわかりやすい。

From Parallel Plot to Radar Plotによれば、こうすると ggplot2 でレーダーチャートがかける。

library(ggplot2)
Q=c("教育","医療","都の行財政改革","景気・雇用","治安・防災","貧困対策","東京五輪・パラリンピックの準備","交通・インフラ整備","分からない・無回答")
A=c(41.9,39.9,28.8,27.9,16.4,12.4,9.7,5.7,0.7)
coord_radar <-function(theta ="x", start =0, direction =1){
    theta <- match.arg(theta, c("x","y"))
    r <-if(theta =="x")"y"else"x"
    ggproto("CordRadar", CoordPolar, theta = theta, r = r, start = start, 
            direction = sign(direction),
            is_linear =function(coord)TRUE)}
ggplot(data.frame(Q=Q,A=A))+
  geom_polygon(aes(x=reorder(Q,-A),y=A,group=1),colour="black",fill=NA)+
  coord_radar()+
  theme_gray(base_family ="HiraKakuProN-W3")+
  xlab("")+ylab("")

データ出典：【東京都知事選・序盤情勢】小池百合子氏、一歩リード 鳥越俊太郎氏、増田寛也氏が急追 序盤情勢（1/2ページ） - 産経ニュース（2つまで回答可）

ただ文字が切れてしまったりしていて、好みではない。

plotrix パッケージを使ったほうがかんたんなようだ。

library(plotrix)
par(family ="HiraKakuProN-W3")#mac ユーザーは日本語のフォントを指定
radial.plot(A,labels=Q,rp.type="p",radial.labels = c(seq(10,40,by=10),NA))

棒グラフ

上田先生は風配図推しのようだったが、ふつうの人の目は極座標表示になれていないので、棒グラフでいいがな、という気がする。

奥村先生は グラフの例：アンケート（複数回答）で、「複数回答の場合は，棒の間のスペースを残しておく。また，絶対に円グラフにしない」としている。

library(cowplot)
ggplot(data.frame(Q=Q,A=A))+
  geom_bar(aes(x=reorder(Q,A),y=A),stat="identity")+
  coord_flip()+
  theme_cowplot(font_family ="HiraKakuProN-W3")+
  xlab("")+ylab("")

その他の注意点

複数回答ありで割合表示にした場合、「のべ回答数に対する割合」か「回答者数に対する割合」か、二通りの解釈がありうる。その点も明記しておいたほうがいい。

参考文献・参考になりそうな文献

統計グラフのウラ・オモテ―初歩から学ぶ、グラフの「読み書き」 (ブルーバックス)

• 作者:上田尚一
• 出版社/メーカー:講談社
• 発売日: 2005/10/21
• メディア:新書
• 購入: 1人 クリック: 62回
• この商品を含むブログ (11件) を見る

統計データの視覚化 (Rで学ぶデータサイエンス 12)

• 作者:山本義郎,飯塚誠也,藤野友和,金明哲
• 出版社/メーカー:共立出版
• 発売日: 2013/05/23
• メディア:単行本
• この商品を含むブログ (1件) を見る

エンジニアのための データ可視化[実践]入門 ~D3.jsによるWebの可視化 (Software Design plus)

• 作者:森藤大地,あんちべ
• 出版社/メーカー:技術評論社
• 発売日: 2014/02/20
• メディア:単行本（ソフトカバー）
• この商品を含むブログ (4件) を見る