2016-08-09 10 views

Antwort

0

Vielleicht können wir na.aggregate

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

verwenden Wenn wir es brauchen, basierend auf Zeilen, verwenden apply mit MARGIN = 1

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