如何在R中以用户定义的颜色填充箱形图？

Question

这个问题显然是thread的重复。

但是我无法应用评论中给出的解决方案，因此是我的问题。

我想使用用户定义的颜色用plotly填充箱形图。

在下面的代码中，我希望这些框分别用红色和蓝色填充，但它们保留默认颜色。

library(plotly)

d1 <- data.frame(val = rnorm(n=1000), type=1)
d2 <- data.frame(val = rnorm(n=1000), type=2)
col1 <- "red"
col2 <- "blue"

plot_ly() %>%
  add_trace(data = d1, y = ~val, type="box", colors=col1) %>%
  add_trace(data = d2, y = ~val, type="box", colors=col2) 

我设法更改了线条和标记的颜色，但没有更改填充。

Answer 1

使用参数fillcolor

plot_ly() %>%
    add_trace(data = d1, y = ~val, type = "box", fillcolor = col1) %>%
    add_trace(data = d2, y = ~val, type = "box", fillcolor = col2)

Answer 2

怎么样

plot_ly(colors=c(col1, col2)) %>%
  add_trace(data = d1, y = ~val, type="box", color=I(col1)) %>%
  add_trace(data = d2, y = ~val, type="box", color=I(col2))