mpg2=subset(mpg, cyl!=5 & drv %in% c('4','f'))

p=qplot(displ, hwy, data=mpg2)+
  geom_smooth(method='lm', se=F)
p


然后怎么计算和在图中显示拟合效果r，和p-value呢？