1. Con datos independientes
ggplot() +
geom_histogram(data = diamonds[diamonds$cut !='Premium',], mapping = aes(carat), binwidth = 0.1, fill = "blue") +
geom_histogram(data = diamonds[diamonds$cut =='Premium',], mapping = aes(carat), binwidth = 0.1, fill = "yellow") +
theme_classic()
Cada geom_histogram()
debe tener su propio data
y mapping
, es conveniente que tengan el mismo binwidth
, en algunos casos, puede ser conveniente agregar algo de alpha
para poder ver el solapamiento.

2. Con una sola fuente de datos
Esto es lo ideal, entiendo que has tenido problemas para hacerlo, que los datos tengan distinta longitud no debiera ser un problema, por que la unión debería ser "vertical" y no "horizontal", mientras tengan o selecciones las mismas columnas deberías poder juntar ambas muestras con un rbind
, en caso que logres hacerlo, la gráfica sería así:
ggplot(data = diamonds, mapping = aes(carat, fill = cut =='Premium')) +
geom_histogram(binwidth = 0.1, alpha = 0.5)
Tenemos un solo geom_histogram()
, simplemente hemos "mapeado" una nueva dimensión estetica fill
con la condición de que el diamante sea un corte Premium
o no, mediante: fill = cut =='Premium'
