Eliminación de niveles de un factor en la programación R: función droplevels()

La función droplevels() en la programación R se utiliza para eliminar los niveles no utilizados de un factor .

Sintaxis:
# Para niveles de caída de objetos
vectoriales (x, excluir = si (cualquier NA (niveles (x))) NULL más NA, …)

# Para niveles de caída de objetos de marco de datos
(x, excepto, excluir)

Valores de los parámetros:
x representa el objeto del que debe eliminarse el nivel no utilizado
excluir representa los niveles de los factores que deben excluirse incluso si están presentes
excepto representa los índices de las columnas de los que no deben eliminarse los niveles

Ejemplo 1:

# Defining vector
x <- c(1, 3, 4, 8, 1, 5, 4, 4, 5, 6)
  
# Defining factor object for vector
f <- factor(x)
  
# Print factor object
cat("Factor object before deleting value:\n")
print(f)
cat("\n")
  
# Delete value at index 2
f <- f[-2]
  
# Print factor object
cat("Factor object after deleting value:\n")
print(f)
cat("\n")
  
cat("After dropping unused level:\n")
new_f <- droplevels(f)
print(new_f)

Producción:

Factor object before deleting value:
 [1] 1 3 4 8 1 5 4 4 5 6
Levels: 1 3 4 5 6 8

Factor object after deleting value:
[1] 1 4 8 1 5 4 4 5 6
Levels: 1 3 4 5 6 8

After dropping unused level:
[1] 1 4 8 1 5 4 4 5 6
Levels: 1 4 5 6 8

Ejemplo 2:

# Defining columns
x <- factor(c(7, 3, 3, 7, 5, 5, 1))
y <- factor(c(1, 1, 1, 4, 4, 4, 2))
z <- c(1, 5, 3, 2, 9, 4, 7)
  
# Defining data frame
df <- data.frame(x, y, z)
df <- df[1:6, ]
  
# Print structure of data frame
str(df)
cat("\n")
  
# Drop levels from data frame
df_drop <- droplevels(df)
  
# Print structure of new data frame
str(df_drop)

Producción:

'data.frame':   6 obs. of  3 variables:
 $ x: Factor w/ 4 levels "1", "3", "5", "7": 4 2 2 4 3 3
 $ y: Factor w/ 3 levels "1", "2", "4": 1 1 1 3 3 3
 $ z: num  1 5 3 2 9 4
 
 'data.frame':   6 obs. of  3 variables:
 $ x: Factor w/ 3 levels "3", "5", "7": 3 1 1 3 2 2
 $ y: Factor w/ 2 levels "1", "4": 1 1 1 2 2 2
 $ z: num  1 5 3 2 9 4

Publicación traducida automáticamente

Artículo escrito por utkarsh_kumar y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *