如何在R中创建内核密度图的网格

# 导入所需的库
library(ggplot2)

# 准备数据
data <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

# 创建网格
grid <- expand.grid(x = seq(0, 10, by = 0.1), y = seq(0, 10, by = 0.1))

# 计算内核密度估计
density_est <- density(data)

# 创建绘图对象
plot <- ggplot() +
  geom_tile(data = grid, aes(x = x, y = y), fill = "white", color = "black") +
  geom_density_2d(data = data.frame(x = density_est$x, y = density_est$y), aes(x = x, y = y), fill = "blue", alpha = 0.5) +
  theme_minimal()

# 显示内核密度图
print(plot)