ggeconodist: Create Diminutive Distribution Charts

econ_tenth <- "#39c0d1"
econ_ninetieth <- "#14709f"
econ_plot_bg_col <- "#d7e6ee"
econ_median <- "#6b7a83"
econ_main <- "#6794a7"
econ_text_col <- "#3b454a"
econ_grid_col <- "#63696d"


#' Cost of a mammogram in various U.S. Citites (2016, USD)
#'
#' @docType data
#' @export
mammogram_costs <-
structure(list(city = structure(1:11, .Label = c("Houston, TX",
"Los Angeles, CA", "Dallas, TX", "Chicago, IL", "Atlanta, GA",
"Seattle, WA", "Philadelphia, PA", "New York, NY", "Boston, MA",
"Baltimore, MD", "Denver, CO"), class = "factor"), median = c(133.325464181588,
169.66205927832, 182.665045621407, 195.658588982401, 218.661693362764,
228.321864044665, 257.991713783213, 264.327954768116, 277, 277.000436737922,
300.003541118285), ninetieth = c(300.003541118285, 753.00227811943,
225.998890449604, 325.669566449085, 468.674087276762, 294.989317626506,
541.337834488131, 490.997296946376, 394.008427861519, 557.013184763748,
393.337976132863), tenth = c(60.000708223657, 116.328096412847,
102.654658341104, 115.657644684191, 128.670074009372, 104.996517900353,
141.333112997084, 164.336217377448, 197.339439795087, 197.008935421806,
153.335143238235), state = c("TX", "CA", "TX", "IL", "GA", "WA",
"PA", "NY", "MA", "MD", "CO")),  class = "data.frame", row.names = c(NA, -11L))