相关疑难解决方法(0)

我有一堆来自同一主题的研究的“配对”观察结果，我正在尝试构建一个意大利面条图来可视化这些观察结果，如下所示：

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该变量并实际为斜线着色。

任何方法/想法？