如何增大sjPlot包plot_xtab生成的条形图标签字体大小？

要调整plot_xtab生成的堆叠条形图的字体大小，你可以利用它基于ggplot2的特性，通过以下几种方式实现：

1. 直接在plot_xtab中使用theme.args参数 #

plot_xtab支持通过theme.args传递ggplot2的主题参数，一次性设置全局或特定元素的字体大小：

library(sjPlot)

plot_xtab(
  x = mtcars$gear,
  grp = mtcars$cyl,
  margin = "row",
  bar.pos = "stack",
  show.summary = TRUE,
  coord.flip = TRUE,
  # 传递主题参数，控制整体和局部字体
  theme.args = list(
    base_size = 20,          # 全局基础字体大小
    axis.text = element_text(size = 18),  # 坐标轴文本大小
    legend.text = element_text(size = 16), # 图例文本大小
    plot.title = element_text(size = 22)   # 标题文本大小
  )
)

2. 生成ggplot对象后叠加theme()修改 #

先将plot_xtab的输出存为ggplot对象，再用ggplot2的theme()函数精细化调整：

library(sjPlot)
library(ggplot2)

# 生成绘图对象
p <- plot_xtab(
  x = mtcars$gear,
  grp = mtcars$cyl,
  margin = "row",
  bar.pos = "stack",
  show.summary = TRUE,
  coord.flip = TRUE
)

# 叠加theme调整各类字体
p + theme(
  axis.text = element_text(size = 18),
  legend.text = element_text(size = 16),
  plot.title = element_text(size = 22),
  text = element_text(size = 20) # 统一设置所有文本基础大小
)

3. 单独调整条形内的百分比标签字体 #

如果需要专门修改条形图内的百分比数字大小，可以直接使用plot_xtab的label.size参数：

plot_xtab(
  x = mtcars$gear,
  grp = mtcars$cyl,
  margin = "row",
  bar.pos = "stack",
  show.summary = TRUE,
  coord.flip = TRUE,
  label.size = 5  # 设置条形内标签的字体大小
)

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