如何在R中为单变量密度图添加渐变填充色？

我有包含date和Temperature_anomaly两列的数据，用geom_density()绘制密度图时，想给单密度图添加从蓝色到红色的渐变填充色，但网上的方法大多需要Y值，我只有单个变量Temperature_anomaly。

示例数据：

Month_day; Temperature_anomaly
01-01;   -1.24
01-02;    0.31
01-03;    1.13
01-04;   -0.16

现有代码：

ggplot(data, aes(x = Temperature_anomaly)) + 
   geom_density() 

请问如何基于Temperature_anomaly为该单密度图添加渐变填充色？

要实现单密度图的渐变填充，核心是先提取密度图的计算数据（自动生成Y值），再用填充图层结合颜色映射实现渐变，具体步骤如下：

1. 先用原代码生成密度图，通过ggplot_build()提取底层计算好的x（对应Temperature_anomaly）和y（密度值）数据
2. 用提取的数据重新绘图，将fill映射到x变量，搭配渐变配色

完整代码示例：

library(ggplot2)

# 读取示例数据（注意分隔符是分号）
data <- read.delim(text = "Month_day; Temperature_anomaly
01-01;   -1.24
01-02;    0.31
01-03;    1.13
01-04;   -0.16", sep = ";", strip.white = TRUE)

# 提取密度图计算数据
temp_plot <- ggplot(data, aes(x = Temperature_anomaly)) + geom_density()
density_calc_data <- ggplot_build(temp_plot)$data[[1]]

# 绘制带渐变填充的密度图
ggplot(density_calc_data, aes(x = x, y = y)) +
  geom_area(aes(fill = x), alpha = 0.7) +
  scale_fill_gradient(low = "blue", high = "red") +
  labs(x = "Temperature_anomaly", y = "Density", fill = "Temperature\nAnomaly") +
  theme_minimal()

补充说明 #

• ggplot_build(temp_plot)$data[[1]]会取出密度图计算后的完整数据集，包含我们需要的x和y值
• 如果需要保留密度曲线的轮廓，可以在代码里额外添加geom_line(color = "black", size = 0.5)
• scale_fill_gradient()可以自由调整渐变的首尾颜色，替换成你需要的配色即可

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