把数据在xlsx表格文件中整理好之后如下：

按照格式设置公式为

gx.rf <- randomForest(2000 ~ .,data = d, importance = TRUE, ntree = 20)

gx.lm <- lm(2000~high+gdp2010+erqi+water,data = d)

程序报错：Error in terms.formula(formula, data = data) : 模型公式里有错误的项

经检查，原因为xlsx导入后，第一列会加一个大写的X

改为：

gx.rf <- randomForest(X2000 ~ .,data = d, importance = TRUE, ntree = 20)

gx.lm <- lm(X2000~high+gdp2010+erqi+water,data = d)

问题解决！