Как сдвинуть xaxis в сюжетном R-сюжете сверху? - PullRequest
Новая
       67

Как сдвинуть xaxis в сюжетном R-сюжете сверху?

0 голосов
/ 20 сентября 2018

У меня есть несколько сюжетных диаграмм, объединенных с использованием субплота.Я хочу справа внизу ось х Название сверху.

Это то, что я сделал - 

dt <- data.frame(xaxis = c("AA", "BB", "CC", "DD", "EE"),
                 Col1 = runif(5,min = 0,max = 10),
                 Col2 = runif(5,min = 0,max = 10),
                 Col3 = runif(5,min = 0,max = 10),
                 Col4 = runif(5,min = 0,max = 10),
                 Col5 = runif(5,min = 0,max = 10),
                 Col6 = runif(5,min = 0,max = 10),
                 Col7 = runif(5,min = 0,max = 10),
                 Col8 = runif(5,min = 0,max = 10),
                 Col9 = runif(5,min = 0,max = 10),
                 Col10 = runif(5,min = 0,max = 10))



plot_func <- function(dt){
  col_names <- colnames(dt)[-(1:8)]
 lapply(col_names,function(x){
   plot_ly( x = dt$xaxis, y = dt[,x], type = 'scatter', mode = 'lines')%>%
           layout(yaxis = list(title = x),xaxis = list(title = "Date",
                                                       side = "top")
           )
    }
  )
}


subplot(plot_func(dt),
        nrows = NROW(colnames(dt)[-(1:8)]),margin = 0.05,shareX = TRUE,
       titleY = TRUE,titleX = TRUE)%>%
layout(showlegend = FALSE,title = "ABC")

1 Ответ

0 голосов
/ 20 сентября 2018

небольшое изменение на части подзаговора делает это ... 

 xaxis = list(anchor = "x1")
...