以编程方式调整多个绘图（R）子地块的布局

我得到了一个包含n个子地块的plotly对象，我想在其中添加一个RangeSloider。我使用代码来实现这一点

p<- layout(p, xaxis = list(rangeslider = list(type = "date")))

p
p<- layout(p,
            yaxis = list(fixedrange = F),
            yaxis2 = list(fixedrange = F),
            yaxis3 = list(fixedrange = F),
             ...)

layoutlist <- list(yaxis = list(fixedrange = F), yaxis2 = list(fixedrange = F), yaxis3 = list(fixedrange = F), ...)
p<- layout(p, layoutlist)

subplots_list <- list()
for(i in 1:5){
  subplots_list[[i]] <- plot_ly()
}
p<- subplot(subplots_list, nrows = 5, shareX = T)

p<- p %>% layout(xaxis = list(rangeslider = list(type = "date")))
p<- p %>% layout(
               yaxis = list(fixedrange = F),
               yaxis2 = list(fixedrange = F),
               yaxis3 = list(fixedrange = F),
               yaxis4 = list(fixedrange = F),
               yaxis5 = list(fixedrange = F)
               )