Cómo evitar que la curva de densidad se corte en la trama

Estoy trabajando en una tarea usando R y la curva de densidad ajustada que se superpone en el histograma se corta en su pico.

Ejemplo:

x <- rexp(1000, 0.2)
hist(x, prob = TRUE)
lines(density(x), col = "blue", lty = 3, lwd = 2)

He hecho una búsqueda en Internet para esto, pero no encontré nada para solucionar este problema. He intentado jugar con los márgenes, pero eso no funciona. ¿Me falta algo en mi código?

¡Gracias por tu ayuda!

Respuestas a la pregunta(1)

Su respuesta a la pregunta