如何向Tabler输出中添加一个列，其中包含给定变量组之间的百分比差异？

我想在tableroutput中添加一列，其中包含给定变量组之间的百分比差异

我目前的代码是：

tabout <- tableby(group ~ anova(category1, digits=2)+  anova(category2, digits=2)+ anova(category3, digits=2),data=sampledata, total=FALSE)
summary(tabout, text=TRUE)

理想情况下，我想在这里加一列，说明第1组与第2组的百分比差异

                       |Group1(N=122)|Group2(N=122)| p value|percdiff
|:---------------------|:-----------:|:-----------:|-------:|-------:
|category1             |             |             |   0.019| -12
|-  Mean (SD)          | 4.66 (0.72) | 5.29 (0.61) |        |
|-  Range              | 3.70 - 6.00 | 4.22 - 6.62 |        |
|category2             |             |             |   0.022| -13
|-  Mean (SD)          | 5.26 (0.89) | 6.02 (0.76) |        |
|-  Range              | 3.98 - 6.98 | 4.81 - 7.60 |        |
|category3             |             |             |   0.050| -11
|-  Mean (SD)          | 5.16 (0.89) | 5.81 (0.79) |        |
|-  Range              | 3.96 - 6.70 | 4.77 - 7.63 |        |

任何帮助都将不胜感激

                       |Group1(N=122)|Group2(N=122)| p value|percdiff
|:---------------------|:-----------:|:-----------:|-------:|-------:
|category1             |             |             |   0.019| -12
|-  Mean (SD)          | 4.66 (0.72) | 5.29 (0.61) |        |
|-  Range              | 3.70 - 6.00 | 4.22 - 6.62 |        |
|category2             |             |             |   0.022| -13
|-  Mean (SD)          | 5.26 (0.89) | 6.02 (0.76) |        |
|-  Range              | 3.98 - 6.98 | 4.81 - 7.60 |        |
|category3             |             |             |   0.050| -11
|-  Mean (SD)          | 5.16 (0.89) | 5.81 (0.79) |        |
|-  Range              | 3.96 - 6.70 | 4.77 - 7.63 |        |