Trimmed legend when bounds of the rightmost X-axis tick label exceeds the axis length

[alshan]

dat = dict(
    x=[0, 10000],
    y=[0, 0],
    c=['3.50_1', '3.50_2']
)

ggplot(dat) + geom_point(aes("x", "y", color="c")) + \
        theme_classic() + \
        theme(plot_background=element_rect(color="red", size=4), legend_background=element_rect(color="blue", size=4)) + \
        scale_x_continuous(format="09d")