aes(y = ecdf , color = set, linetype = set), direction = "mid" ) + geom_label( aes(color = set, y = ecdf), label = "Snecko can play 4 or more\ncards in 60% of hands", data = . %>% filter(set == "Snecko Eye", cards == 4), y = .65, nudge_x = -.25, hjus...