请使用R语言中plot函数与MASS包中的Animals在一页画出四个x轴为body，y轴为brain的图

好的，以下是代码：

library(MASS) # 导入MASS包
data(Animals) # 导入Animals数据集

par(mfrow=c(2,2)) # 将画布分为2行2列，一次性画出四张图

# 第一张图
plot(Animals$body, Animals$brain, xlab="Body", ylab="Brain", main="All Animals", pch=20)

# 第二张图
plot(log(Animals$body), log(Animals$brain), xlab="log(Body)", ylab="log(Brain)", main="All Animals(log-transformed)", pch=20)

# 第三张图
plot(Animals$body[1:17], Animals$brain[1:17], xlab="Body", ylab="Brain", main="Birds and Mammals", pch=20)

# 第四张图
plot(log(Animals$body[1:17]), log(Animals$brain[1:17]), xlab="log(Body)", ylab="log(Brain)", main="Birds and Mammals(log-transformed)", pch=20)

解释一下代码：

首先，我们导入了MASS包，并且使用`data()`函数导入了Animals数据集。

然后，我们使用`par()`函数将画布分为2行2列，一次性画出四张图。

在每张图中，我们使用`plot()`函数画出了body和brain的散点图。其中，第一张图是所有动物（包括鱼、两栖动物、爬行动物、鸟类和哺乳动物）的图，第二张图是对所有动物进行了log变换后的图，第三张图是只显示了鸟类和哺乳动物的图，第四张图是对鸟类和哺乳动物进行了log变换后的图。

注意，在画第二张图和第四张图时，我们对body和brain进行了log变换，这是因为在原始数据中，body和brain的值相差太大，导致散点图很难看清。通过对它们进行log变换，我们可以更清晰地看到它们之间的关系。