ウィキペディアからのデータ取得

Hana.Rmd

---
title: "ウィキペディアからのデータ取得"
author: "Ishida Motohiro"
date: "2016年1月22日"
output: html_document
---

ウィキペディアの[花札](https://ja.wikipedia.org/wiki/%E8%8A%B1%E6%9C%AD) から札の一覧を**表**形式のデータとして取得する。

# 追加パッケージの導入

WEBサイトの情報を効率的に取得できるパッケージをインストールする。

```{r echo = FALSE, message = FALSE}
if (!require(rvest)) {install.packages("rvest"); require(rvest)}
if (!require(dplyr)) {install.packages("dplyr"); require(dplyr)}
```

# 花札のぺーじを取得

## Mac あるいは Linux の場合
```{r message = FALSE}
wiki <- read_html("http://ja.wikipedia.org/wiki/%E8%8A%B1%E6%9C%AD")
hana <- html_table(html_nodes(wiki, "table")[[3]])
hana
```

## Windowsの場合

Windowsの場合、文字コードの関係で、上記の命令ではエラーとなります。
以下のコードに置き換えて実行してください。

```
wiki <- read_html("http://ja.wikipedia.org/wiki/%E8%8A%B1%E6%9C%AD")
hanahuda <- wiki %>% html_nodes("table") %>% .[[3]] %>% html_nodes("td") %>% html_text() 
dim(hanahuda) <- c(6,12)
hanahuda %>% t %>% as.table #as.table (t(hanahuda))
```