r - ggplot2：即使没有图例，也要在旁边留一个空格

Question

我有一个带有单列的堆叠条形图，我想用它ggrepel来放置一个带有段的图例。这是我到目前为止所拥有的：

library(ggplot2)
library(ggrepel)

data <- data.frame(
  id = 1,
  region = factor(c("A", "B", "C")),
  value = c(1, 2, 3)
)

ggplot(data = data, 
       aes(x = id, y = value, fill = region)) +
  geom_bar(position = "stack", stat = "identity", width = 0.1) +
  theme_void() + 
  theme(legend.position = "none",
        legend.margin = margin(c(10, 70, 5, 5))) + 
  geom_text_repel(
    aes(label = region),
    position = position_stack(vjust = 1),
    hjust = 40,
    box.padding = .4
  )

有图例： 没有图例： 如您所见，删除图例使情节扩大到整个宽度。我的目标是在图例所在的侧面保留一个空白区域，以便我可以在侧面显示标签。我怎样才能做到这一点？

标签： rggplot2