A nice chart by @hrbrmstr on twitter that I want to save for later

www.bclplaw.com.litigation.R

library(ggalt)
library(hrbrthemes)
library(tidyverse)

structure(list(district = structure(13:1, .Label = c("E.D. New York", 
"D. New Jersey", "W.D. Wisconsin", "D. Delaware", "S.D. Florida", 
"N.D. Illinois", "M.D. Florida", "S.D. New York", "D. Connecticut", 
"D. Maryland", "N.D. California", "N.D. Georgia", "C.D. California"
), class = "factor"), `2017` = c(0.14, 0.16, 0.14, 0.01, 0.01, 
0.04, 0.04, 0.04, 0.03, 0.01, 0.01, 0.06, 0.03), `2018` = c(0.26, 
0.14, 0.13, 0.11, 0.06, 0.05, 0.04, 0.04, 0.04, 0.03, 0.02, 0.01, 
0.01)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -13L)) -> lit

"In previous years, the preferred forums for filing data breach class action litigation  tended to correlate with the location 
of the defendant company’s headquarters. In both 2017 and 2018, this trend declined, and we saw a general increase in 
litigation filed in California courts. This may be due to the California Supreme Court’s 2017 decision in McGill v. Citibank, 
which held that arbitration provisions foreclosing an individual’s right to seek statutory remedies are unenforceable. 
This makes it possible for plaintiffs nationwide to try and circumvent class action waivers in arbitration agreements by filing 
their class action lawsuits in California.

The increase in filings in the District of Maryland was directly attributable to a data breach involving Marriott International 
(which is headquartered in Maryland)" -> subt

ggplot() +
  geom_dumbbell(
    data = lit, aes(x=`2017`, xend = `2018`, y = district), 
    size = 3, size_x = 5, size_xend = 5,
    colour = r7_cols$gray, colour_x = ft_cols$slate, colour_xend = ft_cols$blue, 
    dot_guide = TRUE, dot_guide_size = 0.25, dot_guide_colour = ft_cols$gray
  ) +
  geom_label(
    data = head(lit, 1) %>% gather(measure, value, -district),
    aes(x=value, y=district, label = measure),
    label.size = 0, hjust = c(1, 0), nudge_x = c(-0.003, 0.003), 
    size = 3, family = font_es_bold, colour = c(r7_cols$slate, r7_cols$blue)
  ) +
  scale_x_percent(
    position = "top", limits = c(0, 0.3), expand = c(0, 0.01), breaks = seq(0, 0.3, 0.05),
  ) +
  labs(
    x = "% Filings", y = NULL,
    title = "Favoured Courts: % of In-Year Class Action Litigation Filings by Court",
    subtitle = subt,
    caption = "Source: (data) 2019 Data Breach Litigation Report\n<https://www.bclplaw.com/images/content/1/6/v6/163774/2019-Litigation-Report.pdf>"
  ) +
  theme_ipsum_es(grid="X")