применить `dplyr::rowwise во всех переменных

У меня есть данные:

df_1 <- data.frame(  x = replicate(4, runif(30, 20, 100)),   y = sample(1:3, 30, replace = TRUE))

Последующая работа:

library(tidyverse)df_1 %>%   select(-y) %>%   rowwise() %>%   mutate(var = sum(c(x.1, x.3)))

Но, следующие функции (для всех переменных) не dooesn работы:

with .:
df_1 %>%   select(-y) %>%   rowwise() %>%   mutate(var = sum(.))
with select_if:
df_1 %>%   select(-y) %>%   rowwise() %>%   mutate(var = sum(select_if(., is.numeric)))

Оба метода возвращают:

Source: local data frame [30 x 5]Groups: <by row># A tibble: 30 x 5     x.1   x.2   x.3   x.4   var   <dbl> <dbl> <dbl> <dbl> <dbl> 1  32.7  42.7  50.1  20.8 7091. 2  75.9  71.3  83.6  77.6 7091. 3  49.6  28.7  97.0  59.7 7091. 4  47.4  96.1  31.9  79.7 7091. 5  54.2  47.1  81.7  41.6 7091. 6  27.9  58.1  97.4  25.9 7091. 7  61.8  78.3  52.6  67.7 7091. 8  85.4  51.3  38.8  82.0 7091. 9  27.9  72.6  68.9  25.2 7091.10  87.2  42.1  27.6  73.9 7091.# ... with 20 more rows
7091

Где это неправильная сумма.

Как регулировка этой функции?