R:具有小倍数/子图的绘图纵横比

Question

我已经发布了此as an issue on Github两周前。由于重新发布问题“if the project maintainers don't respond in a reasonable amount of time”显然可以，所以我将问题发布在这里。

我想创建具有固定纵横比的小倍数。然而，只有一些图保留了正确的纵横比。根据我收集的信息，使用plotly设置固定的纵横比如下:layout(yaxis = list(scaleanchor = "x"))。考虑以下示例:

library(purrr)
library(plotly)

df <- data.frame(
  x = rep(1:5,25),
  y = rep(1:5,25),
  g = sort(rep(1:25,5))
)

plots <- df %>%
  split(.$g) %>%
  map(function(x){
    plot_ly(data = x, x = ~x, y = ~y, type = "scatter",mode = "lines") %>% add_lines()
  })

small_multiples <- subplot(plots,nrows = 5) %>%
  layout(yaxis = list(scaleanchor  = "x")) %>%
  hide_legend()

如果我绘制 small_multiples，则只有第一个图(第 1 行，第 1 列)的长宽比为 1。其他图具有任意长宽比。 以下是该图交互式版本的链接:https://plot.ly/~rata_zhaw/1/

有趣的是，如果我在 subplot() 中选择选项 shareX = T，则整个第一列都具有正确的宽高比。如果我选择 shareY = T，什么都不会改变

这是第二个图的交互式版本的链接:https://plot.ly/~rata_zhaw/3/

如果我单独绘制任何图，则纵横比是正确的:

plots[[10]] %>%
  layout(yaxis = list(scaleanchor  = "x")) %>%
  hide_legend()

Answer 1

怎么样

small_multiples <- subplot(plots,nrows = 5) %>%
  layout(scene = list(aspectration=list(x=1,y=1))) %>%
  hide_legend()