Я использую это простое решение, которое является более надежной модификацией ответа Давида Пассаретти:
iris %>% select(Sepal.Length:Petal.Width) %>%
transmute(sumVar = rowSums(.)) %>% bind_cols(iris, .)
(Но для этого требуется определенный порядок строк, что должно быть хорошо, если вы не работаете возможно, с удаленными наборами данных.)