米国のトランプ大統領の謎の covfefe ツイートをRで再現する

概要
統計処理用のプログラミング言語のRには、米国のトランプ大統領がツイートした covfefe という謎の単語のようなものを生成するためのパッケージがある。

はじめに

米国のドナルド・トランプ大統領は Twitter を結構よく使っている [1] 。何しろ、大統領に就任してからも日に4回ツイートしている [2] 。

そのトランプ大統領が、2017年5月31日に以下のようなツイートをした [3] 。このツイートでは、covfefe という謎の単語が使われていた。

Despite the constant negative press 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."

この函数のアルゴリズムはおおよそ次のようなものになっている。

covfefe-化された単語の後にあった単語は出力されないので、文が書きかけで終わってしまうという大統領の covfefe ツイートの特徴を再現することができる。

スピーチの covfefe-化

テキストファイルに収録された文章を covfefe-化する函数として、covfefySpeech() というものがある。入力を何も指定しないと、トランプ大統領の就任演説が covfefe-化される。

脚注
  1. トランプ大統領の Twitterアカウント：@realDonaldTrump [↩]
  2. 大統領選の直前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/ [↩]
  3. BBCニュース．（2017年5月31日）．「『covfefe』とは……トランプ氏の謎メッセージにツイッター大いに盛り上がり」 http://www.bbc.com/japanese/40107256
    CNN.co.jp．（2017年6月1日）．「トランプ大統領が謎の投稿、『ｃｏｖｆｅｆｅ』の意味は？」 https://www.cnn.co.jp/tech/35102096.html
    ロイター．（2017年6月1日）．「トランプ米大統領が謎の単語『covfefe』をツイート、憶測広がる」 http://jp.reuters.com/article/confefe-idJPKBN18S3J5 [↩]