如何调整sjPlot中geom_text元素：去除括号并取整百分比

要实现去除百分比括号并四舍五入为整数的效果，你可以直接操作plot_frq返回的ggplot对象，步骤如下：

1. 生成并保存ggplot对象 #

首先将plot_frq的结果赋值给变量，方便后续修改：

library(sjPlot)
library(ggplot2)
library(stringr)

# 生成频率图并保存为ggplot对象
p <- mtcars |> plot_frq(cyl)

2. 定位并修改文本标签层 #

plot_frq生成的图中，百分比文本由geom_text层负责渲染，我们可以直接修改该层的标签数据：

# 获取文本层（通常是第2层，可通过p$layers确认）
text_layer <- p$layers[[2]]

# 提取原始标签数据并处理
updated_labels <- text_layer$data$label |>
  str_remove_all("[()]") |> # 去除括号
  as.numeric() |>
  round() |> # 四舍五入为整数
  paste0("%") # 添加百分号

# 替换文本层的标签数据
text_layer$data$label <- updated_labels

# 将修改后的层放回绘图对象
p$layers[[2]] <- text_layer

3. 查看修改后的图表 #

运行p即可看到修改后的效果，百分比会显示为34%而非(34.4%)。

说明 #

如果不确定文本层的索引，可通过p$layers查看所有图层，找到包含geom_text的那一层（通常是第2层，第一层是柱状图）。通过直接修改ggplot对象的图层数据，就能精准调整标签格式，无需重新绘制整个图表。

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