geom_density и aes (y = .. density ..) дают разные результаты

Question

Так что я понял, что geom_density и помещение aes(y=..desnity..) в гистограмму делают подобные вещи - нормализуют отображаемые данные. Моя проблема в том, что эти подходы дают разные оси Y для одного и того же набора данных для меня.

С кодом

ggplot(t3.tib.all, aes(Score, fill = Island)) + 
   geom_histogram(aes(y = ..density..), bins=50, position = 'identity', alpha=0.5) +
   labs(title="Task 3", x="Number of Seconds Inside Island
       (1 frame = ~0.2 sec.)", y = "Density") +
   xlim(0,50) +
  ylim(0,0.4)

я получаю следующее:

и с кодом

ggplot(t3.tib.all, aes(Score, fill = Island, colour = Island)) + 
   geom_density(alpha = 0.2, bw = 1) +  
   labs(title="Task 3", x="Number of Seconds Inside Island
       (1 frame = ~0.2 sec.)", y = "Density") +
   xlim(0,50) 

Я получаю

Обратите внимание, что на первом графике ось Y переходит к выше 0,3, в то время как на втором он идет только до 0,15. Также на первом графике красная полоса самая высокая, а на втором графике она намного ниже остальных.

Что я здесь не так делаю? Почему разница?

Любая помощь очень ценится