Visualização com diagramas de dispersão

Analisando dados de pesquisa no R

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

Diagramas de dispersão

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

Dispersão de idade versus circunferência da cabeça

Jitter

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

Dispersão com jitter de idade versus circunferência da cabeça

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

Gráficos de bolhas

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

Gráfico de bolhas de idade versus circunferência da cabeça

Gráficos de bolhas

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

Gráfico de bolhas de idade versus circunferência da cabeça com pontos semitransparentes

Dispersões ponderadas por survey

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

Dispersão de idade versus circunferência da cabeça onde a cor representa os pesos

Dispersões ponderadas por survey

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

Dispersão de idade versus circunferência da cabeça onde a transparência representa os pesos

Vamos praticar!

Analisando dados de pesquisa no R