r语言用plot函数画N(0,1), t(20), t(10), t(5), t(2).
时间: 2023-05-24 22:06:40 浏览: 46
```
# 生成数据
x <- seq(-3, 3, length.out = 1000)
y1 <- dnorm(x)
y2 <- dt(x, df = 20)
y3 <- dt(x, df = 10)
y4 <- dt(x, df = 5)
y5 <- dt(x, df = 2)
# 画图
plot(x, y1, type="l", col="blue", ylim=c(0,0.4), ylab="")
lines(x, y2, type="l", col="red")
lines(x, y3, type="l", col="purple")
lines(x, y4, type="l", col="orange")
lines(x, y5, type="l", col="green")
# 添加图例
legend("topright", legend=c("N(0,1)", "t(20)", "t(10)", "t(5)", "t(2)"),
lty=1, col=c("blue", "red", "purple", "orange", "green"))
```
相关问题
用r语言使用plot画一个螺旋线的动态图 # 螺旋线方程: # x = tcos(ct) # c为某个实数 # y = tsin(ct)
以下是用 R 语言绘制螺旋线动态图的代码:
```R
# 定义参数
c <- 0.1 # 实数c
t_max <- 100 # 时间范围
dt <- 0.1 # 时间步长
# 创建空白画布
plot(0, 0, type="n", xlim=c(-50, 50), ylim=c(-50, 50), xlab="", ylab="")
# 绘制螺旋线
for (t in seq(0, t_max, by=dt)) {
x <- t * cos(c * t)
y <- t * sin(c * t)
points(x, y, pch=19, col="red")
Sys.sleep(0.01) # 控制绘图速度
}
```
这段代码将创建一个空白画布,并在循环中逐步绘制螺旋线。`seq()` 函数用于生成时间序列,`Sys.sleep()` 函数用于控制绘图速度。你可以根据需要调整参数来改变螺旋线的形状和动态效果。
R语言画出二项分布X~B(n,0.2)的概率分布图,其中n取5,10,30,100,并与具有相同均值和方差的正态概率密度函数作比较
以下是代码和图形:
```R
# 设置参数
n <- c(5, 10, 30, 100)
p <- 0.2
# 生成二项分布X~B(n,0.2)的概率分布图
par(mfrow=c(2,2))
for(i in 1:length(n)){
x <- 0:n[i]
y <- dbinom(x, n[i], p)
plot(x, y, type="h", lwd=2, main=paste("n=",n[i]), xlab="x", ylab="P(X=x)")
# 添加正态概率密度函数
mu <- n[i]*p
sigma <- sqrt(n[i]*p*(1-p))
x.norm <- seq(mu-3*sigma, mu+3*sigma, length.out=100)
y.norm <- dnorm(x.norm, mu, sigma)
lines(x.norm, y.norm, col="red", lwd=2)
legend("topright", legend=c("Binomial","Normal"), col=c("black","red"), lwd=2, bty="n")
}
```
![二项分布和正态分布比较](https://img-blog.csdn.net/20180408122501632?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvZmx5aW5n/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/q/70)
从图中可以看出,当n逐渐增大时,二项分布逐渐接近正态分布。当n=100时,二项分布已经非常接近正态分布。这是由于中心极限定理的影响。
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)