Блог

Я пытаюсь создать тепловую карту с точками в середине некоторых плиток. При выполнении одного графика с тепловой картой и трассировкой рассеяния я не могу получить цветовую полосу для тепловой карты и записи легенды для отображения диаграммы рассеяния вместе:

 library(plotly)
data = expand.grid(1:3, 1:3)
data['color'] = 1:9

p <- plot_ly() %>% 
  add_trace(data = data, x = ~Var1, y = ~Var2, z = ~color, type = "heatmap") %>% 
  add_trace(data = data, x = ~Var1, y = ~Var2) 
 

нет записи легенды для диаграммы рассеяния

Я пробовал различные комбинации showlegend, showscale, name на уровне трассировки, но безрезультатно и с загадочными результатами:

Появится запись легенды, предполагает, что цветовая полоса первой трассировки переопределяет запись легенды второй?:

 p <- plot_ly() %>% 
  add_trace(data = data, x = ~Var1, y = ~Var2, z = ~color, type = "heatmap", showscale = F) %>% 
  add_trace(data = data, x = ~Var1, y = ~Var2, type = "scatter") %>% 
  layout(showlegend = T)
 

подзаголовки приводят к появлению записей условных обозначений разброса:

 subplot(p,p)
 

Чтобы было ясно, я хотел бы получить связанный график, но с записью легенды для трассировки рассеяния под цветовой полосой для тепловой карты.

 > packageVersion("plotly")
[1] ‘4.9.4.1’