yanlinlin82 试试这个: lm(paste("y", paste("x", 1:50, sep = "", collapse = " + "), sep = " ~ "), data = mydata)