Calcular el mínimo y la mediana de cada fila en R

Problema

Queremos añadir al siguiente data frame dos columnas con el mínimo y la mediana de cada fila.

df <- structure(list(V1 = c(5L, 4L, 7L), V2 = c(8L, 9L, 3L), V3 = c(12L, 
5L, 9L)), .Names = c("V1", "V2", "V3"), class = "data.frame", row.names = c(NA, 
-3L))

 V1 V2 V3
1  5  8 12
2  4  9  5
3  7  3  9

Solución

dplyr

library(dplyr)
# Usando el operador %>%
df %>% 
  rowwise() %>% 
  mutate(min= min(V1, V2, V3), median = median(c(V1, V2, V3)))
# Sin el operador %>%
mutate(rowwise(df), min = min(V1, V2, V3), median = median(c(V1, V2, V3)))

Source: local data frame [3 x 5]
Groups: 

     V1    V2    V3   min median
  (int) (int) (int) (int)  (int)
1     5     8    12     5      8
2     4     9     5     4      5
3     7     3     9     3      7

Paquete base R

df$min <- apply(df, 1, min)
df$median <- apply(df[, 1:3], 1, median)

  V1 V2 V3 min median
1  5  8 12   5      8
2  4  9  5   4      5
3  7  3  9   3      7

Entradas relacionadas

• Aplicar una función a cada columna en R con dplyr

Referencias

• stackoverflow