Correlation Graph with regression equation and p value

 

P_2018=ggscatter(data_cotton, x = "bolls", y = "yield",

add = "reg.line", conf.int = FALSE, color="blue",

cor.coef = TRUE, cor.method = "pearson",

xlab = "Number of bolls per plant",

main="a) Boll VS Yield",

ylab = expression("Seed Cotton Yield ( Kg ha"ˆ-1*")"),

xlim=c(0,32),

ylim=c(0,3100))+s.theme+

stat_regline_equation(label.x=10, label.y=2700)+

theme_classic()+

theme.1+

theme.2

P_2018