Temel duygu kutuplaşmasını hızlıca incele
Bir duygu analizi projesine başlarken, bazen hızlı bir polarity() kontrolü beklentilerini ayarlamana ya da problemi tanımana yardımcı olur. Bu egzersizde (zamandan kazanmak için) polarity() fonksiyonunu comments vektörünün bir kısmına uygulayacaksın; bu sırada daha büyük kutuplaşma nesnesi arka planda yüklenecek.
Çekirdek yoğunluk grafiğini kullanarak yorumların 0 etrafında merkezlenmediğini fark etmelisin. Bu duygu "not şişmesi"nin genellikle iki nedeni vardır. Öncelikle, sosyal normlar katılımcıları nötr olmak yerine nazik davranmaya yöneltebilir. Bu elbette kanala özgüdür. E-spor ya da sosyal medya paylaşımları gibi özellikle iğneleyici kanallar negatif tarafa kayarak bir tür "deflasyon"a yol açabilir. Bu kanalların beklentileri farklıdır. İkinci olası neden ise "özellik temelli duygu" olabilir. Bazı incelemelerde yazar "yatak rahat ve hoştu ama mutfak kirli ve berbattı" gibi yazar. Bu tür bir incelemenin duygusu aynı anda birden çok özelliği kapsar ve bu yüzden ortalama skoru kaydırabilir.
Sonraki bir egzersizde bu "not şişmesini" ayarlayacaksın; burada ise yorumları herhangi bir değişiklik yapmadan keşfet.
Bu egzersiz
R ile Duygu Analizi
kursunun bir parçasıdırEgzersiz talimatları
bos_reviews$comments[1:6]içindeki ilk altı yorumapolarity()uygulayarakpractice_pololuştur.- Dönen kutuplaşma nesnesini
practice_polyazarak incele. - Tüm 6 yorumun genel kutuplaşmasına erişmek için
practice_pol$all$polarityüzerindesummary()çağır. - Ayrıca tüm 1000 yorum için daha büyük bir kutuplaşma nesnesi yükledik. Bu yeni nesnenin adı
bos_pol. Şimdibos_poliçindeki tüm kutuplaşma skorlarını döndüren doğru liste öğesinesummary()uygula. - Örnek kodda bir çubuk grafik ve çekirdek yoğunluk grafiği neredeyse yazdırılmaya hazır. Senin, tüm skorları temsil eden veri çerçevesini girmen gerekiyor. İpucu: önceki adımda,
polaritybu veri çerçevesinin bir sütununu temsil ediyor.
Uygulamalı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
# Practice apply polarity to first 6 reviews
practice_pol <- ___
# Review the object
___
# Check out the practice polarity
___
# Summary for all reviews
___
# Plot Boston polarity all element
ggplot(___, aes(x = polarity, y = ..density..)) +
geom_histogram(binwidth = 0.25, fill = "#bada55", colour = "grey60") +
geom_density(size = 0.75) +
theme_gdocs()