install.packages("ggpubr")
library("ggpubr")
x<-c(0.14990444,0.14352947,0.18572451,0.22692724,0.32947406,0.39478415,0.43702197,0.44205266,0.45779166,0.4772302,0.4990459,0.5148496,0.54387033,0.5666838,0.61728454,0.6657855,0.72059345) # ants in fish diet
y<-c(0.074910976,0.6254242,0.3017297,0.24208963,0.14281006,1.0448253,0.62397754,1.1371646,1.2069718,0.8333741,1.0302496,0.95308137,0.70407337,0.62443894,1.1078949,0.39062706,1.2676938) # ornamentation of food dummy
g<-as.data.frame(cbind(x,y))
ggscatter(g,x="x",y="y",xlab="ants in diet",ylab="similarity",add="reg.line", conf.int=TRUE,cor.coef=TRUE,cor.method=c("spearman"))


cor.test(g[,1], g[,2], method = c("spearman"))