R中β分布的混合

问题描述

我得到了一个函数(混合了 beta 分布):

f(x) = beta(1,6)/3 + beta(3,6)/3 + beta(10,6)/3

我的任务是绘制 f(x) 的密度。

这是我的代码

par(mfrow=c(1,1))

x <- seq(0,1,0.001)

plot(x,dbeta(x,shape1 = 1,shape2 = 6)/3 + dbeta(x,shape1 = 3,shape1 = 10,shape2 = 6)/3,col="blue",lwd=2)

只是想知道这是否是正确的做法?如何使用密度函数来做到这一点?谢谢!

解决方法

你可以在 ggplot2 中这样做:

"$@"

祝你好运!

Beta Mixture