用列均值替换NA和NaN

Question

我有一个类似于以下的数据帧，同时包含NA和NaN值。

myinput <- data.frame("Date" = c("20010331", "20010331", "20010331", "20010630", "20010630"), "A" = c(3, NA, 5, NaN, 2), "B" = c(4, NA, 7, NaN, 8), "C" = c(6, NA, 5, NaN, 7), "D" = c(1, NA, 3, NaN, 8))

我想用列均值替换Na和NaN值，并在所有列上循环。另外，我想在日期上分开。例如，A列中的NA将是日期为20010331的所有A列值的平均值，而A列中的NaN将是日期为20010630的所有A列值的平均值。

有什么办法吗？很感谢任何形式的帮助。谢谢。

我有一个类似于以下的数据帧，同时包含NA和NaN值。 myinput

Answer 1

使用dplyr：