R语言用plot()画出mpg (因变量)对 weight(自变量)的散点图，并试着改变标题、数轴名称，点的形状、颜色(main, xlab, ylab, pch, col) 。

代码如下：

# 导入ggplot2包（需要先安装）
library(ggplot2)

# 导入mpg数据集
data(mpg)

# 用plot()画出散点图
plot(mpg$weight, mpg$mpg)

# 修改标题、数轴名称、点的形状和颜色
title("MPG vs. Weight")
xlabel("Weight")
ylabel("MPG")
points(mpg$weight, mpg$mpg, pch=16, col="blue")

如果想要用ggplot2包画出更美观的散点图，可以使用以下代码：

# 导入ggplot2包（需要先安装）
library(ggplot2)

# 导入mpg数据集
data(mpg)

# 用ggplot2画出散点图
ggplot(mpg, aes(x=weight, y=mpg)) +
  geom_point(shape=21, fill="blue") +
  labs(title="MPG vs. Weight", x="Weight", y="MPG")

其中，`geom_point()`函数用于画出散点图，`shape=21`表示点的形状为实心圆，`fill="blue"`表示点的填充颜色为蓝色。`labs()`函数用于修改标题和数轴名称。