stringrを使って文字列処理をやってみる