mutate and rowSums exclude columns

Question

Similar to: mutate rowSums exclude one column but in my case, I really want to be able to use select to remove a specific column or set of columns

I\'m

Answer 1

I'm only just learning dplyr, so perhaps it is because of version upgrades, but this does now work:

d %>% mutate(Total=rowSums(select(d,-Epsilon, -Alpha)))

These days, I usually see folks use the dot notation:

d %>% mutate(Total=rowSums(select(.,-Epsilon, -Alpha)))

A slightly more manageable example:

df2 = data.frame(A=sample(0:20,10), B=sample(0:20, 10), C=sample(0:20,10), D=LETTERS[1:10])
df2
    A  B  C D
1  19  0  9 A
2   6 10 14 B
3  13 20  6 C
4  20  4 15 D
5   9 14  8 E
6  11  1 18 F
7   4 15 13 G
8  17  5  0 H
9  16  3 16 I
10  2  6  1 J
df2 %>% mutate(total=rowSums(select(.,-D)))
    A  B  C D total
1  19  0  9 A    28
2   6 10 14 B    30
3  13 20  6 C    39
4  20  4 15 D    39
5   9 14  8 E    31
6  11  1 18 F    30
7   4 15 13 G    32
8  17  5  0 H    22
9  16  3 16 I    35
10  2  6  1 J     9

NOTE:
The question you linked to has an updated answer that shows yet another new method that demonstrates some new dplyr features:

df2 %>% mutate(total=rowSums(select_if(., is.numeric)))
    A  B  C D total
1  19  0  9 A    28
2   6 10 14 B    30
3  13 20  6 C    39
4  20  4 15 D    39
5   9 14  8 E    31
6  11  1 18 F    30
7   4 15 13 G    32
8  17  5  0 H    22
9  16  3 16 I    35
10  2  6  1 J     9

Answer 2

@akrun provided already a relevant link about this problem. As about dplyr solution, I would actually use do:

d %>%
  do({
    .$Total <- rowSums(select(., -Epsilon, -Alpha))
    .
  })