如何在R中使用sjp.frq函数实现坐标轴标签换行？

遇到x轴标签过长重叠的问题，有两种简单的解决思路，你可以根据自己的需求选择：

方法1：提前修改变量的标签文本，手动/自动插入换行符 #

如果你的base$x是因子类型，可以直接修改它的水平标签，在合适的位置插入\n（换行符），这样绘图时标签会自动分成两行显示：

library(sjPlot)
library(sjmisc)

# 示例：自动在空格处拆分标签，替换成换行符
levels(base$x) <- gsub(" ", "\n", levels(base$x))

# 或者手动指定特定标签的换行位置（更精准）
levels(base$x)[levels(base$x) == "你的超长标签内容"] <- "你的超\n长标签内容"

# 再执行绘图
set_theme(base = theme_classic(), axis.title.size = 0, geom.label.size = 4.5, axis.textsize.x = 1.1, axis.textsize.y = 1.1 )
sjp.frq(base$x, type = c("bar"), sort.frq = c("desc"), geom.colors = "grey")

如果base$x是字符型变量，先转成因子再做上述修改即可。

方法2：利用ggplot2的工具对已生成的图进行调整 #

sjp.frq返回的是包含ggplot对象的列表，你可以提取这个对象后，用stringr包的str_wrap函数自动拆分标签到指定宽度：

library(sjPlot)
library(sjmisc)
library(stringr) # 需要加载这个包处理文本换行

set_theme(base = theme_classic(), axis.title.size = 0, geom.label.size = 4.5, axis.textsize.x = 1.1, axis.textsize.y = 1.1 )

# 先保存绘图结果
plot_result <- sjp.frq(base$x, type = c("bar"), sort.frq = c("desc"), geom.colors = "grey")

# 调整x轴标签，width参数控制每行最多显示的字符数
plot_result$plot + 
  scale_x_discrete(labels = function(x) str_wrap(x, width = 10))

你可以根据标签的实际长度调整width的数值，让换行效果更美观。

内容的提问来源于stack exchange，提问作者Antônio Fernandes