如何防止绘图内容被截断？求助扩展ggplot绘图右侧边距的方法

嘿，我懂你碰到的麻烦了——你用base绘图的par(omi=...)或者par(oma=...)调边距完全没用，这是因为ggplot用的是grid绘图系统，和base绘图的par参数完全不兼容，那些设置根本不会生效。咱们用ggplot自己的工具来解决右侧（因为coord_flip()翻转了坐标轴，原来的顶部变成了现在的右侧）文本被截断的问题：

方法1：直接调整绘图外边距（最常用） #

用ggplot主题里的plot.margin参数，它控制绘图区域四周的边距，顺序是上、右、下、左，单位默认是lines（也可以换成cm、in等）。你只需要加大右边的数值，给文本留出足够空间：

ggplot(df, aes(Cluster, Number_of_observations)) +
  geom_bar(position = 'dodge', stat='identity', colour="Darkblue", fill = "skyblue") +
  geom_text(aes(label=Number_of_observations), 
            position=position_dodge(width=0.9), 
            hjust = -0.25, vjust=-0.25) +
  coord_flip() +
  theme_bw() +
  # 这里把右边的边距设为5 lines，你可以根据实际显示情况调整数值
  theme(plot.margin = margin(1, 5, 1, 1, "lines"))

方法2：优化文本位置，减少溢出 #

如果不想额外加边距，也可以调整geom_text的位置参数，让文本更贴近柱子，避免超出绘图区域：

• 把hjust = -0.25改成hjust = 1.1（坐标轴翻转后，水平对齐的方向也变了，这个值会让文本靠柱子右侧对齐）
• 或者用nudge_x微调位置，避免和柱子重叠：

ggplot(df, aes(Cluster, Number_of_observations)) +
  geom_bar(position = 'dodge', stat='identity', colour="Darkblue", fill = "skyblue") +
  geom_text(aes(label=Number_of_observations), 
            position=position_dodge(width=0.9), 
            hjust = 1.1, vjust=-0.25,
            nudge_x = 0.1) + # 轻微向右挪一点，避免和柱子边缘重叠
  coord_flip() +
  theme_bw()

方法3：扩展坐标轴范围 #

还可以通过扩展数值轴的范围来给文本腾空间，coord_flip()后，原来的Number_of_observations变成了x轴（连续型），用scale_x_continuous的expand参数增加右侧空白：

ggplot(df, aes(Cluster, Number_of_observations)) +
  geom_bar(position = 'dodge', stat='identity', colour="Darkblue", fill = "skyblue") +
  geom_text(aes(label=Number_of_observations), 
            position=position_dodge(width=0.9), 
            hjust = -0.25, vjust=-0.25) +
  coord_flip() +
  theme_bw() +
  # 扩展右侧15%的空间，左边保持0（不留多余空白）
  scale_x_continuous(expand = expansion(mult = c(0, 0.15)))

如果你的Cluster是连续型变量，对应调整scale_y_continuous的expand参数就行，不过看你的代码应该是分类变量，上面的方法完全适用。

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