以交互方式更改 R 绘图中迹线中点的颜色

Question

我想创建一个交互式绘图 3D 散点，并在 R 中使用标记和线条。图形应该能够突出显示单个跟踪，这是有效的。它还应该能够根据其他变量更改颜色。

这是我想做的一个例子，突出显示工作正常，更改颜色不起作用：

library(plotly)
irs <- data.table(iris)
setkey(irs, `Species`)
p <- plot_ly(type = "scatter3d", mode = "lines+markers")
for (i in levels(irs$Species)) {
xx <- irs[i]$Sepal.Length
yy <- irs[i]$Sepal.Width
zz <- irs[i]$Petal.Length
cc <- irs[i]$Petal.Width
p <- p %>% add_trace(x = xx, y = yy, z = zz, color = cc)
}
p <- p %>%
layout(
updatemenus = list(
## set opacity per trace to highlight a single trace
list(y = 0.6,
buttons = lapply(
levels(irs$Species),
function (x) {
list(method = "restyle",
args = list("opacity",
ifelse(levels(irs$Species) == x,
1, 0.1)),
label = x)
})),
##  try to set different colors for points inside traces
## NOT WORKING
list(y = 0.4,
buttons = lapply(
names(irs),
function(x) {
list(
method = "restyle",
args = list(
"color",
split(irs[[x]], irs$Species)
),
label = x
)
}))
)
)
p

Answer 1

以下代码仅解决了问题的一小部分：如何更改单个系列的标记和线条的颜色。
我没有找到多个系列案例的解决方案。
此外，从菜单中更改颜色变量后，我没有找到自动重新缩放颜色图的方法。因此，我"手动"重新缩放了 1 到 3 之间的所有变量。
我意识到这对解决问题的贡献很小。无论如何，我希望它能帮助你。

library(plotly)
library(scales)
irs <- iris
irs[,1:4] <- apply(irs[,1:4],2, rescale, to=c(1,3))
p <- plot_ly(data = irs, type = "scatter3d", mode = "lines+markers")
p <- p %>% add_trace(x=~Sepal.Length, y=~Sepal.Width, 
z=~Petal.Length, color=~Petal.Width)
p <- p %>%
layout(
updatemenus = list(
list(y = 0.4,
buttons = lapply(
names(irs),
function(x) {
cols <- as.numeric(irs[,x])
list(
method = "restyle",
label = x,
args = list(
list(marker.color=list(cols),
line.color=list(cols), autocolorscale=TRUE)
)
)
}))
)
)
p