TwitterのAPIを使って分析をしている過程で、どうしてもURLのドメイン名を取得したいという状況に直面したものの、正規表現が苦手。そこで、今回はＲのstringrパッケージを使用して、正規表現が苦手な人でもごり押しでURLからドメイン名を取得する方法を備忘録も兼ねて書きます。（そんな人いるか知りませんが。）

適当なデータフレームを用意する

とりあえず適当にブラウザのタブに並んでいるURLをペタペタ貼って、data.frameオブジェクトを作りました。

df <- data.frame(id = 1:4,
                 url = c("https://developer.twitter.com/en/docs/twitter-api/data-dictionary/object-model/tweet",
                          "https://qiita.com/yuhi62320/items/d1193a03392458e99416",
                          "https://www.instagram.com/kannahashimoto.mg/?hl=ja",
                          "https://www.youtube.com/watch?v=swZVrg3H-8E"
                          )
)
                 
View(df$url)

このURLのリンクから、ドメイン名を取得したいのですが、正規表現が苦手すぎるので楽して実行できるものはないものか。。。
よく見ると、URLは、/（スラッシュ）で分割することによってある程度ブロックを分けられそうです。
しかも幸いなことに、ドメイン名はhttp(s)の直後に来るので、割とシンプルに獲得できそう。
というわけで、今回は、正規表現が苦手すぎる私が、stringrパッケージを使ってゴリ押しでドメイン名を獲得していきます。

#stringrを使ってゴリ押しでドメイン名を獲得する。
今回はtidyverseで。stringrも同時にロードされます。

library(tidyverse)

df_url_split <- str_split_fixed(df$url, "/", n=4) %>% 
          data.frame()

View(df_url_split)

str_split_fixed(stirng, pattern, column_number)は、指定したパターンを基に文字列を分割し、ベクトルとして保存してくれます。
今回は、df$urlをpattern = "/"で分割し、その結果を要素数4のベクトルに分割し、それをdata.frameとしてまとめています。n = 4としているのは、これより少ないとドメイン名以前にある"/"の数が足りず、ドメイン名を独立して分割させられないから。
こちらもよく見れば、各ドメインがX3の列にまとまっていることがわかります。ドメイン名の前に/が3個あるので、3番目の列に格納されているんですね。
あとは、いらない部分を取り除いて成形するだけ。

df <- df %>%
  cbind(df_url_split) %>% 
  mutate(domain_name = X3) %>%
  select(-c(X1,X2,X3,X4))
View(df)

無事にドメイン名を取得できました。
正規表現が得意な方はよりスマートな方法を教えてください。ぜひ。