Совместное использование меток оси X на горизонтальном графике - PullRequest
Новая
       101

Совместное использование меток оси X на горизонтальном графике

0 голосов
/ 22 февраля 2019

У меня есть список фигур, созданных с помощью R plotly, просто в качестве примера: 

library(plotly)
library(dplyr)

set.seed(1)
data.df <- data.frame(val = c(rnorm(100,0,1),rnorm(100,1,1)), group = c(rep("A",100),rep("B",100)))
density.df <- do.call(rbind,lapply(levels(data.df$group),function(g){
  dens <- density(dplyr::filter(data.df,group == g)$val)
  data.frame(x = dens$x, y = dens$y, group = g)
}))

plot.list <- lapply(1:5,function(x)
  plot_ly(x = density.df$x, y = density.df$y, type = 'scatter', mode = 'lines',color = density.df$group, showlegend = (x == 5)) %>%
    layout(xaxis = list(title= "Value", zeroline = F), yaxis = list(title = "Density", zeroline = F))
  )

, которые я хотел бы собрать горизонтально, где будет толькоодна общая метка оси x и одна общая метка оси y.

Я использую: 

plotly::subplot(plot.list, nrows = 1, shareX = T, shareY = T, titleX = T, titleY = T)

И получаю:

enter image description here

Разве невозможно получить одну метку оси X на горизонтальном графике?

То же самое происходит для метки оси Y, если я изменяю значение аргумента nrowsот 1 до 5.

...