R语言中绘制实心概率密度图

> x <- rnorm(100000,0,1)
> density <- density(x)
> plot(density,main='Density Plot for Standard Normal Distribution')
> polygon(density,col='red',border='black')
> #s 以上案例是使用R绘制实心概率分布密度图
> # x是生成的随机正态分布
> # density定义了概率密度值
> density
Call:
density.default(x = x)
Data: x (100000 obs.); Bandwidth 'bw' = 0.08974
x y
Min. :-4.4970 Min. :0.0000006
1st Qu.:-2.2974 1st Qu.:0.0016688
Median :-0.0978 Median :0.0353463
Mean :-0.0978 Mean :0.1135447
3rd Qu.: 2.1018 3rd Qu.:0.2180544
Max. : 4.3015