hrbrpkghelpr::global_opts()
hrbrpkghelpr::stinking_badges()
hrbrpkghelpr::yank_title_and_description()
The following functions are implemented:
hrbrpkghelpr::describe_ingredients()
hrbrpkghelpr::install_block()
library(epidata) # current version packageVersion("epidata")
get_black_white_wage_gap() get_underemployment() get_median_and_mean_wages("gr")
library(tidyverse) library(epidata) library(ggrepel) library(hrbrthemes) unemployment <- get_unemployment() wages <- get_median_and_mean_wages() glimpse(wages) glimpse(unemployment) unemployment %>% group_by(date = as.integer(lubridate::year(date))) %>% summarise(rate = mean(all)) %>% left_join(select(wages, date, median), by = "date") %>% filter(!is.na(median)) %>% arrange(date) -> xdf cols <- ggthemes::tableau_color_pal()(3) update_geom_font_defaults(font_rc) ggplot(xdf, aes(rate, median)) + geom_path( color = cols[1], arrow = arrow( type = "closed", length = unit(10, "points") ) ) + geom_point() + geom_label_repel( aes(label = date), alpha = c(1, rep((4/5), (nrow(xdf)-2)), 1), size = c(5, rep(3, (nrow(xdf)-2)), 5), color = c(cols[2], rep("#2b2b2b", (nrow(xdf)-2)), cols[3]), family = font_rc ) + scale_x_continuous( name = "Unemployment Rate", expand = c(0,0.001), label = scales::percent ) + scale_y_continuous( name = "Median Wage", expand = c(0,0.25), label = scales::dollar ) + labs( title = "U.S. Unemployment Rate vs Median Wage Since 1978", subtitle = "Wage data is in 2015 USD", caption = "Source: EPI analysis of Current Population Survey Outgoing Rotation Group microdata" ) + theme_ipsum_rc(grid="XY")
cloc::cloc_pkg_md()
Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.