my_data
  A B C Qtr Amt
1 a a a  Q1   3
2 b b b  Q1   3
3 a a a  Q2   4
4 d d d  Q1   5
5 d d d  Q2   6
6 e e e  Q1   5

library(tidyverse)
spread(my_data, Qtr, Amt ,fill = 0)

感谢感谢。这个很简洁很干净。
我昨天查询了以下用reshape2包里面的cast函数实现了。但是显得有点啰嗦。