R 颜色代码按因子打印填充和边框

我正在尝试使用

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)

其中：

有什么想法吗

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))