Автоматическая метка имени столбца с отливом

При использовании reshape ::cast есть ли способ установить имя результирующего столбца?

Пример:

library(reshape)
data(mtcars)
cast(mtcars, cyl + hp ~.,mean)

   cyl  hp (all)
1    4  52     2
2    4  62     2
3    4  65     1
4    4  66     1
5    4  91     2

Вместо (all)я хотел бы иметь возможность установить имя в вызове для приведения. Это возможно?

Я знаю, я знаю, это как будто набирать colnames(x)[3] <- "Foo"слишком сложно, но это отнимает много времени, если вам приходится делать это часто!