У меня есть куча «парных» наблюдений из исследования по одному и тому же предмету, и я пытаюсь построить сюжет для спагетти, чтобы визуализировать эти наблюдения следующим образом:

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)

Это дает правильный сюжет, который я ищу. Но код показывает каждую сгруппированную строку в своем собственном цвете, что действительно раздражает и отвлекает. Я не могу найти способ избавиться от цветов.

Бонусный вопрос: я действительно хочу использоватьcolor = state и фактически закрасьте наклонные линии этой переменной вместо этого.

Любые подходы / мысли?