ggplot柱状图计数与百分比文本被截断的解决方法咨询

使用ggplot绘制包含计数和百分比的柱状图时，最大值对应的比例与百分比文本被截断。尝试增大margin仅增加了图表周围空白，无法显示截断内容；调整hjust又会对数值较小的条目产生不良影响。绘图代码如下：

ggplot(occupation_summary, aes(x = n, y = reorder(par_occ, n), fill = par_occ)) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = paste(n, " (", scales::percent(proportion), ")", sep = "")),
        hjust = -0.05, size = 3) +
  labs(title = paste("Occupations of parents (Total:", p_num, ")"),
   x = "Number", y = "Occupation")  +
  theme_minimal() +
  theme(legend.position = "none")    

生成的图表中，顶部条目仅显示计数732，百分比不可见，请问如何扩大绘图区域以显示完整的百分比内容？

核心是扩展x轴的显示范围，而不是仅调整margin，因为文本被截断是x轴最大刻度不足以容纳文本位置导致的，以下两种方法可以解决：

方法1：动态扩展x轴（推荐） #

用expand_limits()基于数据最大值自动扩展，灵活性更高：

ggplot(occupation_summary, aes(x = n, y = reorder(par_occ, n), fill = par_occ)) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = paste(n, " (", scales::percent(proportion), ")", sep = "")),
        hjust = -0.05, size = 3) +
  labs(title = paste("Occupations of parents (Total:", p_num, ")"),
       x = "Number", y = "Occupation")  +
  theme_minimal() +
  theme(legend.position = "none") +
  expand_limits(x = max(occupation_summary$n) * 1.2) # 扩展到最大值的1.2倍，可根据文本长度调整倍数

方法2：手动设置x轴范围 #

如果明确知道需要的x轴最大值，直接用xlim()手动指定：

ggplot(occupation_summary, aes(x = n, y = reorder(par_occ, n), fill = par_occ)) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = paste(n, " (", scales::percent(proportion), ")", sep = "")),
        hjust = -0.05, size = 3) +
  labs(title = paste("Occupations of parents (Total:", p_num, ")"),
       x = "Number", y = "Occupation")  +
  theme_minimal() +
  theme(legend.position = "none") +
  xlim(0, 850) # 假设最大值732，设置到850足够容纳文本

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