如何解决ggplot生成PNG图时‘reporting delay’标签被截断问题？

针对你遇到的“reporting delay*”文本被截断的问题，核心原因是文本位置超出了默认绘图区域边界或坐标轴范围，以下是几种实用修复方法：

方法一：调整绘图边距 #

通过扩展绘图区域的边距，给文本留出显示空间。修改你的theme配置，增加对应方向的边距：

ggplot(dcurve %>% filter(!is.na(D)),aes(x=D,y=N,label=N)) +  
  geom_rect(aes(xmin=(repdate-12.5), xmax=(repdate+1), ymin=0, ymax=maxn), fill="lightblue4", alpha=.01) + 
  geom_col(color="white") +  
  scale_x_date(date_labels="%b-%d", date_breaks = "5 day") + 
  scale_y_continuous(expand=c(0,0), breaks=c(seq(0,maxn,25))) + 
  ylab("No. Confirmed and Probable Cases") + 
  xlab("Episode Date") + labs(subtitle=repdate, caption=cnote) + 
  theme_classic() +  
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1),
    plot.margin = margin(10, 30, 10, 10)  # 顺序：上、右、下、左，单位为pt，可按需调整右侧数值
  ) +
  geom_text(x=(repdate-7.5), y=maxn-.5, label="reporting delay*", size=3)

方法二：扩展x轴显示范围 #

如果文本的x坐标超出了当前x轴的范围，直接扩展x轴的显示边界，让文本落在范围内：

ggplot(dcurve %>% filter(!is.na(D)),aes(x=D,y=N,label=N)) +  
  geom_rect(aes(xmin=(repdate-12.5), xmax=(repdate+1), ymin=0, ymax=maxn), fill="lightblue4", alpha=.01) + 
  geom_col(color="white") +  
  scale_x_date(
    date_labels="%b-%d", 
    date_breaks = "5 day",
    limits = c(min(dcurve$D, na.rm=TRUE), repdate + 2)  # 将x轴最大值向后扩展2天，可按需调整
  ) + 
  scale_y_continuous(expand=c(0,0), breaks=c(seq(0,maxn,25))) + 
  ylab("No. Confirmed and Probable Cases") + 
  xlab("Episode Date") + labs(subtitle=repdate, caption=cnote) + 
  theme_classic() +  
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) +
  geom_text(x=(repdate-7.5), y=maxn-.5, label="reporting delay*", size=3)

方法三：使用annotation_custom放置文本 #

annotation_custom可以在绘图区域外放置元素，不受坐标轴范围限制，适合这类标注场景（需加载grid包）：

library(grid)

ggplot(dcurve %>% filter(!is.na(D)),aes(x=D,y=N,label=N)) +  
  geom_rect(aes(xmin=(repdate-12.5), xmax=(repdate+1), ymin=0, ymax=maxn), fill="lightblue4", alpha=.01) + 
  geom_col(color="white") +  
  scale_x_date(date_labels="%b-%d", date_breaks = "5 day") + 
  scale_y_continuous(expand=c(0,0), breaks=c(seq(0,maxn,25))) + 
  ylab("No. Confirmed and Probable Cases") + 
  xlab("Episode Date") + labs(subtitle=repdate, caption=cnote) + 
  theme_classic() +  
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1),
    plot.margin = margin(10, 30, 10, 10)  # 配合调整边距确保文本显示
  ) +
  annotation_custom(
    grob = textGrob("reporting delay*", gp=gpar(fontsize=3)),
    xmin = repdate-7.5, xmax = repdate-7.5,
    ymin = maxn-.5, ymax = maxn-.5
  )

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