R语言多项式回归结果错误

R语言多项式回归结果有问题
代码:

y <- c(xl$有害藻类1含量)
x1 <- c(xl$最大PH值)
x2 <- c(xl$最小含氧量)
x3 <- c(xl$季节)
ccc <- data.frame(x1,x2,y)
lm1 <- lm(y ~ 1 + x1 + x2,
             data = ccc)
summary(lm1)

结果变成这样了

img

有谁知道是为什么吗,求各位帮助!

你把数据和文件发给我