R dplyr使用不同的最小和最大值为每个组执行插值

library(dplyr)

# 创建一个示例数据集
data <- data.frame(
  group = rep(letters[1:3], each = 5),
  value = c(1, 3, NA, 7, 9, 2, 4, NA, 8, 10, 3, 5, NA, 9, 11)
)

# 使用 dplyr 进行插值
result <- data %>%
  group_by(group) %>%
  mutate(
    interpolated_value = case_when(
      is.na(value) ~ lag(value) + (lead(value) - lag(value)) / 2,
      TRUE ~ value
    )
  ) %>%
  ungroup()

print(result)

# A tibble: 15 x 3
   group value interpolated_value
   <fct> <dbl>               <dbl>
 1 a         1                1    
 2 a         3                3    
 3 a        NA                5    
 4 a         7                7    
 5 a         9                9    
 6 b         2                2    
 7 b         4                4    
 8 b        NA                6    
 9 b         8                8    
10 b        10               10    
11 c         3                3    
12 c         5                5    
13 c        NA                7    
14 c         9                9    
15 c        11               11