R 使用ggplot2绘制密度的替代晶格图
我想要一个使用ggplot2的替代绘图，该绘图由以下代码生成：R 使用ggplot2绘制密度的替代晶格图,r,plot,ggplot2,lattice,R,Plot,Ggplot2,Lattice,我想要一个使用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") } ) 库（晶格） xxThanks，但我想在
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")
}
)
库（晶格）
xxThanks，但我想在底部找一个带示例的条。类似于这些图右边的横条，我忽略了x轴上的观察结果。相应地更新了代码并包含了一个插图。这正是我想要的。。。谢谢，CMichaelYou，欢迎你-注意这与昨天在放射状图中单位圆上的观察结果是多么相似。结构相当相似，说明了图形语法的普遍性。此外，您可以快速更改为柱状图而不是密度图：只需将geom_密度替换为geom_柱状图即可。您可以使用专门为此设计的geom_地毯，而不是带有自定义美学的geom_点。
library(ggplot)
x1=seq(x)
data1<-data.frame(x1,x)
m <- ggplot(data1, aes(x = x))
m + geom_density(alpha=.3, fill="black")
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