Estou tentando plotar gráficos combinados para regressões logísticas como a funçãologi.hist.plot mas eu gostaria de fazer isso usandoggplot2 (razões estéticas).

O problema é que apenas um dos histogramas deve ter o scale_y_reverse ().

Existe alguma maneira de especificar isso em um único gráfico (veja o código abaixo) ou sobrepor os dois histogramas usando coordenadas que podem ser passadas para o gráfico anterior?

ggplot(dat) + 
    geom_point(aes(x=ind, y=dep)) + 
    stat_smooth(aes(x=ind, y=dep), method=glm, method.args=list(family="binomial"), se=FALSE) + 
    geom_histogram(data=dat[dat$dep==0,], aes(x=ind)) +
    geom_histogram(data=dat[dat$dep==1,], aes(x=ind)) ## + scale_y_reverse()

Este enredo final é o que tenho tentado alcançar: