R，闪亮 - 使用过滤器创建交叉表计算特定值

Question

我在SSMS中有一个表，我正在查询它以尝试在R中生成一个交叉表，Shiny。这是我的示例数据：

HouseNum   SwitchNum   Date         Flipped
1          123         2/26/2019    U
1          123         2/26/2019    D
1          123         2/26/2019    U
1          123         2/26/2019    D
1          123         2/26/2019    U
1          456         2/26/2019    U
1          456         2/26/2019    D
1          456         3/1/2019     U
1          789         3/6/2019     U
1          789         3/6/2019     D
1          123         3/8/2019     U
1          123         3/8/2019     D
1          123         3/8/2019     U
1          123         3/8/2019     D
2          1122        3/8/2019     U
2          1122        3/8/2019     D
2          1122        3/8/2019     U
2          3344        3/9/2019     U
2          3344        3/9/2019     D
2          3344        3/10/2019    U
2          3344        3/10/2019    D

我们有带电灯开关的房子。我们记录它们何时向上翻转(U(和向下翻转(D(。我的目标是在R中生成一个Crosstab，它将HouseNum和SwitchNum分组，并计算每个日期开关的上升和下降次数。它最终会显示这一点：

HouseNum    SwitchNum   2/26/2019   3/1/2019    3/6/2019    3/8/2019    3/9/2019    3/10/2019
1           123         U(3),D(2)                           U(2),D(2)       
1           456         U(1),D(1)   U(1)                
1           789                                 U(1),D(1)           
2           1122                                            U(2),D(1)       
2           3344                                                        U(1),D(1)   U(1),D(1)

以下是我目前使用的库：

library(dplyr)
library(DBI)
library(plotly)
library(shiny)
library(shinydashboard)
library(RJDBC)
library(readxl)
library(DT)
library(htmltools)
library(shinyBS)

这是我尝试创建此交叉表的方法：

library(xtable)
library(reshape)
library(rpivotTable)
library(ggplot2)
library(tidyr)
library(reshape2)

我喜欢表格在DT中的外观以及它附带的排序和过滤功能。如果可能的话，我想在交叉表上使用类似的功能。

Answer 1

我通过在SQL查询中创建一个concat字段来输出带有COUNT(Flipped(的U或P，然后将其输出到R中，如下所示：

dcast(df, HouseNum + SwitchNum ~ Date, value.var = "Flipped", fun.aggregate = toString)