Добавить линию dnorm в гистограмму

Question

Я следую некоторым классам в DataCamp по R, и иногда, когда я копирую код из datacamp в R-studio, у меня возникают проблемы, но обычно я нахожу ответ здесь или вообще онлайн. Однако на этот раз я не могу понять, в чем заключается ошибка или как ее исправить. Когда я запускаю следующий код в R-studio, чтобы добавить строку в гистограмму, я получаю слишком много строк вместо одной строки, полученной в Datacamp. Это код:

library(qrmdata)

# Load DJ index
data("DJ")

DJX <- diff(log(DJ))["2008/2009"]
djx <- unclass(DJX)

# Calculate average and standard deviation of djx
mu <- mean(djx)
sigma <- sd(djx)

# Plot histogram of djx
hist(djx, nclass = 20, probability = TRUE)

# Add the normal density as a red line to histogram
lines(djx, dnorm(djx, mean = mu, sd = sigma), col = "red")

Вот как это должно быть согласно Datacamp

И это то, что я получаю, когда запускаю код в R-studio

Кто-нибудь может сказать мне, какую ошибку я совершаю?

Answer 1

Гистограмма показывает, что ваши данные уже отсортированы, тогда как lines - нет. Поэтому сначала нужно отсортировать данные.

lines(sort(djx), dnorm(sort(djx), mean=mu, sd=sigma), col="red")