R语言ggplot2画图后如何在图上添加正方形和圆圈图例

要在ggplot2图上添加正方形和圆圈图例，可以使用geom_point()函数来绘制点，并通过scale_shape_manual()函数来定义图例的形状。

下面是一个示例代码：

library(ggplot2)

# 创建一个数据框
data <- data.frame(
  x = c(1, 2, 3, 4),
  y = c(1, 2, 3, 4),
  shape = c("square", "square", "circle", "circle")
)

# 创建一个ggplot2对象，并绘制散点图
p <- ggplot(data, aes(x, y, shape = shape)) +
  geom_point(size = 3)

# 定义图例的形状
p <- p + scale_shape_manual(values = c(15, 15, 16, 16))

# 显示图形
print(p)

在这个示例中，数据框data包含了x和y坐标以及图例的形状信息。geom_point()函数用于绘制散点图，并通过size参数来设置点的大小。scale_shape_manual()函数用于定义图例的形状，其中values参数指定了正方形和圆圈的形状代码。最后，使用print()函数来显示图形。

运行这段代码后，将会在屏幕上显示一个包含正方形和圆圈图例的散点图。