R 按组自定义plotly条形图上的颜色

我有一个几乎完整的组合条形图和散点图（见下文），但我需要帮助按组自定义条形图的颜色（异常值状态）。基本上，我希望底部25%的酒吧是红色的，中间50%的酒吧是蓝色的，顶部25%的酒吧是绿色的。到目前为止，我只得到R的默认颜色。非常感谢您的帮助

#Create dataset
ho_graph1 = data.frame(
   "Code" = c("G","L","K","I","B","N","O","M","F","D","H","C","J"),
   "Rate" = c(600, 550, 500, 450, 400, 350, 300, 250, 200, 150, 100, 50, 5),
   "AUR" = c(2.8, 2.6, 2.4, 1.5, 2.1, 1.6, 1.4, 1.3, 1.1, 0.8, 0.5, 0.3, 
0.7),
   "Outlier Status" = c(rep("Bottom 25%", times=4), rep("Middle 50%", 
times=6), rep("Top 25%", times=3)))

#Sort by decreasing rate
ho_graph1$Code <- factor(ho_graph1$Code, levels = unique(ho_graph1$Code) 
   [order(ho_graph1$Rate, decreasing = TRUE)])

#Graph
plot_ly(ho_graph1, type = 'bar', x = ~Code, y = ~Rate, color = 
~Outlier.Status, legendgroup = ~Outlier.Status,
hoverinfo = "text", text = ~paste('BS-HO Prescribing Rate: ', Rate, "\n", 
  'Provider: ', Code)) %>% 
add_trace(y = ~AUR, type = 'scatter', mode='markers', yaxis = 'y2', 
    showlegend = FALSE,
    marker = list(size = 13,
    color = 'rgb(240,230,140)',
    line = list(color = 'rgb(255,215,0)',
      width = 2)),
    hoverinfo = "text",
    text = ~paste('O:E: ', AUR, "\n", 'Provider: ', Code)) %>%
layout(title = 'BS-HO Prescribing Rate and O:E by Provider, Mar-Apr 
2019',
    xaxis = list(title = ""),
    yaxis = list(side = 'left', title = 'BS-HO Prescribing Rate', showgrid = 
      FALSE, zeroline = FALSE),
    yaxis2 = list(side = 'right', overlaying = "y", title = 'O:E', showgrid 
       =  FALSE, zeroline = FALSE))

#创建数据集
ho_graph1=data.frame(
“代码”=c（“G”、“L”、“K”、“I”、“B”、“N”、“O”、“M”、“F”、“D”、“H”、“c”、“J”），
“利率”=c（60055050045040035030025020015010050,5），
“AUR”=c（2.8,2.6,2.4,1.5,2.1,1.6,1.4,1.3,1.1,0.8,0.5,0.3，
0.7),
“异常值状态”=c（代表（“底部25%”，乘以4），代表（“中间50%”，
次数=6次），代表（前25%，次数=3次）
#按递减率排序
ho_graph1$代码%
添加_跟踪（y=~AUR，type='scatter'，mode='markers'，yaxis='y2'，
showlegend=FALSE，
标记=列表（大小=13，
颜色='rgb（240230140）'，
行=列表（颜色='rgb（255215,0）'，
宽度=2），
hoverinfo=“text”，
text=~paste（'O:E:'，AUR，“\n”，“Provider:'，Code））%>%
布局图（标题='BS-HO处方率和O:E，按供应商，3-4月
2019',
xaxis=列表（title=“”），
yaxis=列表（侧边=‘左’，标题=‘BS-HO处方率’，显示网格=
假，零线=假），
yaxis2=list（side='right'，overlaying=“y”，title='O:E'，showgrid
=假，零线=假）

只需将颜色向量添加到

plot_ly（）

s

colors

参数

您可能想看看：

library(plotly)
library(listviewer)
schema(jsonedit = interactive())

这样，您就可以浏览plotly的可用跟踪及其参数

---

library（plotly）
#创建数据集
ho_graph1=data.frame(
“代码”=c（“G”、“L”、“K”、“I”、“B”、“N”、“O”、“M”、“F”、“D”、“H”、“c”、“J”），
“利率”=c（60055050045040035030025020015010050,5），
“AUR”=c（2.8,2.6,2,1.5,2.1,1.6,1.4,1.3,1.1,0.8,0.5,0.3，
0.7),
“异常值状态”=c（代表（“底部25%”，乘以4），代表（“中间50%”，
次数=6次），代表（前25%，次数=3次）
#按递减率排序
ho_graph1$代码%
添加_跟踪（y=~AUR，type='scatter'，mode='markers'，yaxis='y2'，
showlegend=FALSE，
标记=列表（大小=13，
颜色='rgb（240230140）'，
行=列表（颜色='rgb（255215,0）'，
宽度=2），
hoverinfo=“text”，
text=~paste（'O:E:'，AUR，“\n”，“Provider:'，Code））%>%
布局图（标题='BS-HO处方率和O:E，按供应商，3-4月
2019',
xaxis=列表（title=“”），
yaxis=列表（侧边=‘左’，标题=‘BS-HO处方率’，显示网格=
假，零线=假），
yaxis2=list（side='right'，overlaying=“y”，title='O:E'，showgrid
=假，零线=假）

---

您只需将颜色向量添加到

plot\u ly（）

s

colors

参数中即可

您可能想看看：

library(plotly)
library(listviewer)
schema(jsonedit = interactive())

这样，您就可以浏览plotly的可用跟踪及其参数

---

library（plotly）
#创建数据集
ho_graph1=data.frame(
“代码”=c（“G”、“L”、“K”、“I”、“B”、“N”、“O”、“M”、“F”、“D”、“H”、“c”、“J”），
“利率”=c（60055050045040035030025020015010050,5），
“AUR”=c（2.8,2.6,2,1.5,2.1,1.6,1.4,1.3,1.1,0.8,0.5,0.3，
0.7),
“异常值状态”=c（代表（“底部25%”，乘以4），代表（“中间50%”，
次数=6次），代表（前25%，次数=3次）
#按递减率排序
ho_graph1$代码%
添加_跟踪（y=~AUR，type='scatter'，mode='markers'，yaxis='y2'，
showlegend=FALSE，
标记=列表（大小=13，
颜色='rgb（240230140）'，
行=列表（颜色='rgb（255215,0）'，
宽度=2），
hoverinfo=“text”，
text=~paste（'O:E:'，AUR，“\n”，“Provider:'，Code））%>%
布局图（标题='BS-HO处方率和O:E，按供应商，3-4月
2019',
xaxis=列表（title=“”），
yaxis=列表（侧边=‘左’，标题=‘BS-HO处方率’，显示网格=
假，零线=假），
yaxis2=list（side='right'，overlaying=“y”，title='O:E'，showgrid
=假，零线=假）