плотно тепловая карта режет имена по оси Y

Question

Я создаю карту с плотно с кодом ниже. Как вы можете видеть на скриншоте, имена по оси Y отображаются не во всю длину. Интересно, как я смогу это исправить, не уменьшив их шрифт. Является ли решение для приближения тепловой карты к цветовой шкале или уменьшения ее ширины?

#data

Database1<-c(1,-2,-3,2,-3,5)
Database2<-c(2,-3,5,2,-3,5)
Database3<-c(3,-5,5,2,-3,5)
Database4<-c(1,-2,-3,2,-3,5)
Database5<-c(2,-3,5,2,-3,5)
Database6<-c(3,-5,5,2,-3,5)
D<-data.frame(Database1,Database2,Database3,Database4,Database5,Database6)
D<-as.matrix(D)
rownames(D)<-c("Database1","Database2","Database3","Database4","Database5","Database6")

#heatmap
library(plotly)
plot_ly(x=colnames(D), y=rownames(D), z = data,colors = colorRamp(c("red","blue")), type = "heatmap",colorbar = list(x = -0.4)) %>%
    layout(
      xaxis=list(tickangle = 45, autorange = "reversed"),
      yaxis = list(side = "right"),
      margin = list(l = 150, r = 50, b = 150, t = 0, pad = 4))

Answer 1

Для перемещения colorbar ближе к изменению тепловой карты colorbar = list(x = ...). Здесь вам нужно положение меньше 0 (установите на -0.1). Чтобы развернуть сюжет вправо, измените r на margin. Используется 150 (так же, как для левого поля).

library(plotly)
plot_ly(x = colnames(D), y = rownames(D), z = D,
        colors = colorRamp(c("red", "blue")), type = "heatmap",
        colorbar = list(x = -0.1)) %>%
    layout(xaxis = list(tickangle = 45, autorange = "reversed"),
           yaxis = list(side = "right"),
           margin = list(l = 150, r = 150, b = 150, t = 0, pad = 4)
    )