始める無料で始める

お気に入り数を数える

RStudio Conf データセットの探索を続けましょう。このデータセットは 5000 件超のサブリストからなるリストで、各サブリストは #RStudioConf ハッシュタグを含むツイートです。

この演習では、リツイートではないツイートについて、統計量を1つ取り出します。対象はお気に入り数の平均です。各サブリストに含まれる "favorite_count" 要素は、そのツイートに「いいね」した人数を表します。

purrr は読み込まれており、rstudioconf データセットは作業スペースに用意されています。

この演習はコースの一部です

purrr で学ぶ中級関数型プログラミング

コースを見る

演習の手順

  • mean() と round() 関数にそれぞれ na.rm = TRUE と digits = 1 を事前入力（プリフィル）します。

  • これら2つの事前入力済み関数を組み合わせて新しい関数を作成し、rounded_mean() と名付けます。

  • リツイートではないツイートだけのサブリストを作成します。

  • 各サブリストから整数用の map_* バリアントを使って "favorite_count" 要素を抽出し、その結果を rounded_mean() に渡します。

実践的なインタラクティブ演習

このサンプルコードを完成させて、この演習に挑戦してみましょう。

# Prefill mean() with na.rm, and round() with digits = 1
mean_na_rm <- ___(___, ___)
round_one <- ___(___, ___)

# Compose a rounded_mean function
rounded_mean <- ___(___, ___)

# Extract the non retweet  
non_rt <- ___(___, "is_retweet")

# Extract "favorite_count", and pass it to rounded_mean()
non_rt %>%
  map_dbl("___") %>%
  ___()
コードを編集して実行