在ggplot2中隐藏部分图例

library(ggplot2)

# 示例数据
data <- data.frame(
  x = 1:10,
  y1 = rnorm(10),
  y2 = rnorm(10)
)

# 创建 ggplot 对象
p <- ggplot(data, aes(x = x)) +
  geom_line(aes(y = y1, color = "Line 1")) +
  geom_line(aes(y = y2, color = "Line 2"))

# 隐藏图例
p + theme(legend.position = "none")

# 示例数据
data <- data.frame(
  x = 1:10,
  y1 = rnorm(10),
  y2 = rnorm(10)
)

# 创建 ggplot 对象
p <- ggplot(data, aes(x = x)) +
  geom_line(aes(y = y1, color = "Line 1")) +
  geom_line(aes(y = y2, color = "Line 2"))

# 只显示 "Line 1" 的图例
p + scale_color_manual(values = c("Line 1" = "black", "Line 2" = NA))

# 示例数据
data <- data.frame(
  x = 1:10,
  y1 = rnorm(10),
  y2 = rnorm(10)
)

# 创建 ggplot 对象
p <- ggplot(data, aes(x = x)) +
  geom_line(aes(y = y1, color = "Line 1")) +
  geom_line(aes(y = y2, color = "Line 2"))

# 隐藏 "Line 2" 的图例
p + guides(color = guide_legend(override.aes = list(fill = NA)))