r语言将y~x1，y~x2三组数据画在同一组散点图上，其中第一组的点用黑色边框，红色填充，第二组用的点用黑色边框，蓝色填充

可以使用ggplot2包中的geom_point()函数来实现。具体代码如下：

library(ggplot2)

# 创建数据框
df <- data.frame(x1 = rnorm(50), y = rnorm(50))
df$x2 <- rnorm(50, 2, 1)
df$x3 <- rnorm(50, -2, 1)

# 绘制散点图
ggplot(df, aes(x = x1, y = y)) + 
  geom_point(shape = 21, fill = "red", color = "black", size = 3) +
  geom_point(data = df, aes(x = x2, y = y), shape = 21, fill = "blue", color = "black", size = 3) +
  geom_point(data = df, aes(x = x3, y = y), shape = 21, fill = "black", color = "black", size = 3)

解释一下代码：

首先创建了一个包含x1、x2、x3和y四个变量的数据框df，其中x1、x2、x3分别代表三组数据，y是因变量。

然后使用ggplot()函数创建绘图对象，并通过aes()函数指定x和y的映射关系。

接着使用geom_point()函数绘制散点图。第一次调用时只指定了x1和y，同时设置了点的颜色为黑色、填充颜色为红色、边框颜色为黑色、大小为3。第二次和第三次调用分别指定x2和x3，并设置了对应的填充颜色和边框颜色，其他参数与第一次调用相同。

最终得到的图形中，三组数据的散点图被画在同一张图上，第一组用的点用黑色边框，红色填充，第二组用的点用黑色边框，蓝色填充。