使用R语言绘制在mtcars数据集中，绘制出mpg和wt，mpg和disp，cyl和hp，wt和qsec这四组数据的带最佳拟合曲线的散点图，并加上图名（”Basic Scatter plot of xx v.s. xx”）。此外将这四幅散点图以两行两列的形式组合成一幅图输出。

要使用R语言绘制带有最佳拟合曲线的散点图，并将它们组合成一幅图输出，你可以使用`ggplot2`包中的函数来进行绘图和组合。首先，你需要安装并加载`ggplot2`包。然后，使用`ggplot`函数绘制每个变量对的散点图，并添加`geom_smooth`方法来绘制最佳拟合曲线。最后，使用`gridExtra`包中的`grid.arrange`函数或者`ggpubr`包中的`ggarrange`函数来将这些图表组合在一起。下面是具体的代码示例：

# 安装并加载ggplot2包
if (!require(ggplot2)) install.packages("ggplot2")
library(ggplot2)

# 安装并加载gridExtra包
if (!require(gridExtra)) install.packages("gridExtra")
library(gridExtra)

# 使用mtcars数据集绘制散点图和最佳拟合曲线
p1 <- ggplot(mtcars, aes(x=wt, y=mpg)) + 
  geom_point() + 
  geom_smooth(method="lm", se=FALSE) +
  ggtitle("Basic Scatter plot of mpg v.s. wt")

p2 <- ggplot(mtcars, aes(x=disp, y=mpg)) + 
  geom_point() + 
  geom_smooth(method="lm", se=FALSE) +
  ggtitle("Basic Scatter plot of mpg v.s. disp")

p3 <- ggplot(mtcars, aes(x=cyl, y=hp)) + 
  geom_point() + 
  geom_smooth(method="lm", se=FALSE) +
  ggtitle("Basic Scatter plot of cyl v.s. hp")

p4 <- ggplot(mtcars, aes(x=wt, y=qsec)) + 
  geom_point() + 
  geom_smooth(method="lm", se=FALSE) +
  ggtitle("Basic Scatter plot of wt v.s. qsec")

# 使用grid.arrange函数将散点图组合成一幅图
grid.arrange(p1, p2, p3, p4, nrow=2, ncol=2)

确保你已经安装了上述提到的包，否则需要先运行安装命令。上述代码将会创建四幅带有最佳拟合曲线的散点图，并将它们以两行两列的形式组合在一起输出。