多个add_markers R

Question

我正尝试在同一图上显示此数据的不同颜色（相同的x.axis和相同的y.axis。

我的第一个代码：

fig <- plot_ly(partitions, x = ~`_Dim.1`, y = ~`_Dim.2`, name = 'Complete link : Data Scaled, K = 2', type = 'scatter', mode = 'markers',
              marker = list(size=12,symbol=0,color=~`_z_comp_scale`),
              hoverinfo = 'text',
              text = ~paste('</br> Pays: ', code_country)) %>%
  add_trace(marker=list(size=12,symbol=1,color=~`_z_comp`),inherit=TRUE,name="complet : K = 2") %>% 
  add_markers(marker=list(size=12,symbol=2,color=~`_z_comp2`),name="complet : K = 5") %>% 
  add_markers(marker=list(size=12,symbol=3,color=~`_z_avg_scale`),name="average : data Scaled, K = 3") %>%
  add_markers(marker=list(size=12,symbol=4,color=~`_z_avg_scale2`),name="average : data Scaled, K = 8") %>%
  add_markers(marker=list(size=12,symbol=5,color=~`_z_avg`),name="average :  K = 2") %>%
  add_markers(marker=list(size=12,symbol=6,color=~`_z_avg2`),name="average :  K = 5") %>%
  add_markers(marker=list(size=12,symbol=7,color=~`_z_ward_scale`),name="ward : data scaled, k = 2") %>%
  add_markers(marker=list(size=12,symbol=8,color=~`_z_ward`),name="ward : k = 2") %>%
  add_markers(marker=list(size=12,symbol=9,color=~`_z_ward2`),name="ward : k = 5") 

fig

给我：Plot

但是我想更改颜色，因为对于具有八组的分区，对于具有实际颜色的眼睛来说不是很清楚。

所以我试试这个：

fig <- plot_ly(partitions, x = ~`_Dim.1`, y = ~`_Dim.2`, name = 'Complete link : Data Scaled, K = 2', type = 'scatter', mode = 'markers',
              size=12,symbol=0,colors=couleurs,color=~`_z_comp_scale`,
              hoverinfo = 'text',
              text = ~paste('</br> Pays: ', code_country)) %>%
  add_markers(marker=list(),size=12,symbol=0,colors=couleurs,color=~`_z_comp`,name="complet : K = 2") %>% 
  add_markers(size=12,symbol=0,colors=couleurs,color=~`_z_comp2`,name="complet : K = 5") %>% 
  add_markers(size=12,symbol=3,colors=couleurs,color=~`_z_avg_scale`,name="average : data Scaled, K = 3") %>%
  add_markers(size=12,symbol=3,colors=couleurs,color=~`_z_avg_scale2`,name="average : data Scaled, K = 8") %>%
  add_markers(size=12,symbol=3,colors=couleurs,color=~`_z_avg`,name="average :  K = 2") %>%
  add_markers(size=12,symbol=3,colors=couleurs,color=~`_z_avg2`,name="average :  K = 5") %>%
  add_markers(size=12,symbol=2,colors=couleurs,color=~`_z_ward_scale`,name="ward : data scaled, k = 2") %>%
  add_markers(size=12,symbol=2,colors=couleurs,color=~`_z_ward`,name="ward : k = 2") %>%
  add_markers(size=12,symbol=2,colors=couleurs,color=~`_z_ward2`,name="ward : k = 5") 
fig <- fig %>% layout(legend = l)
fig

结果是这样：Plot

我想删除图例的顶部。

我认为我已经很接近我的目标，请问有什么帮助吗？谢谢您的关注。

Max Mamazita

Answer 1

enter image description here

在此情节上，颜色使清晰区分每个组成为可能，但关注点在图例级别。每个add_markers出现在图例的顶部。这不是很漂亮：（