【R言語】Rでゲンシジンになってみた

動機

オレ プログラム ウゴカス オマエ ゲンシジン ナル - Qiita

R　ゲンシジン　ナリタイ!ってなった。
や、データ加工のテクニックを身につけたいという気持ちもあるのですよ？

実装

悩んだところもありましたが、総じて意外と簡単にできました。

genshijin.r

# ライブラリ -------------------------------------------------------------------

library(RMeCab)
library(pipeR)
library(dplyr)

# ソース本文 -----------------------------------------------------------------------

txt <- "ソースコードは嘘をつかない"

#ファイル保存
write.table(txt,file="txt.txt",col.names = F,row.names = F)

#キーワードの抽出
txt <- RMeCabText("txt.txt")%>>%
  as.data.frame() %>>%        #データフレーム化
  t()                         #転置

#助詞を除いたキーワードを抽出
txt <- txt[txt[, 2] != "助詞",] 


txt <- txt[,9]
txt <- paste(txt,collapse = "")

txt変数の中身を見てみると以下のような結果になります。

[1] "ソースコードウソツカナイ"

別の文言に置き換えて試してみます。

入力：最高の力を発揮して書いたコードにあるバグは、自分では解決できない

[1] "サイコウチカラハッキシカイタコードアルバグ、ジブンカイケツデキナイ"

出来たようです。アルファベットに対応していないのが残念な点なので、今後の課題とします。

アリガトウ。R ゲンシジン　ナッタ！
トモダチ。