Selecting only p-value and r squared value from linear regression result

Question

I have built this linear regression model on top of the 'mtcars' data-set:

lm(mpg~disp+hp,data = mtcars)->mod1

Now, i'd want to see only the r.squared and p-value from the linear regression summary result.

summary(mod1)


Call:

lm(formula = mpg ~ disp + hp, data = mtcars)


Residuals:

    Min      1Q  Median      3Q     Max 

-4.7945 -2.3036 -0.8246  1.8582  6.9363 


Coefficients:

             Estimate Std. Error t value Pr(>|t|)    

(Intercept) 30.735904   1.331566  23.083  < 2e-16 ***

disp        -0.030346   0.007405  -4.098 0.000306 ***

hp          -0.024840   0.013385  -1.856 0.073679 .  

---

Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1


Residual standard error: 3.127 on 29 degrees of freedom

Multiple R-squared:  0.7482, Adjusted R-squared:  0.7309 

F-statistic: 43.09 on 2 and 29 DF,  p-value: 2.062e-09

Answer 1

You can use the $ symbol to select only the r.squared value:

summary(mod1)$r.squared

Similarly, you have to select the 4th column from the 'coefficients':

summary(mod1)$coefficients[,4]