R语言ggplot2用annote添加正方形和圆圈图例

在R语言的ggplot2中，可以使用annotate函数来添加正方形和圆圈图例。

首先，我们需要创建一个ggplot对象，并指定数据集、x轴和y轴变量。然后，使用geom_blank函数创建一个空白的图层，并使用annotate函数在图层上添加正方形和圆圈图例。

下面是一个示例代码，演示如何使用annotate函数添加正方形和圆圈图例：

library(ggplot2)

# 创建一个数据集
data <- data.frame(x = c(1, 2, 3), y = c(1, 2, 3))

# 创建一个ggplot对象
p <- ggplot(data, aes(x, y))

# 添加一个空白图层
p <- p + geom_blank()

# 使用annotate函数添加正方形图例
p <- p + annotate("rect", xmin = 1, xmax = 1.5, ymin = 1, ymax = 1.5, fill = "red")

# 使用annotate函数添加圆圈图例
p <- p + annotate("ellipse", x = 2, y = 2, width = 0.5, height = 0.5, fill = "blue")

# 显示图形
print(p)

在上面的示例代码中，我们首先创建一个数据集data，然后使用ggplot函数创建一个ggplot对象p，并指定数据集和x轴、y轴变量。接下来，我们使用geom_blank函数创建一个空白的图层，并使用annotate函数在图层上添加正方形和圆圈图例。最后，使用print函数显示图形。