ggplot爲正態分佈 - 添加數據到圖

Question

我想添加到我的情節一些數據，將方便用戶。我的分佈圖來源於此代碼：

require(ggplot2) 
my_data<-c(70, 71, 75, 78, 78, 79, 80, 81, 84, 85, 87, 87, 90, 91, 95, 95, 96, 96, 97, 98, 98, 100, 101, 102, 102, 102, 102, 104, 104, 104, 107, 107, 109, 110, 110, 110, 111, 112, 113, 113, 114, 115, 118, 118, 118, 120, 124, 131, 137, 137, 139, 145, 158, 160, 162, 165, 169, 177, 179, 180)  
dist <- dnorm(my_data,mean=mean(my_data), sd(my_data)) 
qplot(my_data,dist,geom="line")+xlab("x values")+ylab("Density")+ ggtitle("cool graph Distribution") + geom_line(color="black") 

，其結果是：

是我的目標做的是更多的數據添加到GGPLOT2：

1. 意思是
2. 說我有一個樣本：80.我想繪製直線與圖形相交的x值之間的一條線。
3. 將圖形分成2 sigma（或可能是3）部分，並添加一個區域（下圖中的示例顯示了4個區域：異常低的價格，優惠的價格）。

感謝您的指點！

期望的結果：

Answer 1

您可以添加各種線使用geom_line圖表，我認爲，這只是放置在不同的點要強調在圖表上線的事情（意思是說，等）：

qplot(my_data,dist,geom="line") + 
    xlab("x values") + 
    ylab("Density") + 
    ggtitle("cool graph Distribution") + 
    geom_line(color="black") + 
    geom_line(stat = "hline", yintercept = "mean", colour = "blue") + 
    geom_line(stat = "vline", xintercept = "mean", colour = "red")