只有两个变量，做相关性分析，先来个一元线性回归吧

因为未处理的x,y相关性不显著，于是用了ln(1+x)函数做了个处理（发现大家喜欢用ln,log,lg,指数函数做处理），处理完以后貌似就显著了。。虽然R方也比较小

model <- lm(y1~1+x1)
summary(model)
plot(x1,y1,main=" ",xlab="ln(H+1)",ylab="ln(G+1)",cex.main=1)
abline(model,col="orange",lwd=3)

Ln(y+1)=0.31299+0.27246Ln(x+1) R2=0.1138; F=30.7;P=0.0000