I have data set consisting of 7 species wet weights and size measurements. Number of observations range between 3 and 18 per species.
Species ID Wet weight(g) Size(mm)
These measurements are visualised in a ggplot scatter plot. I used the following code.
library("ggplot2")
library("reshape2")
library("tidyverse")
p<-ggplot(Wet,aes(x=Size,y=WW,colour=Species))+
geom_point(size=3)+
labs(x="\nDiameter or Length (mm)",y="Wet weight (g)\n")+
theme(axis.title.x=element_text(size=18),
axis.text.x=element_text(size=14,colour="black"),
axis.title.y=element_text(size=18),
axis.text.y=element_text(size=14,colour="black"),
axis.ticks=element_blank(),
legend.position="right",
legend.text=element_text(colour="black",size=14),
legend.title=element_blank())
p
I would like to add exponential regression models for every species and am interested in their equations, correlations coefficients and p-values.
I would appreciate any suggestions on how to add these to my scatter plot.
Thanks so much!!!
Species ID Wet Size (mm) weight(g)
Aequorea 1 195 390
Aequorea 2 225 579
Aequorea 3 224 303
Aurelia 4 235 647
Aurelia 5 170 335
Aurelia 6 155 269
Cyanea 7 370 1499
Cyanea 8 460 5000
Cyanea 9 430 2011
...