R plotly子图我只得到一个图而不是四个

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")

但是最后，我只得到一个图，而不是预期的四个。为什么会这样？