Блог

Главная - Вопросы по программированию - Как добавить кривую распределения Пуассона, которая приближается к 3?

Как добавить кривую распределения Пуассона, которая приближается к 3?

#r #plot #poisson

#r #график #poisson

Вопрос:

Я хочу добавить кривую к существующему графику. Эта кривая должна быть кривой распределения Пуассона, которая приближается к среднему значению 3.

Я пробовал этот код points — это вектор с 1000 значениями

 plot(c(1:1000), points,type="l")
abline(h=3)
x = 0:1000
curve(dnorm(x, 3, sqrt(3)), lwd=2, col="red", add=TRUE)

Я получаю график, но без какой-либо кривой.
Я хотел бы видеть кривую, которая приближается к 3.

Комментарии:

1. Распределение Пуассона со средним значением 3 выглядит plot(0:10, dpois(0:10, 3), type = 'b') следующим образом. Вы могли бы добавить его к существующему графику с lines(0:10, dpois(0:10, 3)) помощью . Я не уверен, что это то, чего вы хотите, можете ли вы попытаться объяснить, как кривая «приближается к 3»?

Ответ №1:

вы можете сделать что-то вроде этого:

 plot(0:20, 3 dpois( x=0:20, lambda=3 ), xlim=c(-2,20))
normden <- function(x){3 dnorm(x, mean=3, sd=sqrt(3))}
curve(normden, from=-4, to=20, add=TRUE, col="red")

выполнение этого кода приведет к следующему:

это то, что вы намеревались?

введите описание изображения здесь

Комментарии:

1. Спасибо, но кривая приближается к 0, а не к 3

2. вы хотите, чтобы она была сдвинута с 0-строки на 3-строку? я не уверен, что понимаю, чего именно вы хотите, можете ли вы уточнить

3. Да, точно, я хочу, чтобы она была сдвинута на 3 строки!

4. теперь она со смещением 3, так что ее точно такой же код сдвинут

Метки: