library(tidyverse)
set.seed(406)
df <- tibble(x = runif(3), y = runif(3), z = runif(3))
df %>% rowwise() %>% mutate(m = min(c(x, y, z)))
#> # A tibble: 3 x 4
#> # Rowwise:
#> x y z m
#> <dbl> <dbl> <dbl> <dbl>
#> 1 0.975 0.151 0.312 0.151
#> 2 0.482 0.817 0.850 0.482
#> 3 0.900 0.805 0.995 0.805
df %>% mutate(m = pmin(x, y, z))
#> # A tibble: 3 x 4
#> x y z m
#> <dbl> <dbl> <dbl> <dbl>
#> 1 0.975 0.151 0.312 0.151
#> 2 0.482 0.817 0.850 0.482
#> 3 0.900 0.805 0.995 0.805
df %>% mutate(m = pmap_dbl(list(x, y, z), min))
#> # A tibble: 3 x 4
#> x y z m
#> <dbl> <dbl> <dbl> <dbl>
#> 1 0.975 0.151 0.312 0.151
#> 2 0.482 0.817 0.850 0.482
#> 3 0.900 0.805 0.995 0.805
Created on 2020-02-26 by the reprex package (v0.3.0.9001)