r - 在 R 中将具有相同列的两个不同的数据透视表输出连接在一起

Question

library(pivottabler)
qhpvt(bhmtrains, "TOC", "TrainCategory", "n()") # TOC = Train Operating Company 

library(pivottabler)
pt <- PivotTable$new()
pt$addData(bhmtrains)
pt$addColumnDataGroups("TrainCategory")
pt$addRowDataGroups("TOC")
pt$defineCalculation(calculationName="TotalTrains", summariseExpression="n()")
pt$renderPivot(showRowGroupHeaders = TRUE)

pt2 <- PivotTable$new()
pt2$addData(bhmtrains)
pt2$addColumnDataGroups("TrainCategory")
pt2$addRowDataGroups("TOC")
pt2$defineCalculation(calculationName="TotalTrains", summariseExpression="n()")
pt2$renderPivot(showRowGroupHeaders = TRUE)

将上述两个输出连接在一起。如果加入 TOC 和 Unit 等两列，那么 R 中的代码是什么？在 R 中加入后加入 renderPivot 作为 PDF 输出。