以下是使用R语言中plot函数与MASS包中的Animals在一页画出四个x轴为body,y轴为brain的图的代码:
```R
library(MASS)
data(Animals)
par(mfrow=c(2,2)) #将画布分为2行2列
# 第1个图
plot(Animals$body, Animals$brain, main="Animals", xlab="Body", ylab="Brain")
# 第2个图
plot(log(Animals$body), log(Animals$brain), main="Log Scale", xlab="log Body", ylab="log Brain")
# 第3个图
plot(Animals$body, Animals$brain, main="No Outliers", xlab="Body", ylab="Brain", xlim=c(0, max(Animals$body, na.rm=T)), ylim=c(0, max(Animals$brain, na.rm=T)))
abline(lm(Animals$brain ~ Animals$body))
# 第4个图
plot(Animals$body, Animals$brain, main="Without Bird and Insect", xlab="Body", ylab="Brain", xlim=c(0, max(Animals$body[-c(13,31)], na.rm=T)), ylim=c(0, max(Animals$brain[-c(13,31)], na.rm=T)))
abline(lm(Animals$brain[-c(13,31)] ~ Animals$body[-c(13,31)]))
```
说明:
1. 首先加载MASS包,然后读取Animals数据集。
2. 使用par函数将画布分为2行2列。
3. 对于每个图,使用plot函数绘制散点图,并通过main、xlab和ylab参数指定标题、x轴标签和y轴标签。
4. 在第2个图中,使用log函数对body和brain取对数,并在x轴和y轴上使用log Body和log Brain作为标签。
5. 在第3个图中,使用xlim和ylim参数限制x轴和y轴的范围,并使用abline函数添加拟合直线。
6. 在第4个图中,使用[-c(13,31)]来去除数据集中的鸟类和节肢动物,然后使用与第3个图相同的方法绘制图形。