列联表复制（百分比和卡方问题）

问：

我必须在 Rstudio 上以相同的方式复制一篇文章中的表格，如下所示：

目前，我已经能够部分复制它：

但是，我需要删除绿色百分比，并且只将卡方值保留在下面（这是错误的，即使我获得的值与基表中的值相同）。

我运行了以下几行代码来到达那里：

madi$unpkC <- factor(madi$unpkC, levels = c(0, 1), labels = c("No UN Peacekeeping", "UN Peacekeeping"))
madi$morewar <- factor(madi$morewar, levels = c(0, 1), labels = c("No More War", "More War"))


crosstable <- table(madi$unpkC, madi$morewar)

total<- addmargins(crosstable)

colnames(total) <- c("No More War", "More War", "Total")
rownames(total) <- c("No UN Peacekeeping", "UN Peacekeeping", "Total")

table<- tab_xtab(
  var.row = madi$unpkC,
  var.col = madi$morewar,
  title = "Post-WWII",
  show.row.prc = TRUE,
  show.col.prc = TRUE
)

print(table)

要删除绿色百分比并仅将表格下方的卡方保留，有没有办法将其从已创建的表格中删除？或者我应该使用其他函数来手动选择我希望我的表格显示的内容？tab_xtab