はじめに
米国のドナルド・トランプ大統領は Twitter を結構よく使っている [1] 。何しろ、大統領に就任してからも日に4回ツイートしている [2] 。
そのトランプ大統領が、2017年5月31日に以下のようなツイートをした [3] 。このツイートでは、covfefe という謎の単語が使われていた。
これを訳すと、「報道の絶え間ない否定的な covfefe にも関わらず」とでもなるだろうか。おそらく coverage と入力しようとして、誤って covfefe と入力してしまったのだろう。また、covfefe で文が終わってしまっている。本来はまだ書くことがあったのだろうが、書きかけでツイートしてしまったのだろう。
ちなみに、この covfefe ツイートは既に削除されている。
R で covfefe のようなものを作る
この大統領の covfefe ツイートに似た文字列を生み出す R のパッケージがある。その名も、covfefe
である。このパッケージを使えば、単語、文、スピーチを covfefe-化する (covfefy) ことができる。
単語の covfefe-化
単語を covfefe-化するには、covfefy()
という函数を用いる。これは、文字列を1つとって、それを covfefe っぽい形に変える。例えば、“forest” なら “forrere” になるし、“believers” なら “bellili” になる。
covfefy("forest") # "forrere"
なお、covfefy()
は文字列を1つしかとれない。複数の文字列を一気に covfefe-化したければ、sapply()
を使おう。あるいは、purrr
パッケージがインストールされているのならば、map_chr()
を使ってもよい。
words <- c("coverage", "forest", "compare", "supernatural") sapply(words, covfefy, USE.NAMES = FALSE) # "covfefe" "forrere" "commama" "supbebe" purrr::map_chr(words, covfefy) # "covfefe" "forrere" "commama" "supbebe"
文の covfefe-化
文を covfefe-化するには、covfefySentence()
という函数を用いる。これをい使えば、先に述べたような大統領のツイートっぽいものが作れる。
sentence <- "When it comes to twitter, he is second to none." covfefySentence(sentence) # "When it comes to twitdede."
この函数のアルゴリズムはおおよそ次のようなものになっている。
- 10語未満ならば、何もせず入力をそのまま出力する(要するに covfefe-化されない)。
- 10語以上の場合は次のようになる。
- 入力の中にコンマがあれば、コンマの直前の単語が covfefe-化される。そして、covfefe-化された単語までが出力される。
- 入力の中にコンマがなければ、文を前から見ていったときに文全体の4分の3あたりにある単語が covfefe-化される。そして、covfefe-化された単語までが出力される。
covfefe-化された単語の後にあった単語は出力されないので、文が書きかけで終わってしまうという大統領の covfefe ツイートの特徴を再現することができる。
スピーチの covfefe-化
テキストファイルに収録された文章を covfefe-化する函数として、covfefySpeech()
というものがある。入力を何も指定しないと、トランプ大統領の就任演説が covfefe-化される。
- トランプ大統領の Twitterアカウント:@realDonaldTrump [↩]
- 大統領選の直前27日間は日に7回、大統領当選から就任までは日に3.9回、当選後の100日間は日に4回ツイートしているとのこと。詳しくは、Scott, P. (2017, May 2). Donald Trump’s Twitter habits tell us a lot about his first 100 days as president. The Telegraph. http://www.telegraph.co.uk/news/2017/04/27/donald-trumps-twitter-habits-tell-us-lot-first-100-days-president/ [↩]
- BBCニュース.(2017年5月31日).「『covfefe』とは……トランプ氏の謎メッセージにツイッター大いに盛り上がり」 http://www.bbc.com/japanese/40107256
CNN.co.jp.(2017年6月1日).「トランプ大統領が謎の投稿、『covfefe』の意味は?」 https://www.cnn.co.jp/tech/35102096.html
ロイター.(2017年6月1日).「トランプ米大統領が謎の単語『covfefe』をツイート、憶測広がる」 http://jp.reuters.com/article/confefe-idJPKBN18S3J5 [↩]