使用ggplot2作为密度的替代格子图

Question

我希望使用ggplot2替代以下代码生成的图：

library(lattice)
x<-rnorm(1000)

plot.new()
densityplot(x, main="Density",ylab="",
   panel=function(x, ...){
     panel.densityplot(x,col="black", ...)
     panel.abline(v=.5,col="gray")
   }
)

我需要在图底部的样本（如这些图enter link description here右侧的条形图）。我刚刚发现了一些类似于：

的情节

library(ggplot)

x1=seq(x)
data1<-data.frame(x1,x)
m <- ggplot(data1, aes(x = x))
m + geom_density(alpha=.3, fill="black")

Answer 1

x<-rnorm(1000)
x<-as.data.frame(x)

require(ggplot2)

g <- ggplot(x,aes(x=x))
g <- g + geom_density()
g <- g + geom_vline(xintercept = .5)
g <- g + geom_point(aes(x=x,y=0),shape=1,size=5)
g <- g + theme_bw()
g

更新以包含OP的注释 - 注意y = 1的geom_point将如何在轴上创建样本。

这将是这样的：