Počítáme oblíbené
Pojďme pokračovat v prozkoumávání datasetu z konference RStudio Conf. Připomeň si, že tento dataset je seznam více než 5 000 podseznamů – každý z nich představuje tweet s hashtageem #RStudioConf.
V tomto cvičení extrahujeme statistiku z tweetů, které nebyly retweety: průměrný počet oblíbených. Element "favorite_count" obsažený v každém podseznamu udává počet lidí, kteří daný tweet označili jako oblíbený.
purrr je už načtený a dataset rstudioconf máš stále k dispozici ve svém prostředí.
Toto cvičení je součástí kurzu
Intermediate Functional Programming with purrr
Pokyny k cvičení
Předvyplň funkce
mean()around()pomocína.rm = TRUEadigits = 1.Z těchto dvou předvyplněných funkcí sestav novou funkci a pojmenuj ji
rounded_mean().Vytvoř podseznam tweetů, které nejsou retweety.
Extrahuj element
"favorite_count"z každého podseznamu pomocí variantymap_*pro celá čísla a výsledek předej funkcirounded_mean().
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# 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("___") %>%
___()