突然変異で `dplyr`選択ヘルパー関数を使用する方法はありますか？

Question

たとえば、「Q3」で始まるすべての列の合計を取得するデータフレームがありますが、それぞれを入力することができますが、このようなことを行うことができれば嬉しいです：

#Example data 
test <- structure(list(UserID = c("53017366", "53017366"), Q3_1 = c(3L, 
3L), Q3_2 = c(2L, 2L), Q3_3 = c(3L, 3L), Q3_4 = c(NA, 5L)), class = "data.frame", row.names = c(NA, -2L), .Names = c("UserID", "Q3_1", "Q3_2", "Q3_3", "Q3_4")) 

#what I'd like to see, but doesn't work 
test %>% mutate(total = sum(starts_with("Q3"), na.rm = TRUE)) 

#What I'd like to end up with: 
    UserID Q3_1 Q3_2 Q3_3 Q3_4 total 
1 53017366 3 2 3 NA  8 
2 53017366 3 2 3 5 13 

1つのオプションは、hereとhereの場合、データに新しい選択列全体を置き、rowwise関数（rowSumsなど）を使用する必要があります。

Answer 1

私たちは、このケースではrowSums

test %>% 
    mutate(total = rowSums(.[grep("Q3", names(.))], na.rm =TRUE)) 
# UserID Q3_1 Q3_2 Q3_3 Q3_4 total 
#1 53017366 3 2 3 NA  8 
#2 53017366 3 2 3 5 13 

Answer 2

を使用することができますが、janitor::add_totals_col使用することができます：ここのmutateでselectヘルパーを使用する必要についてのあなたのより深い質問に

library(janitor) 
test %>% 
    add_totals_col() 
#>  UserID Q3_1 Q3_2 Q3_3 Q3_4 Total 
#> 1 53017366 3 2 3 NA  8 
#> 2 53017366 3 2 3 5 13 

を、この必要性は、基礎となることを示すことができますtidy data構造の欠如。この場合、列見出しに値があります。変数がquarterのようにもっと整頓されたフォーマットでは、group_byとsummariseを使って上品に行うことができます。