Devolver el nombre de columna del valor más grande para cada fila en R DataFrame

En este artículo, discutiremos cómo devolver los nombres de columna del valor más grande para cada fila en DataFrame en el lenguaje de programación R.

Ejemplo:

  columna1 columna2 columna3 columna máxima
Fila1 2 0 0 Columna 1, porque el valor de la Columna 2 y el valor de la Columna 3 son menores que la Columna 1
Fila2 4 3 5 Columna 3, porque el valor de la Columna 2 y el valor de la Columna 1 son menores que la Columna 3
Fila3 10 6 6 Columna 1, porque el valor de la Columna 2 y el valor de la Columna 3 son menores que la Columna 1
Fila4 9 5 4 Columna 1, porque el valor de la Columna 2 y el valor de la Columna 3 son menores que la Columna 1
Fila5 7 9 3 Column2, porque el valor de la columna 1 y el valor de la columna 3 es menor que la columna 2

Así que para esta implementación usaremos las funciones colnames() y max.col()

Sintaxis:

colnames(marco de datos)[max.col(marco de datos)]

Aquí, 

  • colnames() se usa para obtener los nombres de las columnas
  • max.col() se usa para devolver el nombre de columna máximo del marco de datos

Ejemplo: programa R para obtener el nombre de columna más grande en todas las filas

R

# create  a dataframe with 3 columns and 3 rows
data = data.frame(subject1=c(91, 62, 93),
                  subject2=c(98, 79, 70),
                  subject3=c(100, 78, 98))
  
  
# get the largest column name in each row
print(colnames(data)[max.col(data)])

Producción:

[1] "subject3" "subject2" "subject3"

Ejemplo: programa R para obtener el nombre de columna más grande en todas las filas

R

# create  a dataframe with 4 columns and 3 rows
data = data.frame(subject1=c(91, 62, 93, 56, 78),
                  subject2=c(98, 79, 70, 56, 78),
                  subject3=c(100, 78, 98, 56, 71))
  
# get the largest column name in each row
print(colnames(data)[max.col(data)])

Producción:

[1] "subject3" "subject1" "subject3" "subject1" "subject2"

Publicación traducida automáticamente

Artículo escrito por manojkumarreddymallidi 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 *