如何在sjPlot的plot_xtab中移除n=0显示？求可行方案

关于drop.empty参数的误区 #

你设置drop.empty = FALSE搞反了——这个参数的作用是保留空类别（零值的行/列），要移除零值应该设为drop.empty = TRUE。如果设置后仍不生效，大概率是数据里的因子水平没过滤，需要先预处理数据。

有效移除零值的两种方法 #

方法1：预处理数据，过滤零值组合 #

先计算交叉表并删掉频数为0的行，再用处理后的数据绘图：

library(sjPlot)
library(dplyr)

# 示例：假设你的数据是df，变量为var1和var2
xtab_data <- table(df$var1, df$var2) %>% 
  as.data.frame() %>% 
  filter(Freq > 0)

# 基于清理后的数据绘图
plot_xtab(xtab_data$Var1, xtab_data$Var2, counts = TRUE, drop.empty = TRUE)

方法2：自定义标签，隐藏零值文本 #

不想预处理数据的话，可通过label.args参数自定义标签逻辑，只显示非零内容：

plot_xtab(df$var1, df$var2, 
          counts = TRUE,
          label.args = list(
            fun = function(x) ifelse(x == 0, "", paste0("n=", x, " (", round(x/sum(x)*100, 1), "%)"))
          ))

函数可用性与替代方案 #

• plot_xtab在sjPlot最新版本中仍可正常使用，若参数异常，建议先更新包：install.packages("sjPlot")。
• 替代方案：
  • 用ggplot2手动绘制，灵活性更高：

    library(ggplot2)
    ggplot(xtab_data, aes(x = Var1, y = Var2, fill = Freq)) +
      geom_tile() +
      geom_text(aes(label = paste0("n=", Freq, " (", round(Freq/sum(Freq)*100, 1), "%)"))) +
      theme_minimal()
    

  • 用gtsummary的tbl_cross生成可视化交叉表，自动处理零值：

    library(gtsummary)
    tbl_cross(df, row = var1, col = var2) %>% 
      as_ggplot()
    

内容的提问来源于stack exchange，提问作者Sydney Ito