WHO の肥満率と平均寿命
国別・年・性別ごとの肥満率と平均寿命を含む WHO データ（who_df）のサンプルが与えられています。肥満率と平均寿命の相関を視覚的に確認したいと考えています。
ただし、このデータはとても雑で、列名の中に 4 つの変数が隠れています。各列名はアンダースコアで区切られた 3 つの部分から成り、最初に year、次に sex、最後に pct.obese か life.exp のどちらかが入ります。列名の3番目の部分が2つの変数を表すため、names_to 引数では特別な ".value" を使う必要があります。
データを整然（tidy）な形式にピボットし、散布図を作成しましょう。
ggplot2 パッケージはあらかじめ読み込まれています。
この演習はコースの一部です
tidyrでデータを整形する
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
who_df %>%
# Put each variable in its own column
___(
___,
names_to = ___,
names_sep = "_",
names_transform = ___(___ = ___)
)