如何使用r识别配对事务

我有一个像下面这样的数据框

AccountNo<-c(11223344,11223344,11223344,1133399,1133399,127788,127788)
transactiondesc<-c("BUY","BUY","SELL","SELL","SELL","BUY","BUY")

---

AccountNo使用tidyverse的一个选项：

库（dplyr）
dat%>%
分组人（账号）%>%
变异（BuySell=all（在%transactiondesc中的%c（“买入”、“卖出”）））））%%>%
解组（）
##tibble:7 x 3
#账户无交易说明买卖
#                     
#11223344购买真实
#2 11223344购买真实
#3 11223344真实出售
#4 1133399出售虚假
#51133399出售虚假文件
#6 127788购买假
#7127788买假货

或基准R：

agg使用tidyverse的一个选项：

库（dplyr）
dat%>%
分组人（账号）%>%
变异（BuySell=all（在%transactiondesc中的%c（“买入”、“卖出”）））））%%>%
解组（）
##tibble:7 x 3
#账户无交易说明买卖
#                     
#11223344购买真实
#2 11223344购买真实
#3 11223344真实出售
#4 1133399出售虚假
#51133399出售虚假文件
#6 127788购买假
#7127788买假货

或基准R：

agg完美，很管用。一旦它让我变得完美，我就会接受它。只要它允许我就接受
AccountNo<-c(11223344,11223344,11223344,1133399,1133399,127788,127788)
transactiondesc<-c("BUY","BUY","SELL","SELL","SELL","BUY","BUY")
TRUE/FALSE<-c("TRUE","TRUE","TRUE","FALSE","FALSE","FALSE","FALSE")

Testing<-Combined %>%
  group_by(AccountNo)%>%
  mutate(BUY = case_when(transactiondesc == 'BUY' ~ 1,
                                   TRUE ~ 0))%>%
mutate(BUY = case_when(transactiondesc == 'SELL' ~ 1,
                                   TRUE ~ 0))