Tengo un montón de observaciones 'emparejadas' de un estudio para el mismo tema, y estoy tratando de construir un diagrama de espagueti para visualizar estas observaciones de la siguiente manera:

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)

Produce la trama correcta que estoy buscando. Pero, el código muestra cada línea agrupada en su propio color, lo cual es realmente molesto y molesto. Parece que no puedo encontrar una manera de deshacerme de los colores.

Pregunta extra: realmente quiero usarcolor = state y en realidad colorea las líneas inclinadas por esa variable en su lugar.

¿Algún enfoque / pensamiento?