Как сделать графики ggplot2 красивее?

Я создал следующий график, используя код R, который следует за ним:

ggplot(lengths, aes(length, fill = library)) + geom_density(alpha = 0.2) + coord_cartesian(xlim = c(0, 60000)) 

Теперь я хотел бы сделать сюжет немного красивее:

Сделайте так, чтобы ось X показала длину каждые 5000 единиц (вместо каждых 20000)Добавьте значения x поверх трех пиков (приблизительно 3000, 5000 и 35000).

Как я могу это сделать?

Обновить в ответ Джеймсу: