geom_density2d()绘图优化：移除Alpha图例并修改默认颜色为红色

我来帮你搞定这两个需求，分两步就能轻松解决：

1. 将默认蓝色改为红色 #

要把密度线改成红色，有两种简单的实现方式：

• 直接在图层内指定颜色：不需要映射到美学参数，直接在geom_density2d()里加color = "red"，所有密度线会统一变成红色：

  ggplot(your_dataset, aes(x = x_column, y = y_column)) +
    geom_density2d(color = "red") +
    theme_bw()
  

• 用颜色比例尺固定颜色：如果后续需要调整图例名称或扩展颜色设置，用scale_color_manual()指定红色值：

  ggplot(your_dataset, aes(x = x_column, y = y_column)) +
    geom_density2d(aes(color = "density")) +
    scale_color_manual(values = "red", name = "密度线") + # 可自定义图例名称
    theme_bw()
  

2. 移除Alpha级别的第二个图例 #

如果图中出现了多余的alpha图例，大概率是因为你在aes()里映射了alpha变量（比如用了..level..控制透明度）。解决方法有两种：

• 取消alpha映射（不需要透明效果时）：直接把aes(alpha = ...)从代码里删掉，alpha图例自然会消失。
• 保留透明效果但隐藏图例：如果需要密度线随层级变化透明度，但不想显示alpha图例，用guides()手动关闭：

  ggplot(your_dataset, aes(x = x_column, y = y_column)) +
    geom_density2d(color = "red", aes(alpha = ..level..)) +
    guides(alpha = "none") + # 移除alpha图例
    theme_bw()
  

完整示例代码 #

结合两个需求的完整代码（用模拟数据演示）：

library(ggplot2)

# 生成模拟数据
set.seed(456)
sample_data <- data.frame(
  x = rnorm(1500),
  y = rnorm(1500)
)

# 绘制红色密度线+隐藏alpha图例的图
ggplot(sample_data, aes(x = x, y = y)) +
  geom_density2d(color = "red", aes(alpha = ..level..)) +
  guides(alpha = "none") +
  labs(title = "2D密度图（红色线条，无Alpha图例）") +
  theme_minimal()

内容的提问来源于stack exchange，提问作者Manojit