Kazanan belli!
Bu egzersizde önemli bir metriği belirleyeceğiz — en çok retweet alan tweet'i paylaşan kullanıcı kim?
Bu tür bilgiler sosyal medya analizi yaparken önemlidir: veri kümenindeki en "ünlü" tweet hakkında fikir verir. Bu da ileride belirli bir tema/hashtag için hangi konuların ve kullanıcıların öne çıktığını anlamana yardımcı olabilir.
purrr kullanarak derlemimizdeki en çok retweet edilen tweet'i bulacağız ve bu tweet'in arkasındaki kullanıcıyı göreceğiz. Bu analizin yalnızca orijinal tweet'lerde çalışmasını istediğimiz için, önceki bir egzersizde oluşturulmuş olan non_rt listesini sana sağladık.
Bu egzersiz, kursun bir parçasıdır
purrr ile Orta Düzey Fonksiyonel Programlama
Egzersiz talimatları
Tüm
"retweet_count"öğelerini uygunmap_*()varyantıyla çıkar vemax()işlevine gönder..atdeğeri"retweet_count"ve.fdeğerimax_rt'ye eşitliği test eden bir eşleyici olacak şekilde birmap_at()şablonu hazırla.Bu yeni işlevi
non_rtüzerinde çalıştır, yalnızca"retweet_count"değerini tut ve sonucu düzleştir.Sonucun
$screen_nameve$textalanlarını konsola yazdır.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# 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