R中的交叉表查询

Question

有人会如何更改此数据：

FY      FedNonFed   TotalExpense
2006    Federal     46753094
2007    Federal     43397314
2008    Federal     43962330
2006    Non Federal 74740716
2007    Non Federal 74834857
2008    Non Federal 71051132

到

FY      Federal     Non Federal
2006    46753094    74740716
2007    43397314    74834857
2008    43962330    71051132

我对xtabs（），table（）的尝试并没有那么成功。任何帮助将不胜感激

Answer 1

library(reshape)
cast(FedNonFed, FY ~ FedNonFed)

简单就是这样： - ）

Answer 2

也可以使用tidyr::spread。假设数据框名为dataset：

library(tidyr)
dataset %>% spread(FedNonFed, TotalExpense)