任务11:补充缺失值, 为上下的值的平均值
答：在用上下值的平均值来替补缺失值的时候，试了很久，还是不会用上下值平均值来替换。最后无奈只能用整列的平均值来替换（恰好这个数据只有三行，碰到其他数据就不行了）

  1. library(Hmisc)
  2. Medical.Science <- c("clinical medicine", "Nursing", "Basic Medicine", "Pharmacy")
  3. score <- c(1, 2, NA, 4)
  4. grade <- data.frame(Medical.Science, score)
  5. grade$score <- as.numeric(grade$score)
  6. grade$score <- impute(grade$score, mean)

任务12: zoo包学习

  1. zoo包是啥
    1. zoo包是针对于S3架构设计的整理数据的包（S3架构是啥，带有时间序列太复杂了我也不懂，暂略过，感兴趣的童鞋可以自己查一下。这里暂时重点学习的是如何利用这个包里的na.locf()函数补充缺失值 ``` library(zoo) na.locf(grade, na.rm = TRUE)

      na.locf(grade, na.rm = TRUE) Medical.Science score 1 clinical medicine 1 2 Nursing 2 3 Basic Medicine 2 4 Pharmacy 4

na替换为左侧离得最近的值

```

  1. 虽然这里学习了zoo包，但是还有其他很多好用的替换缺失值包，先分享名字，我也在学习这些包中。。。包括：VIM, MICE, missForest，以及上面用到的Hmisc

2021.12.2
I one