Rのデータフレームで、指定した複数行の値を合計した結果を示す列を加えたい

Question

>x
groups: x1
     x1    x2    x3    x4
  <dbl> <int> <dbl> <dbl>
1     1     1     2   0.1
2     1     2     2   0.2
3     1     3     2   0.3
4     1     4     2   0.4
5     1     5     2   0.5

上記のようなtibble型のxにおいて、x2, x3, x4の値を合計した列Sumを計算したいと思います。
簡単に済ませるならば、

x %>% mutate(Sum = x2 + x3 + x4

とすればよいのかもしれませんが、実際のデータは30列ほどあり、ひとつひとつうつのはあまり実用的ではありません。
そこで、

x %>%
  ungroup() %>%
  select(-x1) %>%
  rowSums() -> Sum
x %>% add_column(Sum)

としたのですが、非常に煩雑になってしまいます。
上記計算を簡単に実行できるような関数などはあるのでしょうか。

Answer 1

s<- numeric(5)
for(i in c(2,3,4)){
    s<-s+x[[i]]
}
x<-transform(x,Sum=s)

連番なら

for(i in 2:4){

も可

Comments

[aoichi]

ありがとうございます！
Rはfor文あまり使うなと言われたことがあるのですが、今後は意識して使ってみたいと思います