如何在r中用绘图手动添加符号

Question

我有一个使用三个轨迹的plot_ly 3D散点图，我想为每个迹线使用不同的符号和颜色。我的代码看起来像这样

library(plotrix)
library(plotly)
library(processx)

x <- c(1, 2, 3, 4)
y <- c(2, 4, 6, 8)
z <- c(1, 2, 3, 4)
df <- data.frame(x, y, z)
z1 <- z + 1.5
df1 <- data.frame(x, y, z1)
z2 <- z + 3
df2 <- data.frame(x, y, z2)
symbols <- c("circle", "diamond", 'triangle-down')
colors <- c("gray", "lightgray", "darkslategray")
plot<- plot_ly()%>%
  add_trace(data = df, x = ~x, y = ~y, z = ~z,type = "scatter3d",
    mode = 'markers', marker = list(size = 8, symbol = 1, symbols = symbols, color = 1, colors = colors)) %>%
  add_trace(data = df1, x = ~x, y = ~y, z = ~z1,type = "scatter3d",
            mode = 'markers', marker = list(size = 8, symbol = 2, symbols = symbols, color = 2, colors = colors)) %>%
  add_trace(data = df2, x = ~x, y = ~y, z = ~z2,type = "scatter3d",
            mode = 'markers', marker = list(size = 8, symbol = 8, symbols = symbols, color = 3, colors = colors)) %>%
  layout(title = 'Explore Options')
plot

，我想拥有第一个使用圆形标记，第二颗钻石和第三个三角形的痕迹，每个钻石和第三个三角形的颜色不同，但我只是得到彩色圆圈，即

Answer 1

一个选项是将列添加到您的数据框架中，然后可以在color和symbol属性上映射。此外，我使用颜色和符号的命名向量将颜色和符号分配给新列的类别。另请注意，颜色和符号不应放在标记规范的list内。最后，我简化了您的代码。

“ triangle-down”符号不起作用。 nofollow noreferrer”>参考，仅（“ circle” |“ circle-open” |“ cross” |“ diamond” |“ diamond-open” |“ square” |“ square” |“ square-open” |“ x”）被接受。

library(plotly)

x <- c(1, 2, 3, 4)
y <- c(2, 4, 6, 8)
z <- c(1, 2, 3, 4)
df <- data.frame(x, y, z)
z1 <- z + 1.5
df1 <- data.frame(x, y, z = z1)
z2 <- z + 3
df2 <- data.frame(x, y, z = z2)

df$color <- "a"
df1$color <- "b"
df2$color <- "c"
symbols <- c("circle", "diamond", 'square')
colors <- c("gray", "lightgray", "darkslategray")
names(colors) <- names(symbols)  <- c("a", "b", "c")

plot<- plot_ly(x = ~x, y = ~y, z = ~z, color = ~color, symbol = ~color, colors = colors, symbols = symbols, marker = list(size = 8)) %>%
  add_trace(data = df, type = "scatter3d", mode = 'markers') %>%
  add_trace(data = df1, type = "scatter3d", mode = 'markers') %>%
  add_trace(data = df2, type = "scatter3d", mode = 'markers') %>%
  layout(title = 'Explore Options')
plot