स्कैटरप्लॉट के साथ विज़ुअलाइज़ेशन

R में Survey Data का विश्लेषण

Kelly McConville

Assistant Professor of Statistics

babies <- filter(NHANESraw, AgeMonths <= 6) %>%
  select(AgeMonths, HeadCirc)
babies

# A tibble: 484 x 2
   AgeMonths HeadCirc
       <int>    <dbl>
 1         3     42.7
 2         4     42.8
 3         2     38.8
 4         0     36.0
 5         5     42.7
 6         2     41.9
 7         6     44.3
 8         3     42.0
 9         2     41.3
10         1     38.9
# ... with 474 more rows

स्कैटरप्लॉट्स

ggplot(data = babies, mapping = aes(x = AgeMonths, y = HeadCirc)) + 
  geom_point()

उम्र बनाम सिर की परिधि का स्कैटरप्लॉट

जिटरिंग

ggplot(data = babies, mapping = aes(x = AgeMonths, y = HeadCirc)) + 
  geom_jitter(width = 0.3, height = 0)

उम्र बनाम सिर की परिधि का जिटर किया हुआ स्कैटरप्लॉट

babies <- filter(NHANESraw, AgeMonths <= 6) %>%
  select(AgeMonths, HeadCirc, WTMEC4YR)
babies

# A tibble: 484 x 3
   AgeMonths HeadCirc WTMEC4YR
       <int>    <dbl>    <dbl>
 1         3     42.7    12915
 2         4     42.8    12791
 3         2     38.8     2359
 4         0     36.0     4306
 5         5     42.7     2922
 6         2     41.9     5561
 7         6     44.3    10416
 8         3     42.0     9957
 9         2     41.3     4503
10         1     38.9     3718
# ... with 474 more rows

बबल प्लॉट्स

ggplot(data = babies, mapping = aes(x = AgeMonths, y = HeadCirc,
                                    size = WTMEC4YR)) + 
  geom_jitter(width = 0.3, height = 0) + 
  guides(size = "none")

उम्र बनाम सिर की परिधि का बबलप्लॉट

बबल प्लॉट्स

ggplot(data = babies, mapping = aes(x = AgeMonths, y = HeadCirc,
                                    size = WTMEC4YR)) + 
  geom_jitter(width = 0.3, height = 0, alpha = 0.3) + 
  guides(size = "none")

अर्ध-पारदर्शी बिंदुओं वाला उम्र बनाम सिर की परिधि का बबलप्लॉट

सर्वे-वेटेड स्कैटरप्लॉट्स

ggplot(data = babies, mapping = aes(x = AgeMonths, y = HeadCirc,
                                    color = WTMEC4YR)) + 
  geom_jitter(width = 0.3, height = 0) + 
  guides(color = "none")

जहाँ रंग वेट्स दर्शाते हैं, वहाँ उम्र बनाम सिर की परिधि का स्कैटरप्लॉट

सर्वे-वेटेड स्कैटरप्लॉट्स

ggplot(data = babies, mapping = aes(x = AgeMonths, y = HeadCirc,
                                    alpha = WTMEC4YR)) + 
  geom_jitter(width = 0.3, height = 0) + 
  guides(alpha = "none")

जहाँ ट्रांसपेरेंसी वेट्स दर्शाती है, वहाँ उम्र बनाम सिर की परिधि का स्कैटरप्लॉट

अभ्यास करते हैं!

R में Survey Data का विश्लेषण