breaks = [2.5, 5, 10]
ggplot() + \
geom_band(aes(xmin="start", xmax="end", fill="party"), data=presidential_df, \
size=0, alpha=.4) + \
geom_label(aes("start", label="name", color="party"),
data=presidential_df,
y=4000, alpha=0.6,
angle=90,
vjust=1, show_legend=False) + \
geom_line(aes("date", "unemploy"), data=economics_df) + \
scale_y_continuous("Unemployment (x\(10^3\))", trans='log10', \
breaks=[b*10**3 for b in breaks], labels=[str(b) for b in breaks]) + \
scale_fill_discrete(name="") + \
coord_cartesian(xlim=[get_dt(1966), get_dt(2016)]) + \
xlab("Year") + \
guides(fill=guide_legend(override_aes={'alpha': 0.4, 'color': 'paper'})) + \
ggsize(1000, 400) + \
theme(legend_position='top')