如何在R的ggplot中调整布局，完整显示极值类别标签

针对极值类别标签无法完整显示的问题，可通过以下几种方式调整布局：

方法1：扩展数值轴的显示范围 #

通过scale_x_continuous()的expand参数，给翻转后的数值轴（原y轴）增加额外空间，让标签有足够位置展示：

x <- LETTERS[1:11]
y <- c(9, 4, 6, 8, 5, 7, -9, -4, -6, -8, -5)
z <- seq(-1, 1, by = 0.2)

dat <- data.frame(x, y, z) |> 
  mutate(just_text = ifelse(z > 0, 1, -0.2))

dat %>%
  ggplot(aes(fct_reorder(x, y, .desc = T), y)) +
  geom_col() +
  geom_text(
    aes(label = paste0(abs(y), " ", "abcdef"), 
        hjust = just_text)) +
  coord_flip() +
  # 扩展x轴左右两侧的空间
  scale_x_continuous(expand = expansion(mult = c(0.2, 0.2))) +
  theme(
    axis.text.y = element_text(size = 8, 
                               lineheight = 1, 
                               margin = margin(r = 0.5, unit = "cm"))) # 减小轴文本与轴的间距，节省空间

方法2：微调文本位置 #

通过nudge_x参数调整文本偏移量，避免标签超出绘图区域：

x <- LETTERS[1:11]
y <- c(9, 4, 6, 8, 5, 7, -9, -4, -6, -8, -5)
z <- seq(-1, 1, by = 0.2)

dat <- data.frame(x, y, z) |> 
  mutate(just_text = ifelse(z > 0, 1, -0.2),
         # 根据y值设置不同偏移量
         nudge_val = ifelse(y > 0, -0.4, 0.4))

dat %>%
  ggplot(aes(fct_reorder(x, y, .desc = T), y)) +
  geom_col() +
  geom_text(
    aes(label = paste0(abs(y), " ", "abcdef"), 
        hjust = just_text),
    nudge_x = dat$nudge_val) + # 应用偏移
  coord_flip() +
  theme(
    axis.text.y = element_text(size = 8, 
                               lineheight = 1, 
                               margin = margin(r = 1, unit = "cm")))

方法3：调整画布边距 #

通过plot.margin增加画布左右边距，让截断的标签能显示在画布范围内：

x <- LETTERS[1:11]
y <- c(9, 4, 6, 8, 5, 7, -9, -4, -6, -8, -5)
z <- seq(-1, 1, by = 0.2)

dat <- data.frame(x, y, z) |> 
  mutate(just_text = ifelse(z > 0, 1, -0.2))

dat %>%
  ggplot(aes(fct_reorder(x, y, .desc = T), y)) +
  geom_col() +
  geom_text(
    aes(label = paste0(abs(y), " ", "abcdef"), 
        hjust = just_text)) +
  coord_flip() +
  theme(
    axis.text.y = element_text(size = 8, 
                               lineheight = 1, 
                               margin = margin(r = 1, unit = "cm")),
    plot.margin = margin(t = 1, r = 3, b = 1, l = 3, unit = "cm")) # 增加左右边距

你可以根据实际效果选择合适的方法，通常方法1的通用性最强，能同时解决正负极值的标签截断问题。

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