如何在r的回归图上添加线性模型结果(adj-r平方，斜率和p值) [英] How to add linear model results (adj-r squared, slope and p-value) onto regression plot in r

问题描述

我创建了一个线性模型和一个回归图-但是，我希望将模型结果显示在图上-类似于下图:

Hi I have created a linear model and a regression plot - However, I would like to have the model results on the plot itself - something like the image below:

如何在绘图上显示关键结果?下面是我的情节代码:

How do I show the key results on the plot? Below is my code for the plot:

library(ggplot2)
ggplot(HP_crime15, aes (x = as.numeric(HP_crime15$Theft15), y = 
as.numeric(HP_crime15$X2015))) + geom_point(shape=1) + 
geom_smooth(method=lm) + xlab ("Recorded number of Thefts") + 
ylab("House prices (£)") + ggtitle("Title") 

推荐答案

这里是另一种选择:除了将统计信息添加到标题之外，您还可以在图上添加标签:

Here is another option: instead of adding the statistics to the title, you could add a label to the plot:

library (ggplot2)

fit1 <- lm(Sepal.Length ~ Petal.Width, data = iris)   
ggplot(fit1$model, aes_string(x = names(fit1$model)[2], y = names(fit1$model)[1])) + 
  geom_point() +
  stat_smooth(method = "lm", col = "red") +
  geom_label(aes(x = 0, y = 7.5), hjust = 0, 
             label = paste("Adj R2 = ",signif(summary(fit1)$adj.r.squared, 5),
                                               "\nIntercept =",signif(fit1$coef[[1]],5 ),
                                               " \nSlope =",signif(fit1$coef[[2]], 5),
                                               " \nP =",signif(summary(fit1)$coef[2,4], 5)))

这篇关于如何在r的回归图上添加线性模型结果(adj-r平方，斜率和p值)的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！