在r中使用plot函数的域

我开始说我对R很陌生，因此这可能是一个非常简单的问题

我想用贝塔分布做一个蒙特卡罗模拟。我有一个网站，一年内每天会收到0到10个可视化效果，我想模拟一下

我的论文的第一步是制作一个图表，显示贝塔分布的形状

要做到这一点，我愿意

x=rbeta(365,1,4,ncp=0)
y=dbeta(x,1,4)
plot(10*x,y,type="l")

这给了我一个丑陋的图表，像这样：

然后我试着去做

x=rbeta(365,1,4,ncp=0)
plot(density(10*x))

在本例中，我获得了具有此缺陷的正确图表：它超出了0侧的域[0,10]：

有人能帮我吗？提前感谢您的帮助

答复部分: 通过使用绘图（密度（10*x），xlim=c（0,10））我得到

---

这也有一个关于域偏移的问题，不仅如此，如果函数移到右边，因为我想给定x1你真的想要一个β分布图，参数为1，4吗

# Points over which we will evaluate Beta PDF
x <- seq(0, 1, 0.05)

# PDF values
y <- dbeta(x, 1, 4, ncp=0)

plot(x*10, y, type="l")

---

绘图（密度（10*x），xlim=c（0,10））

我的朋友，你几乎解决了我所有的问题。你能告诉我如何在y轴上从绝对频率切换到相对频率吗？对于直方图

hist（…，freq=TRUE）

我试过了，但仍然在y轴上显示了绝对频率的值，现在如果我一直问，我很抱歉，但我正在研究如何解决这个问题，不再问了。如何在柱状图中插入表示条形近似值的线？您可以使用密度，就像您在原始问题中所问的那样：在

hist（）之后
do
行（密度（y，从=0到=1））
。也可以计算出直方图中每个箱子的x-y坐标，并将平滑曲线拟合到它，但据我所知，这将更加复杂。
hist(rbeta(2000, 1, 4, ncp=0), breaks=25)