在一个图形中不显示使用多个geom_point和geom_line函数的图例

library(ggplot2)

# 创建数据集
df <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(1, 4, 9, 16, 25)
)

# 绘制图形
p <- ggplot(df, aes(x, y)) +
  geom_point(color = "red") +
  geom_line(color = "blue")

# 设置颜色和隐藏图例
p + scale_color_manual(values = c("red", "blue"), guide = "none")

library(ggplot2)

# 创建数据集
df <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(1, 4, 9, 16, 25)
)

# 绘制图形
p <- ggplot(df, aes(x, y)) +
  geom_point() +
  geom_line()

# 设置线型和隐藏图例
p + scale_linetype_manual(values = c("dashed", "solid"), guide = "none")