Layout displays blank or axis overlap using dual axis graphs

I have two dual yaxis plots that I'm trying to combine with plotly's layout function. Both plots work fine independently, but when combined some aspects are blank and the axis of the two graphs are combined on one graph. What do I need to do to get them to display properly, one on top of the other.

#my data
times.winter<- data.frame(radtime = c(0.0,0.26,0.52,0.78,1.05,1.31,1.57,1.83,2.09,2.36,2.62,2.88,3.14,3.4,3.66,3.93,4.19,4.45,4.71,4.97,5.23,5.50,5.76,6.02), 
mean.Ts2 = c(11.2,11.0,10.8,10.7,10.5,10.4,10.3,10.4,10.5,10.7,11.0,11.3,11.6,11.9,12.1,12.1,12.2,12.3,12.3,12.3,12.1,12.0,11.8,11.7,11.5), 
activity = c(1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,8,9,10,1,2,3,4), 
time = c(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23))

times.summer<- data.frame(radtime = c(0.0,0.26,0.52,0.78,1.05,1.31,1.57,1.83,2.09,2.36,2.62,2.88,3.14,3.4,3.66,3.93,4.19,4.45,4.71,4.97,5.23,5.50,5.76,6.02), 
mean.Ts2 = c(17.1,16.9,16.7,16.6,16.4,16.3,16.3,16.3,16.4,16.6,16.8,17.1,17.3,17.5,17.7,17.8,17.8,17.8,17.7,17.6,17.5,17.4,17.3,17.1), 
activity = c(1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,8,9,10,1,2,3,4), 
time = c(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23))

library(plotly)
Fig1<-plot_ly(times.winter) %>%
  add_bars(x = ~Time, y = ~activity, type = "bar", 
           marker = list(color = c("#999999","#999999","#999999","#999999","#999999","#999999",
                         "#999999","#999999","#999999","#999999","#999999","#999999",
                         "#999999","#999999","#4b0092","#999999","#999999","#999999",
                         "#999999","#999999","#999999","#999999","#999999","#999999"))) %>%
  add_lines(x = ~Time, y = ~mean.Ts2, yaxis = "y2", line = list(color = c("#E69F00"), width = 6)) %>%
  layout(xaxis = list(title = "Time",tick0 =0, dtick = 6),
         yaxis = list(showline = TRUE, side = "left", 
                      title = "Number Active",
                      showgrid = F),  
         yaxis2 = list(showline = TRUE,
                       tickfont = list(color = "#E69F00"),
                       dtick=0.5,
                       overlaying = "y",
                       side = "right",
                       title = "Soil Temperature °C",
                       color = "#E69F00",
                       range = list(10,13),
                       showgrid = F), 
         showlegend = FALSE,  
         margin = list(pad = 0, b = 50, l = 50, r = 50))

Fig2<-plot_ly(times.summer) %>%
  add_bars(x = ~Time, y = ~activity, type = "bar", 
           marker = list(color = c("#999999","#999999","#999999","#999999","#999999","#999999","#999999",
                                   "#999999","#999999","#999999","#999999","#4b0092","#999999",
                                   "#999999","#999999","#999999","#999999","#999999","#999999",
                                   "#999999","#999999","#999999","#999999","#999999"))) %>%
  add_lines(x = ~Time, y = ~mean.Ts2, yaxis = "y2", line = list(color = c("#E69F00"), width = 6)) %>%
  layout(xaxis = list(title = "Time",tick0 =0, dtick = 6),
         yaxis = list(showline = TRUE, side = "left", 
                      title = "Number Active",
                      showgrid = F),  
         yaxis2 = list(showline = TRUE,
                       tickfont = list(color = "#E69F00"),
                       dtick=0.5,
                       overlaying = "y",
                       side = "right",
                       title = "Soil Temperature °C",
                       color = "#E69F00",
                       range = list(16,18),
                       showgrid = F), 
         showlegend = FALSE,  
         margin = list(pad = 0, b = 50, l = 50, r = 50))
library(processx)
Fig1
Fig2
fig <- subplot(Fig1, Fig2, nrows = 2) %>% 
  layout(title = '')
fig

Bắt đầu với các định nghĩa của Fig1 và Fig2, sau đó kiểm tra lệnh gọi subplot(Fig1, Fig2, nrows = 2) và bố cục cuối cùng của nó. Chạy ví dụ như đã cung cấp và so sánh kết quả kết hợp với từng biểu đồ độc lập; được xem là hoàn tất khi cả hai biểu đồ được render chồng theo chiều dọc và các trục y kép của chúng vẫn được giữ riêng biệt.