你可以使用expand参数代替手工定义限制。默认值是每边5%，所以expand = expansion(mult = c(0.05, 0.1))应该可以做到这一点。

data.frame(x=c(1,10,100,1000,10000), nms = c("A","B","C","D","E")) %>% 
    ggplot(aes(x=x, y=nms)) + 
    geom_bar(stat = "identity") + 
    geom_text(aes(label = x), 
              vjust = 0.5, hjust = -0.1, color = "gray") + 
    scale_x_continuous(expand = expansion(mult = c(0.05,0.1)))

我们可以使用hjust = "inward"使文本“向内”

library(dplyr)
library(ggplot2)

data.frame(x=c(1,10,100,1000,10000), nms = c("A","B","C","D","E")) %>% 
  ggplot(aes(x=x, y=nms)) + 
  geom_bar(stat = "identity") + 
  geom_text(aes(label = x), 
            vjust = 0.5, hjust = "inward", color = "gray")

或者我们可以用coord_cartesian(clip = 'off')关闭clip

data.frame(x=c(1,10,100,1000,10000), nms = c("A","B","C","D","E")) %>% 
ggplot(aes(x=x, y=nms)) + 
  geom_bar(stat = "identity") + 
  geom_text(aes(label = x), 
            vjust = 0.5, hjust = -0.1, color = "gray")+
  coord_cartesian(clip = 'off')

可能需要调整打印边距。

data.frame(x=c(1,10,100,1000,10000), nms = c("A","B","C","D","E")) %>% 
  ggplot(aes(x=x, y=nms)) + 
  geom_bar(stat = "identity") + 
  geom_text(aes(label = x), 
            vjust = 0.5, hjust = -0.1, color = "gray") +
  theme(plot.margin = unit(c(1,1,1,1),'cm')) +
  coord_cartesian(clip = 'off')

创建于2023-05-26带有reprex v2.0.2