ปรับแต่งกราฟ margin of error ด้วย ggplot2

# Remove unnecessary content from the county's name
maine_inc2 <- maine_inc %>%
  mutate(NAME = ___(NAME, " County, Maine", ""))

# Build a margin of error plot incorporating your modifications
ggplot(maine_inc2, aes(x = estimate, y = ___(NAME, estimate))) + 
  geom_errorbarh(aes(xmin = ___ - moe, xmax = estimate + ___)) + 
  geom_point(size = 3, color = "darkgreen") + 
  theme_grey(base_size = 14) + 
  labs(title = "Median household income", 
       ___ = "Counties in Maine", 
       x = "ACS estimate (bars represent margins of error)", 
       y = "") + 
  scale_x_continuous(labels = scales::dollar)