如何让ggplot2自动将内部图例置于绘图区右上角（含边距）

你遇到的手动调试图例坐标的问题，可以通过调整图例的对齐参数和边距彻底解决，无需反复修改坐标值，自动适配标签长度：

修改后的完整代码 #

library(ggplot2)
library(reshape2)
library(dplyr)

x <- c(5,17,31,9,17,10,30,28,16,29,14,34)
y <- c(1,2,3,4,5,6,7,8,9,10,11,12)
day <- c(1,2,3,4,5,6,7,8,9,10,11,12)

df1 <- data.frame(x, y, day)
df2 <- melt(df1, id.vars='day')

ggplot(df2, aes(x=day, y=value, fill=variable)) + 
  geom_bar(stat='identity', position='dodge') +
  scale_fill_manual(
    name = 'Legend', 
    values = c('Red', 'Blue'), 
    labels = c('Small Name 1', 'Small Name 2') %>% `names<-`(c('x', 'y'))
  ) +
  theme(
    legend.direction = 'horizontal',
    legend.position.inside = c(1, 1), # 将图例锚点定位到绘图区右上角坐标点
    legend.justification = c(1, 1),   # 图例自身的对齐点设为右上角
    legend.box.just = 'right',        # 水平图例内容整体靠右对齐
    legend.margin = margin(t = 5, r = 5, b = 0, l = 0) # 留出上下右边距（单位：pt，可按需调整）
  )

关键参数说明 #

• legend.justification = c(1,1)：指定图例自身的对齐锚点为右上角，让图例的右上角和legend.position.inside设置的坐标点精准对齐，无需手动估算x值。
• legend.position.inside = c(1,1)：将图例锚点定位到绘图区的右上角（坐标范围0-1，1代表最右/最上）。
• legend.box.just = 'right'：确保水平排列的图例内容整体靠右，即使标签变长，图例也会自动调整宽度，不会超出绘图区。
• legend.margin：通过设置右边（r）和上边（t）的边距，让图例和绘图区边缘保持固定距离（示例中的5pt约等于2px，可根据需求调整数值）。

长标签适配测试 #

如果把标签替换为长文本，比如：

labels = c('This is a very long label for variable x', 'Another super long label for variable y') %>% names<-c('x','y')

图例依然会自动适配宽度，保持在绘图区右上角且不超出边缘。

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