设置子图颜色绘图 R

Question

I have this code for subplots, i want to set de colors by a custom palette, but seems not to take any color.

data.frame(x = sample(letters[1:3],30,replace = TRUE)) %>%
  mutate(y = rnorm(30),
         z = runif(30,10,20)) %>%
  group_by(x) %>%
  do(p=plot_ly(.,x = ~y, y=~z, type = "scatter", mode = "lines", line = list(color = "blue","red","green")))) %>%
  subplot(nrows = 1,
                  shareX = FALSE,
                  shareY = TRUE,
                  margin = 0.0001)

Answer 1

One option to achieve your desired result would be to map the grouping variable on the color "aesthetic" and to set the custom palette via the colors argument where personally I prefer to make use of a named vector to assign colors to categories:

library(plotly)

set.seed(123)

data.frame(x = sample(letters[1:3], 30, replace = TRUE)) %>%
  mutate(
    y = rnorm(30),
    z = runif(30, 10, 20)
  ) %>%
  group_by(x) %>%
  do(p = plot_ly(., x = ~y, y = ~z, color = ~x, type = "scatter", mode = "lines", colors = c(a = "blue", b = "red", c = "green"))) %>%
  subplot(
    nrows = 1,
    shareX = FALSE,
    shareY = TRUE,
    margin = 0.0001
  )