gaps-in-data - 如何用R中的线性值填充空白单元格？

Question

我正在尝试使用 R 填充空白值，就像使用 excel 填充具有线性值的系列中的空白单元格一样。我试图让 R 根据缺失值上方和下方的 med_age 以线性方式填写 1940 年至 1950 年、1950 年和 1960 年之间日期的 med_age。

obs = seq(1,79,1)
date = (seq(1940,2018,1))
med_age_data = data.frame(obs, date)


med_age_data$med_age <- replace(med_age_data$med_age, med_age_data$date == "1940", "29")
med_age_data$med_age <- replace(med_age_data$med_age, med_age_data$date == "1950", "30.2")
med_age_data$med_age <- replace(med_age_data$med_age, med_age_data$date == "1960", "29.5")
med_age_data$med_age <- replace(med_age_data$med_age, med_age_data$date == "1970", "30")
med_age_data$med_age <- replace(med_age_data$med_age, med_age_data$date == "1980", "30")
med_age_data$med_age <- replace(med_age_data$med_age, med_age_data$date == "1990", "32.9")
med_age_data$med_age <- replace(med_age_data$med_age, med_age_data$date == "2000", "35.3")
med_age_data$med_age <- replace(med_age_data$med_age, med_age_data$date == "2010", "37.2")