R сюжетный участок Я получаю только один сюжет вместо четырех

Question

Я пытаюсь построить график с четырьмя подзадачами:

library(plotly)
library(htmlwidgets)
d=data.frame(x=1:10, y=1:10)
p<-NULL
xaxis=list(title="xaxis")
yaxis=list(title="yaxis")
for (i in 1:4){
  aa<-plot_ly(d+i,x=~x,y=~y,xaxis=xaxis,yaxis=yaxis, mode = "lines",type="scatter") %>%
   layout(
    showlegend=FALSE
  )
  print(aa)
  p<-append(p,list(aa))
}
s<-plotly::subplot(p,nrows=2,shareX=FALSE,shareY=FALSE)%>%layout(margin=list(l=10,t=10,r=10,b=10))
print(s)
htmlwidgets::saveWidget(plotly::as_widget(s), "TestPlot.html")

Но в итоге я получаю только один график вместо четырех ожидаемых.Почему это?