Вы можете сделать это немного проще для интерпретации, используя прозрачные цвета.
Давайте сначала сгенерируем некоторые данные:
a <- rnorm(100)
b <- rnorm(100, mean=3)
А теперь построим гистограммы:
hist(a, col=rgb(1,0,0,0.5))
hist(b, col=rgb(0,1,0,0.5), add=T)

Как вы можете видеть, оба теперь несколько видны, но теперь нам нужно было бы вручную отрегулировать ось x, чтобы приспособить оба распределения. И в любом случае, все равно не очень приятно читать / интерпретировать, поэтому я бы предпочел построить две отдельные гистограммы, блокпост или скрипку.