बॉक्स प्लॉट
कई distributions की तुलना करने का एक आसान तरीका बॉक्स प्लॉट है. यह कोड आपको एक कॉम्पैक्ट विज़ुअल के लिए कई बॉक्स प्लॉट बनाने में मदद करेगा.
इस अभ्यास में all_book_polarity ऑब्जेक्ट पहले से लोड है. इस data frame में दो कॉलम हैं, book और polarity. इसमें सभी किताबें शामिल हैं जिन पर qdap का polarity() फंक्शन लगाया गया है. बड़े ऑब्जेक्ट की पहली 3 पंक्तियाँ नीचे दी गई हैं.
| book | polarity | |
|---|---|---|
| 14 | huck | 0.2773501 |
| 22 | huck | 0.2581989 |
| 26 | huck | -0.5773503 |
यह अभ्यास tapply() से परिचय कराता है, जो आपको एक अनियमित (ragged) array पर फंक्शन apply करने देता है. आप पहले values का एक vector देते हैं और फिर factors का एक vector. हर factor–value संयोजन के लिए तीसरा पैरामीटर, जैसे min() जैसा कोई फंक्शन, apply होता है. उदाहरण के लिए दो vectors पर tapply() के साथ यह कोड देखें.
f1 <- as.factor(c("Group1", "Group2", "Group1", "Group2"))
stat1 <- c(1, 2, 1, 2)
tapply(stat1, f1, sum)
परिणाम एक array होता है जहाँ Group1 का मान 2 (1+1) और Group2 का मान 4 (2+2) होता है.
यह अभ्यास पाठ्यक्रम का हिस्सा है
R में Sentiment Analysis
अभ्यास निर्देश
- क्योंकि यह पहले से लोड है,
str()सेall_book_polarityका निरीक्षण करें. tapply()का उपयोग करते हुएall_book_polarity$polarity,all_book_polarity$bookऔरsummary()फंक्शन पास करें. यह चार किताबों केpolarity()स्कोर के लिए summary statistics प्रिंट करेगा. आप उम्मीद करेंगे कि Oz और Huck Finn के औसत Agamemnon या Moby Dick से अधिक हों. median पर खास ध्यान दें.ggplot()सेall_book_polarityपास करके एक बॉक्स प्लॉट बनाएँ.- Aesthetics के लिए
aes(x = book, y = polarity)रखें. +का उपयोग करकेgeom_boxplot()जोड़ें औरcol = "darkred"सेट करें. प्रत्येक बॉक्स की गहरी रेखा जो median दर्शाती है, उस पर ध्यान दें.- अगली परत के रूप में
geom_jitter()जोड़ें ताकि हर शब्द के लिए points दिख सकें.
- Aesthetics के लिए
इंटरैक्टिव व्यावहारिक अभ्यास
इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।
# Examine
___
# Summary by document
___
# Box plot
ggplot(___, aes(x = ___, y = ___)) +
___(fill = c("#bada55", "#F00B42", "#F001ED", "#BA6E15"), col = "___") +
___(position = position_jitter(width = 0.1, height = 0), alpha = 0.02) +
theme_gdocs() +
ggtitle("Book Polarity")