平均數插補

Question

row imputations using selected columns using rowMeans(Picture)

我想要插補第4列至第8列，而不會干擾其餘的列。 如何使用rowMeans功能在R 中提前致謝。 你可以通過點擊圖片找到圖片。

Answer 1

或許我們可以用na.aggregate

library(zoo) 
df1[4:8] <- lapply(df1[4:8], na.aggregate) 

如果我們需要它基於行，請使用apply與MARGIN = 1

df1[4:8] <- t(apply(df1[4:8], 1, na.aggregate))