抑制绘图子图中的迹线颜色和图例

Question

我正在生成R中的可plotly图形列表：

set.seed(1)
scatter.list <- vector(mode="list",3)
require(plotly)

for(i in 1:3){
  df <- data.frame(x=rnorm(100),y=rnorm(100),a=LETTERS[sample(26,100,replace=T)])
  scatter.list[[i]] <- plot_ly(type='scatter',mode="markers",x=~df$x,y=~df$y,text=~df$a,data=df) %>%
    layout(xaxis=list(title=xlab,zeroline=F),yaxis=list(title=ylab,zeroline=F))
}

然后想用subplot绘制它们：

plotly::subplot(scatter.list,nrows=3,titleX=T,titleY=T)

这使：

我的问题是如何使所有子图中的所有点都具有相同的颜色，以及如何隐藏图例？

Answer 1

您可以使用showlegend = FALSE和通过markers = list('color' = myColor))手动设置标记颜色来隐藏图例

require(plotly)
set.seed(1)
scatter.list <- vector(mode = "list", 3)
for(i in 1:3){
  df <- data.frame(x = rnorm(100),
                   y = rnorm(100),
                   a = LETTERS[sample(26, 100, replace = T)]
                   )
  scatter.list[[i]] <- plot_ly(type = 'scatter',
                               mode = 'markers',
                               x = ~df$x,
                               y = ~df$y,
                               text = ~df$a,
                               data= df, 
                               marker = list(color = 'darkred'), 
                               showlegend = FALSE) %>%
    layout(xaxis = list(title = xlab,
                        zeroline = F),
           yaxis = list(title = ylab,
                        zeroline = F))
}

plotly::subplot(scatter.list,
                nrows=3)