r - dcast を使って拡散するには？

Question

tidyr::spread以下の観点から呼び出しを書きたいと思いますreshape2::dcast

stocks <- data.frame(
  time = as.Date('2009-01-01') + 0:9,
  X = rnorm(10, 0, 1),
  Y = rnorm(10, 0, 2),
  Z = rnorm(10, 0, 4)
)
stocksm <- stocks %>% gather(stock, price, -time)

stocksm %>% spread(time, price)

何に渡せばいいのかわからず困っていますfun.aggregate