Question

因此，我有一个表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))

这是结果图： Normal Distribution Plot for each Tier

现在，我只是使用另一种颜色来指示给定层的曲线。我该如何为图中所示的每个正态分布绘制一条线，而不是为散点图？

如何通过R中的一组点画一条线？

0 个答案: