胜者出炉！
在本练习中，您将识别一个重要指标——谁发布了转发数最多的推文？
在进行社交媒体分析时，这类信息非常重要：它能告诉您数据集中最"出名"的那条推文。这有助于未来确定某一主题或话题标签的关键话题与关键用户。
我们将使用 purrr 从语料中提取被转发次数最多的推文，并找出其背后的用户。由于我们只想分析原创推文，已为您提供在前一练习中创建的 non_rt 列表。
本练习是课程的一部分
使用 purrr 的函数式编程进阶
练习说明
使用合适的
map_*()变体提取所有"retweet_count"元素，并将结果传给max()。预先填写一个
map_at()，其中.at为"retweet_count"，.f为一个测试是否等于max_rt的 mapper。将这个新函数映射到
non_rt上，只保留"retweet_count"，并将结果拍平。在控制台打印结果的
$screen_name和$text。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Get the max() of "retweet_count"
max_rt <- ___(non_rt, ___) %>%
___()
# Prefill map_at() with a mapper testing if .x equal max_rt
max_rt_calc <- ___(___, .at = "retweet_count", .f := ~ ___ )
res <- non_rt %>%
# Call max_rt_calc() on each element
___(___) %>%
# Keep elements where retweet_count is non-zero
___("___") %>%
# Flatten it
___()
# Print the "screen_name" and "text" of the result
res$screen_name
res$text