r语言随机生成3列数据x1，x2，y，将y~x1，y~x2的两组数据画在同一组散点图上，其中第一组的点用黑色边框，红色填充，第二组用的点用黑色边框，蓝色填充，并分别画出两条拟合曲线，第一条线黑色边框红色填充，第二条线黑色边框蓝色填充

您可以使用以下代码实现您的需求：

# 生成数据
set.seed(123)
x1 <- rnorm(50)
x2 <- runif(50, 0, 10)
y1 <- 2*x1 + rnorm(50)
y2 <- 3*x2 + rnorm(50)

# 绘制散点图和拟合曲线
plot(y1 ~ x1, col = "black", pch = 21, bg = "red", ylim = c(-10, 30), xlab = "x1", ylab = "y")
points(y2 ~ x2, col = "black", pch = 21, bg = "blue")
abline(lm(y1 ~ x1), col = "red", lwd = 2)
abline(lm(y2 ~ x2), col = "blue", lwd = 2)
legend("topleft", legend = c("Group 1", "Group 2"), pch = 21, col = "black", pt.bg = c("red", "blue"))

这段代码会生成两组数据（x1，y1）和（x2，y2），然后使用 `plot()` 函数绘制散点图，其中每组数据的点都用黑色边框和不同颜色的填充表示。接着使用 `abline()` 函数分别画出两条拟合曲线，并设置边框和填充颜色。最后使用 `legend()` 函数添加图例说明。