在R中创建双透视表

Question

美好的一天，

我有以下详细数据：

这是详细数据：

A   B   C   D   E   F   G   H   I   J   K   L   M   N   O
0   0   0   0   0    -      0   0   310318  310318  310318              
1   66  1   UGX 0   -5,999,000  0   2   0   81  101010101   Cash in Vault   45901   10101010145901  10101010145901UGX
2   66  5   UGX 0    26,962,000     0   2   0   81  101010101   Cash in Vault   45901   10101010145901  10101010145901UGX
3   66  9   UGX 0    70,338,000     0   2   0   81  101010101   Cash in Vault   45901   10101010145901  10101010145901UGX
3   66  11  USD 0    20,100,000     0   1   0   81  101010101   Cash in Vault   45901   10101010145901  10101010145901USD
4   66  21  UGX 0    212,185,700    0   2   0   81  101010101   Cash in Vault   45901   10101010145901  10101010145901UGX
5   66  22  UGX 0   -127,000    0   2   0   81  101010101   Cash in Vault   45901   10101010145901  10101010145901UGX

我想从中创建一个如下所示的摘要：

Filter D=UGX 

Row  Sum of F 
1    3,313,538,054.51 
2    658,423,934,728.79 
4    145,735,578,963.90 
5    247,847,252,882.61 

我已经尝试了以下代码，我得到了'重要错误'

        DetailedReport <- read.csv("Reg_detailed_data.csv", header = TRUE)
        class(DetailedReport)
        library(vcd)
        library(tables)

        tabular(D*(B+1)+1~(sum=F), data=DetailedReport)

请协助。

提前谢谢