Среднее вменение выбранных столбцов с помощью rowMeans()

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))