Quiero reemplazar apply() (y sus derivados) con una función purrr.

Tengo un data.frame como este:

> df
  V1 V2 V3
1 NA  2  3
2  2 NA  3
3  3  3 NA

Y quiero aplicar dos funciones rowwise: min(x, na.rm = T) y which.min(x) y devolver los resultados como un marco de datos.

Si sé cuántas columnas hay, puedo hacer, p. esta:

pmap_dfr(df, function(V1, V2, V3) {data.frame(min = pmin(V1, V2, V3, na.rm = T),
                                              where = which.min(c(V1, V2, V3)))})

  min where
1   2     2
2   2     1
3   3     1

¿Cómo puedo hacer que pmap() o cualquier otra función purrr tome toda la fila como argumento al igual que apply()?

func <- function(x) {data.frame(min = min(x, na.rm = T), where = which.min(x))}

> Reduce(rbind, apply(df,1, func))
    min where
V2    2     2
V1    2     1
V11   3     1

Probablemente me perdí una característica o algún truco. Gracias por tu ayuda.

r apply purrr
5
Humpelstielzchen 10 may. 2019 a las 11:54

3 respuestas

La mejor respuesta

Su solución funcionará para todas las columnas si usa puntos suspensivos.

pmap_dfr(df, ~data.frame(min = min(..., na.rm = TRUE), where = which.min(c(...)))) 

  min where
1   2     2
2   2     1
3   3     1
3
H 1 10 may. 2019 a las 10:25

No es una solución purrr, sino una línea data.table.

library(data.table)

dt <- fread("row V1 V2 V3
1 NA  2  3
2  2 NA  3
3  3  3 NA")

melt(dt, id.vars = "row")[ , .SD[which.min(value)], by = row]

   row variable value
1:   1       V2     2
2:   2       V1     2
3:   3       V1     3
1
Wimpel 10 may. 2019 a las 09:58

Una posibilidad podría ser:

df %>%
 mutate(min = invoke(pmin, na.rm = TRUE, .),
        where = max.col(!is.na(-.)[, 1:length(.)], ties.method = "first"))

  V1 V2 V3 min where
1 NA  2  3   2     2
2  2 NA  3   2     1
3  3  3 NA   3     1

O si desea mantener solo las últimas dos columnas:

df %>%
 transmute(min = invoke(pmin, na.rm = TRUE, .),
        where = max.col(!is.na(-.)[, 1:length(.)], ties.method = "first"))
2
tmfmnk 10 may. 2019 a las 09:22

Preguntas relacionadas

2 ¿Por qué usar purrr :: map en lugar de lapply?
2 aplicar / mapear una función diferente por fila en un marco de datos con parámetros variables
3 R: purrr: uso de pmap para operaciones en filas, pero esta vez involucra MUCHAS columnas

Nuevas preguntas

2 Secuencia repetida R
2 ¿Cómo agregar puntos "arbitrarios" a una parcela de violín?
2 ¿Cómo puedo calcular el índice de valores en un contexto de datos que ya se han dividido usando LAPPLY dentro de un bucle para el bucle?
2 ¿Cómo funciona toda la función en R usando dos expresiones?
3 Quiero usar dplyr para filtrar un marco de datos si todos los miembros de un grupo determinado están ausentes
2 ¿Cómo elimino los personajes de los artículos en una columna?
2 Cómo resaltar un valor celular particular en color en R Shiny
2 Muestreo aleatorio en R con conjunto de grupos que están dentro de un grupo
2 ¿Cómo reestructurar una tabla en un formato de plantilla específico en R?
3 Combine los valores de las filas duplicadas en una sola condición (en R)
Nuevas preguntas con la etiqueta r >

r

R es un entorno de software y lenguaje de programación de código abierto y gratuito para computación estadística, bioinformática, visualización y computación en general. Proporcione ejemplos mínimos y reproducibles junto con el resultado deseado. Use dput () para los datos y especifique todos los paquetes no base con llamadas a library (). No incruste imágenes para datos o código, use bloques de código con sangría en su lugar. Para preguntas relacionadas con estadísticas, use https://stats.stackexchange.com.

Más sobre r...