如果我执行此代码,请使用qtySubPlots <- 9
:
library(plotly)
p <- plot_ly(economics, x = date, y = uempmed)
qtySubPlots <- 9
options <- list(nrows=4)
plots <- lapply(seq(1,qtySubPlots), function(x) {p})
do.call(subplot, c(plots,options))
我得到了这个美丽的网格:
现在为任何大于9的值设置qtySubPlots
(例如10)我得到:
有任何线索如何解决?