ggplot2如何设置plot.margin参数增加右上留白避免标注溢出

问题核心原因 #

• 原代码中date列为字符串格式，直接调用scale_x_date不生效，x轴坐标定位异常，最大日期的标注刚好卡在画布边缘
• ggplot默认开启绘图区域裁剪，即便调整了边距，超出绘图区的标注也会被自动截断

修正后可运行代码 #

# 加载依赖包
library(ggplot2)
library(grid)

# 示例数据
df <- structure(list(date = c("2021-10-1", "2021-10-2", "2021-10-3", 
"2021-10-4", "2021-10-5", "2021-10-6", "2021-10-7", "2021-10-8", 
"2021-10-9", "2021-10-10", "2021-10-11", "2021-10-12", "2021-10-13", 
"2021-10-14"), value = c(190.3, 174.9, 163.2, 168.4, 168.6, 168.2, 
163.5, 161.6, 172.9, 166.5, 175.2, 197.7, 212.1, 177.9), type = c(1L, 
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L)), class = "data.frame", row.names = c(NA, 
-14L))

# 关键调整1：将date列转换为Date格式，匹配时间轴配置逻辑
df$date <- as.Date(df$date)
# 补全原代码缺失的自定义颜色变量
colors <- c("grey", "darkred", "darkblue")

ggplot(data = df, 
       aes(x=date, y=value, group=type, color = type, fill = type)) + 
  geom_area(alpha=0.4, position = "identity") +
  theme(
    text = element_text(size=20),
    # 关键调整2：加大顶部、右侧边距，预留标注显示空间（顺序：上、右、下、左）
    plot.margin=unit(c(2, 3, 1, 1),'lines'),
    # 关键调整3：关闭绘图区域裁剪，允许标注在边距区域正常显示
    clip = "off"
  ) +
  scale_y_continuous(breaks = range(df$value)) +
  scale_x_date(breaks = range(df$date)) +
  geom_hline(yintercept=c(min(df$value), max(df$value)), linetype='solid', col=colors[1]) +
  geom_text(aes(label = ifelse(date %in% max(date), as.character(date), ""), y = max(value)), color = colors[3], vjust=-0.2, hjust=1, size=6)

调整说明 #

• 转换date列格式为Date后，scale_x_date配置才能正常生效，x轴坐标定位逻辑恢复正常
• plot.margin的第一个值（上边距）调整为2 lines，第二个值（右边距）调整为3 lines，给右上角的日期标注留出足够的显示空间，可根据实际显示效果放大数值
• clip = "off"关闭了ggplot默认的绘图区裁剪规则，超出绘图区的标注不会被截断
• 补充了colors变量定义，避免原代码运行时出现变量未找到的报错

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