Qiita Teams that are logged in
You are not logged in to any team

Log in to Qiita Team
Community
OrganizationAdvent CalendarQiitadon (β)
Service
Qiita JobsQiita ZineQiita Blog
Help us understand the problem. What is going on with this article?

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

More than 1 year has passed since last update.

動機

オレ プログラム ウゴカス オマエ ゲンシジン ナル - 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 ゲンシジン ナッタ!
トモダチ。

vsn
IT、メカトロニクス・エレクトロニクス、バイオ・ケミストリー分野における無期雇用型派遣事業を行っています。技術力とコンサル力でお客さま事業に革新をもたらすべく、約4,000名のエンジニアが活躍中です。
https://www.modis-vsn.jp/
Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away