Como tornar as plotagens ggplot2 mais bonitas?

Eu gerei o seguinte gráfico usando o código R que se segue:

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

Agora eu gostaria de tornar o enredo um pouco mais bonito:

Faça com que o eixo x mostre o comprimento a cada 5000 unidades (em vez de a cada 20000)Adicione valores x no topo dos três picos (aproximadamente 3000.5000 e 35000).

Como eu posso fazer isso?

atualizar em resposta a James:

questionAnswers(2)

yourAnswerToTheQuestion