Wizualizacja marginesów błędu w ACS

Analiza danych ze spisu powszechnego USA w R

Kyle Walker

Instructor

Wizualizacja niepewności

Typowe podejście: wykresy słupków błędów

Przykładowy wykres słupków błędów

Wykresy marginesu błędu w ggplot2

W ggplot2: geom_errorbar() i geom_errorbarh()

library(tidycensus)
library(tidyverse)

wyoming_age <- get_acs(geography = "county", 
                       variables = c(medianage = "B01002_001"), 
                       state = "WY")  

ggplot(wyoming_age, aes(x = estimate, y = NAME)) + 
  geom_errorbarh(aes(xmin = estimate - moe, 
                     xmax = estimate + moe)) + 
  geom_point()

Niesformatowany wykres marginesu błędu

Formatowanie wykresów marginesu błędu

wyoming_age2 <- wyoming_age %>%
  mutate(NAME = str_replace(NAME, " County, Wyoming", ""))

ggplot(wyoming_age2, 
       aes(x = estimate, 
           y = reorder(NAME, estimate))) + 
  geom_errorbarh(aes(xmin = estimate - moe, 
                     xmax = estimate + moe)) + 
  geom_point(size = 3, color = "darkgreen") + 
  theme_grey(base_size = 14) + 
  labs(title = "Median age, counties in Wyoming", 
       subtitle = "2012-2016 American Community Survey",
       x = "ACS estimate (bars represent margins of error)", 
       y = "")

Sformatowany wykres marginesu błędu

Czas na ćwiczenia!

Analiza danych ze spisu powszechnego USA w R