R中Plotly堆叠图共享日期X轴无法对齐问题求助

问题描述 #

需要制作上方散点图、下方等高线图且两者共享对齐日期X轴的堆叠图，但运行代码后，尽管两个数据框的日期列均为Date类型且范围一致，X轴仍无法对齐。

复现代码 #

p3soiH <- structure(list(SOI_d2H_P3_60 = c(0.270750353, 0.230147073, 0.181060466,
0.14969623, 0.217420949, 0.27484718, 0.245556866, 0.253293044,
0.297027026, 0.230037639), SOI_d2H_P3_30 = c(0.317495676, 0.33832448,
0.321248762, 0.322584764, 0.309468651, 0.378476382, 0.374018999,
0.385795817, 0.401733649, 0.327856546), SOI_d2H_P3_10 = c(0.47774046,
0.505443033, 0.477832219, 0.515614846, 0.513315096, 0.542324327,
0.568186111, 0.590708983, 0.622258143, 0.577638524), SOI_d2H_P3_05 = c(1.065008756,
1.029251905, 1.079236783, 0.972995461, 1.054741593, 1.020166422,
1.110624711, 1.164420391, 1.138018061, 1.139206468), date = structure(c(19193,
19194, 19195, 19196, 19197, 19198, 19199, 19200, 19201, 19202
), class = "Date")), row.names = 35:44, class = "data.frame")


dly.met.fp <- structure(list( dly_rain_mm = c(1.524, 0, 0, 1.27, 3.048, 4.064, 0, 7.62,
1.27, 10.922), day_asdate = structure(c(19193,
19194, 19195, 19196, 19197, 19198, 19199, 19200, 19201, 19202
), class = "Date")), row.names = 35:44, class ="data.frame")

# 制作日期与日降雨量的散点图
rain.plot <- plot_ly(x = dly.met.fp$day_asdate,y = dly.met.fp$dly_rain_mm , type = "scatter", mode = "markers") 

print(rain.plot)

# 制作SOI等高线图
cont.plot <- plot_ly(x = p3soiH$date, y =c(5,10,30,60) ,
                     z = as.matrix(p3soiH[,4:1]), type = "contour") 
print(cont.plot)

# 堆叠图表并共享X轴（日期）
fig <- subplot( rain.plot, cont.plot,nrows = 2, shareX = TRUE)

# 输出组合图表
print(fig)

问题原因 #

Plotly对散点图和等高线图的日期轴处理逻辑存在差异：散点图会将Date类型自动识别为时间轴，而等高线图会把日期转换为数值（自1970-01-01以来的天数）后当作连续数值轴处理，导致两者的轴刻度计算方式不一致，进而无法对齐。

解决方案 #

统一将日期转换为POSIXct类型，并显式指定轴类型为date，确保两个图表的X轴处理逻辑一致：

修改后的代码 #

p3soiH <- structure(list(SOI_d2H_P3_60 = c(0.270750353, 0.230147073, 0.181060466,
0.14969623, 0.217420949, 0.27484718, 0.245556866, 0.253293044,
0.297027026, 0.230037639), SOI_d2H_P3_30 = c(0.317495676, 0.33832448,
0.321248762, 0.322584764, 0.309468651, 0.378476382, 0.374018999,
0.385795817, 0.401733649, 0.327856546), SOI_d2H_P3_10 = c(0.47774046,
0.505443033, 0.477832219, 0.515614846, 0.513315096, 0.542324327,
0.568186111, 0.590708983, 0.622258143, 0.577638524), SOI_d2H_P3_05 = c(1.065008756,
1.029251905, 1.079236783, 0.972995461, 1.054741593, 1.020166422,
1.110624711, 1.164420391, 1.138018061, 1.139206468), date = structure(c(19193,
19194, 19195, 19196, 19197, 19198, 19199, 19200, 19201, 19202
), class = "Date")), row.names = 35:44, class = "data.frame")


dly.met.fp <- structure(list( dly_rain_mm = c(1.524, 0, 0, 1.27, 3.048, 4.064, 0, 7.62,
1.27, 10.922), day_asdate = structure(c(19193,
19194, 19195, 19196, 19197, 19198, 19199, 19200, 19201, 19202
), class = "Date")), row.names = 35:44, class ="data.frame")

# 将日期转换为POSIXct类型
dly.met.fp$day_asdate <- as.POSIXct(dly.met.fp$day_asdate)
p3soiH$date <- as.POSIXct(p3soiH$date)

# 制作散点图，显式指定x轴类型为date
rain.plot <- plot_ly(x = dly.met.fp$day_asdate, y = dly.met.fp$dly_rain_mm, 
                     type = "scatter", mode = "markers") %>%
  layout(xaxis = list(type = "date"))

# 制作等高线图，显式指定x轴类型为date
cont.plot <- plot_ly(x = p3soiH$date, y = c(5,10,30,60), 
                     z = as.matrix(p3soiH[,4:1]), type = "contour") %>%
  layout(xaxis = list(type = "date"))

# 堆叠图表并共享X轴
fig <- subplot(rain.plot, cont.plot, nrows = 2, shareX = TRUE)

print(fig)

关键修改点 #

• 将Date类型转换为POSIXct类型，确保Plotly对两个图表的日期解析逻辑统一
• 在两个图表的layout中显式指定xaxis = list(type = "date")，强制将X轴识别为时间轴
• 保持shareX = TRUE参数，确保两个图表共享同一X轴刻度

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