私と里傭兵

# はじめに
本記事は[DATUM STUDIO Advent Calendar 2016](http://qiita.com/advent-calendar/2016/datumstudio)の2日目の記事である。
ここでは主に[DATUM STUDIO株式会社](https://datumstudio.jp/)の取締役である里洋平氏との関わりについての書いてみたい。
昨日の記事とはうって変わって、難しいR言語のコードは出てこないので、とりあえず安心してもらいたい。

# 私と里傭兵
私と里洋平との出会いは、今では超人気R言語コミュニティとなった[R勉強会＠東京-Tokyo.R](https://groups.google.com/forum/#!forum/r-study-tokyo)、通称"Tokyo.R"だ。
[一番最初にお邪魔した](https://atnd.org/events/3930)のが2010年らしいので、もうかれこれ6年経つわけだ。
私も大人になりました。

そんな、里洋平と最後に仕事をしたのはいつだろうか。

あれは2年前の夏ごろだったと思う。
里洋平が今度出版する書籍の赤入れ(レビュー)を行おうと、友人のやっている会社がある雑居ビルの一室に、友人ら4人で集まったのだ。その時の様子はこちら
<img width="800" alt="ファイル名" src="https://qiita-image-store.s3.amazonaws.com/0/11754/e901379b-7b1f-9914-0bda-492c906dbd71.png">

泥酔しているだけのように見えるが安心してください、ちゃんと赤入れしていましたよ。

その書籍は<a href="http://amzn.to/2gKxm7x">
<img width="200" alt="ファイル名" src="https://images-na.ssl-images-amazon.com/images/I/4151R3anzDL._SX351_BO1,204,203,200_.jpg">
</a>として無事に発売され、Amazonでも高く評価されている。

赤入れする際に、当時はまだ出たばかりだったデータフレーム処理用の[dplyrパッケージ](https://cran.r-project.org/web/packages/dplyr/index.html)や、今ではなじみ深いパイプ処理 `%>%` を提供する[magrittrパッケージ](https://cran.r-project.org/web/packages/magrittr/index.html)を使うよう、夜通しでひたすらにR言語のコードを書き直したのは今となってはいい思い出だ。
多分、日本で初めて[dplyrパッケージ](https://cran.r-project.org/web/packages/dplyr/index.html)やパイプ処理 `%>%` などを扱った書籍だったと思う、たぶんね[^1]。
[^1]: パイプ処理 `%>%` に関しては世界初との情報も？
<br>
そんな、皆が夜通しで赤入れしている傍で、**違和感を感じるのだろうか股間付近に手を埋めながら眠ってしまう**その姿も里洋平の愛らしいところだ。里洋平が多くの人に愛される理由をここにも見て取れるだろう。
<img width="600" alt="ファイル名" src="https://qiita-image-store.s3.amazonaws.com/0/11754/2871e43c-60ef-8104-e726-b5787e6a0630.png">

# yokkunsrパッケージ
R言語には、一部ユーザからネ申と呼ばれている[Hadley Wickham](http://hadley.nz/)という開発者がいる。
ちなみに上述した[dplyrパッケージ](https://cran.r-project.org/web/packages/dplyr/index.html)も彼の作品だ。
彼はそのあまりの影響力からか、R言語のパッケージから、いつでもその姿を拝むことができるよう関数(正確には画像データ)にまでなっている。こんな感じで使う。パッケージがない場合は適当にインストールしてもらいたい。

```r
> library(ggmap)
> ggimage(hadley)
```
<img width="400" alt="ファイル名" src="https://qiita-image-store.s3.amazonaws.com/0/11754/d627c91a-e381-4b22-bb76-629a85d34a71.png">

そこで私は**"愛すべき里洋平もいつでもR言語から見ることができるようになるべきだ"**と考え、[yokkunsrパッケージ](https://github.com/teramonagi/yokkunsr)を開発した。yokkunsとは、里洋平の[TwitterのID](https://twitter.com/yokkuns)だ。インストールするためにはR言語のコンソールから

```r
install.packages("devtools")
devtools::install_github("teramonagi/yokkunsr")
```

と叩いて欲しい。このパッケージの使い方は極めてシンプルで

```r
library("yokkunsr")
yokkuns()
```

だけだ。
これで
![image](https://qiita-image-store.s3.amazonaws.com/0/11754/2641d461-81fc-901a-71fe-c366fdc9ffc3.png)
こんなかんじで、いつでも里洋平の姿を拝むことができる。
R言語を用いたデータ分析の作業中にふと里洋平が見たい、まさにそんな瞬間（モーメント）に活用してもらいたい。

愛すべき里洋平を指定(`index`引数)し、その生画像データを取得することも可能だ。
その場合には 1-8までの引数を指定した上で、`is_raw=TRUE` と引数を指定して欲しい。
このようにダブル里洋平も愛することができる。

```r
raw_y1 <- yokkuns(5, is_raw=TRUE)
raw_y2 <- yokkuns(6, is_raw=TRUE)
plot_image(0.5*(raw_y1 + raw_y2))
```
![image](https://qiita-image-store.s3.amazonaws.com/0/11754/dadb7127-8371-3117-f41e-6ae20b5a817d.png)


「里洋平のあんな姿やこんな姿の画像も見たい！」とお考えの貴方！
お気軽に画像を追加して[yokkunsパッケージ](https://github.com/teramonagi/yokkunsr)にプルリクエストを出してもらいたい。
またPython版の `yokkunspy`もそのうち作ってみたいところではある。
.
.
.
.
.
.
.
.
.
.
.
.
.
## One more thing.
更に、最近人工知能・データサイエンティスト界隈を騒がせている業界の風雲児であり、里洋平と同レベルの愛すべきAwesomeなデータサイエンティスト人材・[Awesome Tomomoto](http://qiita.com/tomomoto)も１枚だけだが表示できるようにした。
このパッケージに含まれる`awesome()`関数を用いると

```r
awesome()
```
![image](https://qiita-image-store.s3.amazonaws.com/0/11754/9f05bd9d-27c9-87df-7fb6-b7bc4bb92eff.png)

のように彼を表示することが出来る！
未来はそんなに悪くない ＆ Enjoy!