> tg <- ddply(kendejidata, kendejidata$用户id, summarize, summoney=sum(kendejidata$订单优惠后金额))
> tg
   .id summoney
1 <NA>        0