如何在ggplot中显示没有数据框的图例？

library(ggplot2)

# 创建一个空的数据框
legend_data <- data.frame(label = character(), color = character(), stringsAsFactors = FALSE)

# 创建一个没有数据的图例
ggplot(data = legend_data, aes(x = NA)) +
  # 添加一个点图层，并设置show.legend参数为FALSE
  geom_point(aes(color = "Point"), show.legend = FALSE) +
  # 添加一个线图层，并设置show.legend参数为FALSE
  geom_line(aes(color = "Line"), show.legend = FALSE) +
  # 手动设置颜色图例项的标签和颜色
  scale_color_manual(values = c("Point" = "red", "Line" = "blue")) +
  # 移除x轴和y轴标签
  theme(axis.title.x = element_blank(), axis.title.y = element_blank())