r-如何收集唯一值，并在有条件的其他列中求和

Question

我有很多大约有一百万行的金融交易数据，我希望能够将这些数据压缩到一个新的数据框架中，其中包含一个唯一用户ID列表。然后我希望能够将"；贸易；对于他们的帐户，有一些条件，即如果TransactionTypeId==2&AC_Type==19。我会在excel中使用sumifs，但文件的大小意味着它几乎不可能在我的计算机上运行。

df<- structure(list(UserId = c(1, 1, 1, 1, 2, 
2, 2, 3, 3, 3, 4, 5, 6, 
6, 6, 7, 7, 7, 8, 8, 8, 
8, 8, 9, 9, 9, 10, 11, 12, 
12, 13, 13, 13, 14, 14, 15, 15, 
16, 16, 16), TransactionTypeId = c(14, 1, 1, 70, 
15, 1, 1, 14, 1, 1, 70, 14, 14, 1, 1, 14, 1, 1, 14, 1, 1, 1, 
1, 14, 1, 1, 14, 14, 1, 1, 14, 1, 1, 1, 1, 70, 70, 14, 1, 1), 
AC_Type = c(21, 21, 21, 21, 19, 19, 19, 19, 19, 19, 19, 19, 
19, 19, 19, 21, 21, 21, 19, 19, 19, 19, 19, 19, 19, 19, 20, 
19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20), Trades = c(30, 
30, 0.00067116, 0.00067115, 249, 249, 0.00533033, 48.75, 
48.75, 0.00101298, 0.00533, 24.37, 146.25, 146.25, 0.00309109, 
100.01, 100.01, 0.00233551, 97.5, 90, 0.00189134, 5, 0.00245851, 
234, 234, 0.00500802, 100.01, 48.75, 48.5, 0.0275474, 24, 
24, 0.00051975, 100, 0.00223998, 0.00051975, 0.00205, 9.75, 
8.75, 0.00017811)), row.names = c(NA, -40L), class = c("tbl_df", 
"tbl", "data.frame"))

Answer 1

您可以获取要计数的逻辑条件的sum。

library(dplyr)
df %>%
group_by(UserId) %>%
summarise(count = sum(Trades[TransactionTypeId == 2 & AC_Type== 19]))

Answer 2

不太确定您想要什么。。。

libary(dplyr)
df %>%
group_by(UserId) %>%
filter(TransactionTypeId == 1 & AC_Type == 19) %>%
summarise(sum = sum(Trades))
# A tibble: 6 x 2
UserId   sum
<dbl> <dbl>
1      2 249. 
2      3  48.8
3      6 146. 
4      8  95.0
5      9 234. 
6     12  48.5

在这里，首先是group_byUserId，然后是filter那些满足条件的行(注意：我已经将2更改为1，因为样本数据中没有任何2(，最后是summarise，将Trades中的值相加。

Answer 3

使用data.table

library(data.table)
setDT(df)[, .(count = sum(Trades[TransactionTypeId == 2 & 
AC_Type== 19], na.rm = TRUE)), UserId]