如何在R中的绘图背景中添加不同的颜色阴影？

install.packages("ggplot2")

library(ggplot2)

# 创建一个简单的数据集
data <- data.frame(x = rnorm(100), y = rnorm(100))

# 创建一个散点图，并在背景中添加渐变颜色的阴影
p <- ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  theme(
    plot.background = element_rect(fill = "lightblue", color = NA),
    panel.background = element_rect(fill = "lightgrey", color = NA),
    panel.grid.major = element_line(color = "white"),
    panel.grid.minor = element_line(color = "white")
  )

# 显示绘图
print(p)

# 创建一个带有渐变颜色填充的散点图
p <- ggplot(data, aes(x = x, y = y, fill = y)) +
  geom_point(shape = 21, size = 3) +
  scale_fill_gradient(low = "blue", high = "red") +
  theme(
    plot.background = element_rect(fill = "lightblue", color = NA),
    panel.background = element_rect(fill = "lightgrey", color = NA),
    panel.grid.major = element_line(color = "white"),
    panel.grid.minor = element_line(color = "white")
  )

# 显示绘图
print(p)