使用 ls() 模式为子图创建图列表

Question

我是运行一个将绘图分配给变量的循环。然后代码使用 ls() 模式函数

提取变量名称

while (i > 0) {
assign(paste("fig", i, sep = ""), plot_ly(tot, y = ~gene, color = ~bx, type = "box", boxpoints = "all") %>% layout(annotations = list(x = 0 , y = 1, xanchor = "left",yanchor = "top",yshift = 20,showarrow = FALSE,font = list(size = 20), text = paste("Data", colnames(total)[i+1]))))
  i = i-1
  if (i == 0){

代码然后使用 ls() 模式函数提取变量名称，并尝试将它们作为列表传递给子图。

 ...
 l <- as.list(ls(pattern = "fig"))
    l <- do.call(paste, c(l,sep=", "))
    fig <- subplot(l,margin = 0.06,nrows=2) %>% layout(showlegend = FALSE)

 fig
 }
}'

这是我遇到一些错误的地方。

  Error in [[: subscript out of bounds

Answer 1

尝试以下操作：

library(plotly)

l <- mget(ls(pattern = "fig"))
fig <- subplot(l,margin = 0.06,nrows=2) %>% layout(showlegend = FALSE)

使用 ls() 模式为子图创建图列表

using ls() pattern to create list of plots for subplot

r

subplot

r-plotly