Визуализация с помощью диаграмм рассеяния

Анализ данных опросов в 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

Диаграммы рассеяния

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