在ggplot上添加特定的x轴值

Question

我使用ggplot函数绘制这种图形  image

我想添加x轴的特定值，如图所示

这是我的代码：

    quantiles <- quantile(mat,prob = quant)
    x <- as.vector(mat)
    d <- as.data.frame(x=x)
    p <- ggplot(data = d,aes(x=x)) + theme_bw() +
      geom_histogram(aes(y = ..density..), binwidth=0.001,color="black",fill="white") +
      geom_density(aes(x=x, y = ..density..),fill="blue", alpha=0.5, color = 'black')

    x.dens <- density(x)
    df.dens <- data.frame(x = x.dens$x, y = x.dens$y)
    p <- p + geom_area(data = subset(df.dens, x <= quantiles), aes(x=x,y=y),
                       fill = 'green', alpha=0.6)
    print(p)