Библиотека Plotly на языке R, две перекрывающиеся полосы тепловой карты не могут изменять положение, когда я использую функцию subplot

Question

В те дни я новичок в R, Shiny и Plotly. Я пытаюсь сделать два графика тепловой карты на одной диаграмме, поэтому я использовал функцию подзаголовка. Я закодировал каждый график (p, q), p и q относятся к типу тепловой карты. Затем используйте подзаговор, чтобы объединить их в один сюжет. Но я обнаружил, что полосы шкалы цветов перекрываются. Как на изображении ниже. Я пробовал использовать множество методов, например%>% colorbar (title = "default") Ни один из них не работает. Все примеры, которые я нашел в Интернете, относятся к python. Я надеюсь, что кто-нибудь может дать мне небольшую идею или примеры, чтобы решить эту проблему.

    p <- plot_ly(
      x = zz["chemicalname",],
      y = c("tanimoto"),
      z = as.matrix(t(zz["tanimoto",])),
      type = "heatmap"
    ) 
    
    q <- plot_ly(
      x = zz["chemicalname",],
      y = c("wauc_correlation", "ac50_correlation", "pod_correlation",
            "acb_correlation", "acc_correlation"),
      z =  zz[c("wauc_correlation", "ac50_correlation", "pod_correlation",
                "acb_correlation", "acc_correlation"),],
      type = "heatmap"
    )  
    
    subplot(
      p,q, nrows = 2,shareX = TRUE
    )

Перекрывающийся сюжет