Ist es irgendwie möglich, einen Test über mehrere Variablen gegen dieselbe kategoriale Variable durchzuführen, ohne den Datensatz wie folgt umzugestalten?

data(mtcars)
library(dplyr)
library(tidyr)
j <- mtcars %>% gather(var, val, disp:qsec)
t <- j %>% group_by(var) %>% do(te = t.test(val ~ vs, data = .))

t %>% summarise(p = te$p.value)

Ich habe versucht mit

mtcars%>% summarise_each_ (funs = (t.test (. ~ vs)) $ p.value, vars = disp: qsec)

aber es wird ein Fehler ausgegeben.

Bonus: Wie kannt %>% summarise(p = te$p.value) auch den Namen der Gruppierungsvariablen angeben?