Hola estoy intentando colocar el valor de las barras de mi gráfica, pero no consigo hacer lo que realmente estoy buscando.
Tengo el siguiente dataframe:
df <- data.frame(
'proposito'= c('coche','coche','casa','casa','moto','moto'),
'pagado' = c('si','no','si','no','si','no'),
'total' = c(50,13,75,19,32,25))
Cuando hago la gráfica obtengo lo siguiente
df %>% ggplot()+
aes(proposito, total, fill=pagado)+
geom_bar(stat = 'identity')+
scale_fill_manual(values=c("olivedrab3","slategray3"))+
theme_minimal()+
coord_flip()+
geom_text(aes(label=paste(total,'/',total)))+
labs(title='Propósito de los créditos',
subtitle='Cumplen o no las condiciones',
y='Propósito',
x='Totales')
Me gustaría tener el geom_text al final de cada barra (después de la zona verde) y de la forma total1/total2, por ejemplo para la barra apilada coche 13/50 la de casa 19/75.
He probado varias opciones pero no lo logro. Muchas gracias de antemano.