Question

找到解决方案。

问题：在R中使用ggplot，我正在创建具有密度曲线的直方图，并希望将一些计算的统计数据添加到绘图中，以便我可以翻阅它们并稍后进行比较。我想在图中添加mean，standard dev，ks.test（）和一些其他变量，最好是在右上角。我正在使用annotate函数来执行此操作但是如何将x和y位置设置为始终位于右上角？

这是我的代码，它将文本放在一个固定的位置，这会抛弃我的情节。

p <- ggplot(err, aes(x = BizTempErrors)) +
geom_histogram(aes(y = ..density..)) +
geom_density(aes(colour = "Kernal"), parse = T) +
stat_function(fun = dnorm, 
              args = list(mean(BizTempErrors), 
                          sd(BizTempErrors)), 
              aes(colour="Normal")) +
annotate("text", x = 500, y = .0011, label = "Stats to be Displayed") +
ggtitle(label = "TITLE")
plot(p)

解决方案：

d.BTE <- density(BizTempErrors)  #find max density point to get location for annotations
maxPointY <- max(d.BTE$y)
maxPointX <- max(BizTempErrors)

将文本描述添加到ggplot2

0 个答案: