Vizualizace trendů

Analýza dat z dotazníků v R

Kelly McConville

Assistant Professor of Statistics

Bodové grafy

Bodový graf věku versus obvodu hlavy, kde průhlednost představuje váhy

Váhově upravená regresní přímka

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

Bodový graf s regresní přímkou pro věk a obvod hlavy, kde průhlednost představuje váhy

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

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

Trendové přímky

ggplot(data = babies, mapping = aes(x = AgeMonths, y = HeadCirc,
                                    alpha = WTMEC4YR, color = Gender)) + 
  geom_jitter(width = 0.3, height = 0) + guides(alpha = "none") +
  geom_smooth(method = "lm", se = FALSE, mapping = aes(weight = WTMEC4YR))

Bodový graf s trendovými přímkami pro věk a obvod hlavy, kde barva představuje pohlaví a průhlednost váhy

Pojďme si procvičit!

Analýza dat z dotazníků v R