Eu tenho um monte de observações 'emparelhadas' de um estudo para o mesmo assunto e estou tentando criar um gráfico de espaguete para visualizar essas observações da seguinte maneira:

library(plotly)
df <- data.frame(id = rep(1:10, 2),
                 type = c(rep('a', 10), rep('b', 10)),
                 state = rep(c(0, 1), 10),
                 values = c(rnorm(10, 2, 0.5), rnorm(10, -2, 0.5)))
df <- df[order(df$id), ]
plot_ly(df, x = type, y = values, group = id, type = 'line') %>%
  layout(showlegend = FALSE)

Produz o enredo correto que estou procurando. Mas, o código mostra cada linha agrupada em sua própria cor, o que é realmente irritante e perturbador. Não consigo encontrar uma maneira de me livrar das cores.

Pergunta bônus: eu realmente quero usarcolor = state e, na verdade, pinte as linhas inclinadas com essa variável.

Alguma abordagem / pensamentos?