Ответ 1
stat_geom использует аргумент adjust для применения множителя к оптимальной ширине полосы, которую вычисляет ggplot, см. документацию для density(). Пытаться:
ggplot(mtcars,aes(mpg))+geom_density() + stat_density(adjust = 2)
Я собираюсь определить рассчитанную оптимальную ширину полосы - на основе "стандартного отклонения сглаживающего ядра" - вам нужно будет допросить Venables, WN и Ripley, BD (2002) Modern Applied Statistics с S. New York: Springer.