打开文件 setwd(“D:/试验数据/行为学/观察结果/”) library(“openxlsx”) a<-read.xlsx(“采样方法.xlsx”) states<- as.data.frame(a[, c(“x”,“y”)]) 进行线性回归 fit <- lm(x~y, data = states) summary(fit) 绘制散点图 plot(states x , s t a t e s x, states x,s