[R] How to add "slope" in the scatter plot

[Chris Evans]

[Damn, forgot default reply-to is to the last poster: sorry Rui.] 

That's taught me some fun stuff but I wonder if the first "formula = formula" is correct. 
It throws an error for me and I think the code works when I comment it out and it looks 
to me from ?geom_smooth that it is optional here (and defaults to NULL). 

Very best Rui and all, 

Chris 

----- Original Message ----- 
> From: "Rui Barradas" <ruipbarradas using sapo.pt> 
> To: "Marna Wagley" <marna.wagley using gmail.com>, "r-help mailing list" <r-help using r-project.org> 
> Sent: Friday, 11 February, 2022 16:16:09 
> Subject: Re: [R] How to add "slope" in the scatter plot 

> Hello, 
> 
> If instead of ..coef.. you use ..eq.label.. you'll have the equation. 
> 
> 
> library(ggplot2) 
> library(ggpmisc) 
> 
> ggplot(daT, aes(x= x, y=y, group=1)) + 
> geom_point(size=0, alpha=0.3, colour="pink") + 
> geom_smooth( 
> method = "lm", 
> formula = formula, se = TRUE, 
> linetype="dashed", 
> size = 2) + 
> stat_poly_eq( 
> aes(label = paste(..eq.label.., ..rr.label.., ..p.value.label.., 
> sep = "*`,`~~")), 
> formula = y ~ x, 
> parse = TRUE, 
> label.x.npc = "right", 
> vstep = 0.05, 
> size = 5) 
> 
> 
> Hope this helps, 
> 
> Rui Barradas 
> 
> 
> 
> Às 05:25 de 11/02/2022, Marna Wagley escreveu: 
>> Hi R users, 
>> I was trying to add slope, R2 and p value in the scatter plot, but I was 
>> able to add only r2 and p value but not slope in the example data using the 
>> following code. Would you mind checking the code? 
>> 
>> daT<-structure(list(x = c(59.9, 96.4, 91.2, 51.4, 11.8, 38.3, 65, 
>> 38.3, 35.6, 48.2, 15, 24.6, 60.9), y = c(77.9, 51.8, 53.8, 1.8, 
>> 84.7, 49.6, 21.2, 39.5, 22.7, 71, 16.5, 85.8, 10.7)), 
>> row.names = c(NA,-13L), class = "data.frame") 
>> 
>> formula <- y ~ poly(x, 1, raw = TRUE) 
>> ggplot(daT, aes(x= x, y=y, group=1))+ 
>> geom_point(size=0, alpha=0.3, colour="pink")+geom_smooth(method = 
>> "lm",linetype="dashed", 
>> formula = formula, se = T, size = 2)+stat_poly_eq(formula = y ~ x, 
>> aes(label = paste(..coef.., ..rr.label..,..p.value.label.., sep = "*`,`~")), 
>> parse = TRUE,label.x.npc = "right", vstep = 0.05, size = 5) 
>> 
>> thanks, 
>> MW 
>> 
>> [[alternative HTML version deleted]] 
>> 
>> ______________________________________________ 
>> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see 
>> https://stat.ethz.ch/mailman/listinfo/r-help 
>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html 
>> and provide commented, minimal, self-contained, reproducible code. 


-- 
Chris Evans (he/him) <chris using psyctc.org> 
Visiting Professor, UDLA, Quito, Ecuador & Honorary Professor, University of Roehampton, London, UK. 
Work web site: https://www.psyctc.org/psyctc/ 
CORE site: https://www.coresystemtrust.org.uk/ 
Personal site: https://www.psyctc.org/pelerinage2016/ 
OMbook: https://ombook.psyctc.org/book/ 

	[[alternative HTML version deleted]]