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

在R语言中，要实现您的要求，我们可以使用`ggplot2`包来绘制散点图并添加最佳拟合曲线。下面是一个示例代码，展示了如何为`mtcars`数据集中的指定列对绘制散点图，并且将它们组合到一起：

library(ggplot2)

# 绘制mpg和wt的散点图并添加最佳拟合曲线
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")

# 绘制mpg和disp的散点图并添加最佳拟合曲线
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")

# 绘制cyl和hp的散点图并添加最佳拟合曲线
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")

# 绘制wt和qsec的散点图并添加最佳拟合曲线
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")

# 将四个图形组合成一幅图
library(gridExtra)
grid.arrange(p1, p2, p3, p4, nrow = 2, ncol = 2)

执行这段代码将会生成四个散点图，并将它们按照两行两列的方式组合在一起。在每个散点图中，我们使用了`geom_smooth`函数并指定了`method = "lm"`来添加线性回归的最佳拟合曲线，并设置`se = FALSE`以不显示置信区间。`ggtitle`函数被用来添加图名。

请确保您已经安装了`ggplot2`和`gridExtra`包，如果没有安装，您可以使用`install.packages("ggplot2")`和`install.packages("gridExtra")`来安装它们。