我正在尝试在不同月份绘制数据，而不同的痕迹代表了诸如

Question

数据的视觉检查 -

          y year       time
1  15.70525 2005 0.41666667
2  15.82955 2005 0.50000000
3  17.55470 2005 0.58333333
4  18.10086 2005 0.66666667
5  17.49667 2005 0.75000000
6  19.34727 2005 0.83333333
7  20.03129 2005 0.91666667
8  23.48669 2006 0.00000000
9  12.53699 2006 0.08333333
10 15.46702 2006 0.16666667

存在解决方案，但我想避免它。因此，在天然ggplotly中，如何-y

将多个轨迹绘制在一个长

plotly

中，每个跟踪的数据由分组变量定义。

定义自定义

data.frame

。

我有一个工作解决方案，但如果这是

colorscale

中的iDomatic方法，则不是苏族人。但是，我完全卡在2.

1. I通过将数据从长度转换为宽度并为每列添加痕迹来实现点1。对于一些预定义的颜色，我的方法在下面 - colorbar
2. 这个产量 - next，我如何告诉
plotly

在我的情况下，是一个连续的变量？换句话说，我该如何手动定义一个

library(plotly)
yr.names <- as.character(unique(data[['year']]))
colours <- c("#F8766D", "#7CAE00", "#00BFC4", "#C77CFF")
data <- stats::reshape(
  data = data, direction = 'wide', idvar = c('time'), 
  timevar = 'year', v.names = 'y'
)
colnames(data)[2:ncol(data)] <- yr.names
data <- data[order(data[['time']]), ]
p <- plot_ly(data = data)
for (i in seq_along(yr.names)) {
  p <- add_trace(
    p = p, y = data[[yr.names[i]]], x = ~time, name = yr.names[i], 
    type = 'scatter', mode = 'lines', line = list(color = colours[i])
  )
}
p

/

plotly

将做我想做的事情？

我的尝试不起作用 -

year

this Trief -

显然不正确。有指针吗？

data提出问题colorbar 这里是一种解决方案，但仍然有效。

colorscale

您说您想避免

nCol <- length(colours)
colourscale <- data.frame(
  y = seq(0, 1, length.out = nCol), 
  col = as.character(colours)
)
p <- plot_ly(
  x = seq(0, 1, length.out = nCol), type = 'scatter', mode = 'markers', 
  y = mean(data[[yr.names[1]]], na.rm = TRUE), hoverinfo = 'none', marker = list(
    size = rep(0, nCol), color = as.numeric(yr.names), colorscale = colourscale,
    colors = colours, 
    colorbar = list(
      title = 'Year', nticks = nCol
    )
  )
)
for (i in seq_along(yr.names)) {
  p <- add_trace(
    p = p, y = data[[yr.names[i]]], x = data[['time']], name = yr.names[i], 
    type = 'scatter', mode = 'lines+markers', line = list(color = colours[i]), 
    showlegend = FALSE
  )
}
p

data <- data.frame(
  y = c(
    15.705248, 15.82955, 17.554701, 18.100864, 17.496668, 19.347265, 
    20.031291, 23.486694, 12.536987, 15.467018, 14.233539, 17.783058, 
    16.291602, 16.980282, 18.612189, 16.623343, 21.430241, 23.575517, 
    23.334206, 28.038383, 16.763869, 19.792754, 16.427305, 21.000742, 
    20.681002, 21.83489, 23.93020353, 22.93035694, 23.26333992, 
    25.25003022, 25.80609, 29.665356, 21.654285, 18.264945, 23.107677, 
    22.91251, 19.43174
  ), year = c(
    2005, 2005, 2005, 2005, 2005, 2005, 2005, 2006, 2006, 2006, 2006, 
    2006, 2006, 2006, 2006, 2006, 2006, 2006, 2006, 2007, 2007, 2007, 
    2007, 2007, 2007, 2007, 2007, 2007, 2007, 2007, 2007, 2008, 2008, 
    2008, 2008, 2008, 2008
  ), time = c(
    0.416666666666667, 0.5, 0.583333333333333, 
    0.666666666666667, 0.75, 0.833333333333333, 0.916666666666667, 
    0, 0.0833333333333333, 0.166666666666667, 0.25, 0.333333333333333, 
    0.416666666666667, 0.5, 0.583333333333333, 0.666666666666667, 
    0.75, 0.833333333333333, 0.916666666666667, 0, 0.0833333333333333, 
    0.166666666666667, 0.25, 0.333333333333333, 0.416666666666667, 
    0.5, 0.583333333333333, 0.666666666666667, 0.75, 0.833333333333333, 
    0.916666666666667, 0, 0.0833333333333333, 0.166666666666667, 
    0.25, 0.333333333333333, 0.416666666666667
  )
)

，我发现它更加直截了当

library(plotly)

p1 <- data %>% plot_ly(x = ~time, 
                 y = ~y, 
                 type = 'scatter', 
                 mode = 'lines', 
                 color = ~year,
                 marker = list(size = 1),
                 transforms = list(
                   list(
                     type = 'groupby',
                     groups = ~year,
                     styles = list(
                      list(target = 2005, value = list(marker =list(color = "#440154FF"))),
                      list(target = 2006, value = list(marker =list(color = "#3B528BFF"))),
                      list(target = 2007, value = list(marker =list(color = "#1FA187FF"))),
                      list(target = 2008, value = list(marker =list(color = "#9FDA3AFF")))
                    )
                   )
                 ))
p1

Answer 1

这似乎是情节中的错误。较新的版本修复了此错误。我最初的尝试现在可以按预期工作。这是输出的外观

ggplotly

-