도쿄도 지사 선거(2016년) 개표 결과를, R(ggplot)로 가시화합니다

소개



R의 그래프 드로잉 라이브러리 ggplot을 이용하여 도쿄도 지사 선거의 개표 정보를 시각화합니다.
'전체 21명의 후보자와 득표수와의 관계'에 대한 막대 그래프를 작성했습니다.
excel에서도 충분히 같은 일을 할 수 있기 때문에, R을 사용하는 메리트라고 하면, 좋아하는 것처럼 눈금을 조정할 수 있었던 것입니까.

실행 환경



OS: Mac 10.11.6
R: 3.3.0
ggplot: ggplot2, 2.1.0
RStudio: Version 0.99.896

그래프



Rstudio를 이용하고 있습니다. plots를 zoom한 결과를 표시합니다.


데이터



아래 URL의 데이터를 이용했습니다. 자세한 것은 링크처를 봐 주세요.
htp // 소쿠호. h28과 치지선. 메 t로. 가끔. jp / h28 치_ 카이. HTML
개표율 100.00% 2016년 8월 1일 1시 05분 확정의 정보입니다.
  
신고순서, 후보자명, 득표수, 정당명은 각각
No. candidate, obtained,partys, 했습니다.
후보자 분들의 이름이, 히라가나가 많습니다만, 선거 관리 위원회측의 공식 발표에 준하고 있습니다.
html에서 복사 붙여넣기를 하고 csv 파일에 붙여넣었습니다.
글자 깨짐을 했으므로 cot editor라는 텍스트 편집기로 utf-8로 변환했습니다.
화상은, View(filename) 로 표시시킨 결과입니다.




R 스크립트 코드



아래의 스크립트 코드는 대부분 R 그래픽 스쿠북(오라일리)을 참고로 하고 있습니다.
( htps //w w. 미안해. 이. jp/보오 ks/9784873116532/ )
특히 3장의 막대 그래프(레시피 3.10)를 비롯한 페이지를 잘 읽었습니다.

(그래프의 축 라벨은 일본어 폰트를 표시시키는 것을 실시했습니다.Mac에서 밖에 확인하고 있지 않으므로, windows나 linux등으로 어떻게 하는지는, 참고 URL처등을 봐 주세요)
csv 파일은 GUI에서 읽습니다.
Rstudio 도구 > Import Dataset > From local file...
파일 이름을 Tokyo2016.csv로 지정했습니다.

Tokyo_bar_scale.R
library(ggplot2)
#csv ファイルを読み込みは、下記のようなコマンドでも可能。
#Tokyo2016 <- read.delim("~/Tokyo2016.csv")
#Rstudioのdata importでも可。

theme_set(theme_bw(base_family = "HiraKakuPro-W3")) 
#MacOSで、日本語フォントを表示でさせる設定

voteorder <- Tokyo2016$candidate[order(Tokyo2016$obtained)]
Tokyo2016$candidate <- factor(Tokyo2016$candidate, levels = voteorder)
#候補者名の要素に得票順に並ぶように並び替える要素を与える。

a <- c(0, 2.5e5 ,5e5, 1.5e6, 3e6)
b <-c("0","25万", "50万", "150万", "300万")
#軸の目盛り(a)と表記の為(b)にベクトルを作成

p <- ggplot(Tokyo2016, aes(y=obtained, x=candidate, fill=factor(partys))) + geom_bar(stat = "identity") 
p + coord_flip() -> p1
#縦軸と横軸との交換
p2 <- p1 + 
  ggtitle("2016 東京都知事選挙 開票情報")+ 
  ylab("得票数") + xlab("候補者名") + #日本語のラベル
  scale_y_continuous(breaks = a, labels = b) + #上述のa, b ベクトルを利用
  theme(legend.position="none") #凡例を表示させない
show(p2)


참고로 한 URL, 출처



Stack over flow 의 페이지 scale_y_continuous 는, factor 에서는 이용할 수 없고 numeric 이어야 한다고 하는 것.
h tp : / / s t c ゔ rf ぉ w. 코 m / 쿠에 s 치온 s / 29278153 / p ぉ ち ん ー ぃ th ー g ぉ t 2 에로 r ぢ sc - s?

일본어 : h tps : // 넣어. 에즈. 미에. 아 c. jp/~ 오쿠무라/s t/후rst. HTML
미에 오오쿠무라 교수의 설명.

ggplot2에서 세로축과 가로축을 뒤집고 싶습니다.
h tp : 소 m/화탄/있어 MS/5C4네 243C48아 64b44b2d

R 그래픽 스쿠북
h tp // w w. 코오 k 보오 k r. 이 m

감상



생각하고 있던 것보다, R·ggplot로 조금 익숙하지 않는 것을 굉장히 어렵습니다.
아직도, 나는 초보자군요.
다음 번의 AKB48 총선거 등과 같은 큰 데이터도 바삭바삭하게 해석할 수 있으면, 편리하겠네요.
기사를 쓴 후 깨달았지만, 다음과 같은 기사가 이미있었습니다.

[R] 도지사 선거를 소재에 배우는 ggplot2의 작례
ht tp // // 일-이덴치후에에 d. 하테나 bぉg. 코m/엔트리/2014/02/22/231809

좋은 웹페이지 즐겨찾기