https://pricebosema12.blogspot.com/2023/01/r-output-pivot-like-table-with-subtotals.html