调整R中列中中间值的大小并进行插值

# 安装并加载akima包
install.packages("akima")
library(akima)

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

# 调整列中间值的大小并进行插值
for (i in 1:ncol(data)) {
  column <- data[, i]
  na_indices <- which(is.na(column))
  
  if (length(na_indices) > 0) {
    # 获取中间值
    middle_value <- median(column, na.rm = TRUE)
    
    # 替换中间值
    column[na_indices] <- middle_value
    
    # 进行插值
    interp_data <- interp(x = seq_along(column),
                          y = column,
                          xo = na_indices,
                          linear = FALSE)
    
    # 更新数据框
    data[, i] <- interp_data$y
  }
}

# 输出结果
print(data)