颜色代码按因素绘制填充和边框

我正在尝试使用 R 是的 plotly 对于这些数据:

df <- data.frame(name = c(paste0("B.",1:3),paste0("C.",1:3)),
                 x = 0:5, y = 0.2, width = 0.75,
                 group = c(rep("B",3),rep("C",3)),
                 class = c(rep("P",2),rep("X",2),rep("P",2)),
                 stringsAsFactors=F)

正如你们所见 name 在里面 df 与一个 group 还有 class .

我想要酒吧的颜色 班 P 服从他们的命令 组 为了 班 X 透明(或灰色),但具有两者的边框颜色 班 十、 和 P 服从他们的命令 组 .

以下是我到目前为止制作情节的方式,只是通过 组 :

df$group <- factor(df$group)
library(plotly)
library(dplyr)

plotly::plot_ly(df,showlegend=T) %>%
  plotly::add_bars(x=~x,y=~y,width=~width,color=~group) %>%
  plotly::layout(legend=list(x=1,y=0)) %>%
  plotly::layout(xaxis=list(title=NA,zeroline=F,tickangle=45,range=x.range,tickvals=df$x,ticktext=df$name),yaxis=list(title=NA,zeroline=F,showgrid=F,range=c(0,1),showticklabels=F))

它给出:

知道吗?