studio - eliminar filas con valores na en r
Eliminar columnas con valores cero de un marco de datos (3)
Casi lo tienes. Pon estos dos juntos:
SelectVar[, colSums(SelectVar != 0) > 0]
Esto funciona porque las columnas de factores se evalúan como números que son> = 1.
Tengo un data.frame:
SelectVar
a b c d e f g h i j k l ll m n o p q r
1 Dxa8 Dxa8 0 Dxa8 Dxa8 0 Dxa8 Dxa8 0 0 0 0 0 0 0 0 0 Dxc8 0
2 Dxb8 Dxc8 0 Dxe8 Dxi8 0 tneg tpos 0 0 0 0 0 0 0 0 0 Dxi8 0
Me gustaría eliminar las columnas con valores cero en ambas filas del marco de datos, por lo que arroja un marco de datos de la siguiente manera:
SelectVar
a b d e g h q
1 Dxa8 Dxa8 Dxa8 Dxa8 Dxa8 Dxa8 Dxc8
2 Dxb8 Dxc8 Dxe8 Dxi8 tneg tpos Dxi8
He intentado:
SelectVar!=0
que produce un marco de datos True / False, y:
SelectVar[, colSums(abs(SelectVar)) ! == 0]
que produce un error
¿Cómo podría eliminar las columnas con valores cero en cada fila?
Para eliminar cualquiera y todas las columnas que contienen solo ceros, simplemente pase su marco de datos a la siguiente función:
remove_zero_cols <- function(df) {
rem_vec <- NULL
for(i in 1:ncol(df)){
this_sum <- summary(df[,i])
zero_test <- length(which(this_sum == 0))
if(zero_test == 6) {
rem_vec[i] <- names(df)[i]
}
}
features_to_remove <- rem_vec[!is.na(rem_vec)]
rem_ind <- which(names(df) %in% features_to_remove)
df <- df[,-rem_ind]
return(df)
}
Ejemplo:
iris$Sepal.Width <- 0
new_df <- remove_zero_cols(iris)
print(new_df)
Pruebe también
SelectVar[, !apply(SelectVar == 0, 2, all)]
Esto fue tomado de aquí: