Итак, у меня есть таблица qb, которая содержит столбец, Total_Half_PPR и Tier. С помощью приведенного ниже кода я добавил столбец, содержащий нормальное распределение Total_Half_PPR для каждого уровня
for(tier in unique(qb$Final.Tier)){
qb$Norm[qb$Final.Tier == tier] <- dnorm(qb$Total_Half_PPR[qb$Final.Tier == tier],
mean = mean(qb$Total_Half_PPR[qb$Final.Tier == tier]),
sd = sd(qb$Total_Half_PPR[qb$Final.Tier == tier]))
}
Как только это будет сделано, я нанес на график каждый из нормальных распределений, добавив к ним цвет. (Я создал подмножество, которое содержало только определенные уровни интереса)
subset.data <- subset(qb, Final.Tier %in% c(1,2,3,4))
p <- ggplot(data = subset.data, aes(x = Total_Half_PPR, y = Norm)) +
geom_point(aes(color = Final.Tier))
Вот результирующий сюжет:
График нормального распределения для каждого уровня
Прямо сейчас я просто использую другой цвет для обозначения кривой данного уровня. Как мне получить график для каждой из нормальных распределений, показанных на рисунках, вместо точечной диаграммы?