Rで席替え

Rをインストールして
```
Rscript change_seats.R
```
で実行できます :sushi: