1. taro_9674

    Posted

    taro_9674
Changes in title
+【R言語】Rでゲンシジンになってみた
Changes in tags
Changes in body
Source | HTML | Preview
@@ -0,0 +1,61 @@
+###動機
+
+[オレ プログラム ウゴカス オマエ ゲンシジン ナル - Qiita](https://qiita.com/Harusugi/items/f499e8707b36d0f570c4)
+
+R ゲンシジン ナリタイ!ってなった。
+や、データ加工のテクニックを身につけたいという気持ちもあるのですよ?
+
+###実装
+
+悩んだところもありましたが、総じて意外と簡単にできました。
+
+```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 ゲンシジン ナッタ!
+トモダチ。