R语言plot(las=2)旋转变量名后被截断的解决方法

我之前也碰到过这个头疼的问题！用las=2把x轴标签转成垂直方向后，最长的标签还是被截断，核心原因要么是默认的绘图边距不够装下长标签，要么是标签字号太大。这里分base R和ggplot2两种场景，给你几个实用的解决方法：

Base R 解决方案 #

1. 手动扩大底部绘图边距 #

默认的绘图边距（mar参数）底部空间通常留得不够，我们可以直接调整这个参数给长标签腾位置：

# mar的四个数值分别对应下、左、上、右的边距，单位是"行"
par(mar = c(8, 4, 4, 2) + 0.1) 
# 再执行绘图，las=2保持标签垂直旋转
plot(df$varname, las = 2)
# 如果标签还是有点贴轴，可以用mtext手动往下挪一点
mtext("你的长变量名", side = 1, line = 4) # line值越大，标签离x轴越远

2. 缩小标签字号适配空间 #

如果边距调整后还是挤，可以配合cex.axis参数缩小轴标签的字号：

par(mar = c(6, 4, 4, 2) + 0.1)
# cex.axis=0.8表示标签字号是默认的80%，可根据实际情况增减
plot(df$varname, las = 2, cex.axis = 0.8)

3. 给长标签手动换行 #

把超长变量名拆成多行，避免单行长度过长。如果变量是因子类型，直接修改其水平值即可：

# 把变量名里的空格替换成换行符\n，也可以手动指定换行位置（比如在逗号后加\n）
levels(df$varname) <- gsub(" ", "\n", levels(df$varname))
# 绘图时标签会自动换行展示
plot(df$varname, las = 2)

# 不想修改原数据的话，也可以在绘图时临时指定标签
plot(df$varname, las = 2, names.arg = gsub(" ", "\n", levels(df$varname)))

ggplot2 解决方案（更灵活可控） #

如果用ggplot2绘图，处理长标签会更省心，通过主题参数就能精准调整：

library(ggplot2)

ggplot(df, aes(x = varname)) +
  geom_bar() # 替换成你需要的几何对象，比如geom_point、geom_boxplot等
  # 旋转标签90度，调整对齐方式避免被绘图区域截断
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)) +
  # 调整绘图底部边距，给标签留出足够空间（单位可选cm、pt等）
  theme(plot.margin = margin(t = 1, r = 1, b = 4, l = 1, unit = "cm"))

这里vjust=0.5让标签垂直居中，hjust=1让标签右对齐贴在x轴上，完美避免截断问题。

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