如何在R中使用idw()函数预测特定点的值？

install.packages("gstat")
install.packages("sp")
library(gstat)
library(sp)

# 创建一个示例数据框
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(1, 2, 3, 4, 5),
  value = c(10, 20, 30, 40, 50)
)

# 将数据转换为SpatialPointsDataFrame对象
coordinates(data) <- c("x", "y")

# 创建一个空间网格
grid <- SpatialPixelsDataFrame(
  data.frame(
    x = seq(1, 5, by = 0.1),
    y = seq(1, 5, by = 0.1)
  ),
  data = data.frame(value = NA)
)

# 进行反距离加权插值
interpolated <- idw(value ~ 1, data, grid)

# 打印预测结果
print(interpolated)

# 绘制预测结果
plot(interpolated)