如何修复ggplot时间序列图表中X轴时间与数据偏移的问题？

X轴偏移的核心是时区不统一：as.POSIXct()默认使用系统本地时区，但ggplot处理时间轴时可能默认采用UTC时区，或是你的系统时区与预期时区存在15小时差，最终导致显示错位。

统一所有时间相关代码的时区即可，具体操作如下：

1. 数据创建时指定明确时区 #

生成时间序列时，通过tz参数指定固定时区（比如"UTC"，或你的本地时区如"Asia/Shanghai"）：

# 示例使用UTC时区，可替换为你的实际时区
Time = seq.POSIXt(
  as.POSIXct("2022-02-01 00:00:00", tz = "UTC"), 
  as.POSIXct("2022-02-05 23:00:00", tz = "UTC"), 
  by = "1 hour"
)
Value = sample(c(1:12), 120, replace = TRUE)
Type = sample(c("A","B","C","D"),120, replace = TRUE)
test = cbind.data.frame(Time,Type,Value)

2. 绘图时同步时区设置 #

在scale_x_datetime中，给date_format()和seq.POSIXt()都指定相同的时区：

library(ggplot2)
library(scales) # 需加载scales包以使用date_format函数

test.all = ggplot(test, aes(x = Time, y = Value, colour = Type)) + 
  scale_color_manual(values=c("#0350d6","#03c615", "#03cfd6", "#9204b7"))+
  geom_line(size=1) +  
  theme_bw() + 
  theme(
    legend.position = "bottom",
    legend.title=element_blank(), 
    axis.title.x=element_blank(),
    axis.text.x = element_text(size = 8, angle = 60, vjust = 1.4, hjust = 1.4),
    axis.text=element_text(size=8, colour = "black"),
    axis.title.y = element_text(size=12),
    legend.text = element_text(size=12),
    panel.grid = element_line(colour = "grey",size=0.2)
  )+
  guides(colour = guide_legend(override.aes = list(size = 2), nrow = 1))+
  scale_x_datetime(
    breaks = seq.POSIXt(
      as.POSIXct("2022-02-01 00:00:00", tz = "UTC"), 
      as.POSIXct("2022-02-05 23:00:00", tz = "UTC"), 
      by = "4 hour"
    ), 
    labels=date_format("%m-%d %H", tz = "UTC"), # 同步指定时区
    limits = c(
      as.POSIXct("2022-02-01 00:00:00", tz = "UTC"), 
      as.POSIXct("2022-02-05 23:00:00", tz = "UTC")
    ),
    expand = expansion(mult = c(0.01,0.01))
  )
test.all

额外提示 #

• 若你的本地时区不是UTC，可将所有tz = "UTC"替换为你的实际时区（比如"Asia/Shanghai"代表东八区），全程保持时区一致即可。
• 可通过Sys.timezone()命令查看当前系统默认时区，方便匹配设置。

内容的提问来源于stack exchange，提问作者Tran.Ha