自定义颜色条形图Plotly-R

我有一个分组条形图，我正在尝试为每个变量或列自定义颜色。第一次我可以用它，但如果第二次我累了，第三个酒吧就会出现

最好的方法是什么？ 我的代码如下：

SpendOpt <- plot_ly(
  x= TV_Attribute_Solver$Channel,
  y= TV_Attribute_Solver$Current.spend,
  name="Current  Spend",
  type = "bar",
  marker = list(color = "#33aFFF"))


SpendOpt <- add_trace(
  SpendOpt, 
  x=TV_Attribute_Solver$Channel,
  y=TV_Attribute_Solver$Optimized.Spend,
  name = "Optimized Spend",
  type = "bar"
)

还有没有办法在两个分组之间创造更多的空间？

---

谢谢

我想我还是继续补充一个答案吧。我只是有史以来第一次使用了

plotly

，所以我不确定您的代码是如何工作的。这就是说，如果我正确理解了这个问题，您需要基于是否优化了

的颜色。花费
或
当前的花费
。我刚刚把你上面所做的扩展到了第二部分，我得到了：

SpendOpt <- plot_ly(
   x= data$Channel,
   y= data$Current.spend,
   name="Current  Spend",
   type = "bar",
   marker = list(color = "#33aFFF")
)


SpendOpt <- add_trace(
   SpendOpt, 
   x=data$Channel,
   y=data$Optimized.Spend,
   name = "Optimized Spend",
   type = "bar",
   marker = list(color = "#afafaf")
)

SpendOpt

SpendOpt我想我应该继续添加一个答案。我只是有史以来第一次使用了
plotly
，所以我不确定您的代码是如何工作的。这就是说，如果我正确理解了这个问题，您需要基于是否优化了
的颜色。花费
或
当前的花费
。我刚刚把你上面所做的扩展到了第二部分，我得到了：

SpendOpt <- plot_ly(
   x= data$Channel,
   y= data$Current.spend,
   name="Current  Spend",
   type = "bar",
   marker = list(color = "#33aFFF")
)


SpendOpt <- add_trace(
   SpendOpt, 
   x=data$Channel,
   y=data$Optimized.Spend,
   name = "Optimized Spend",
   type = "bar",
   marker = list(color = "#afafaf")
)

SpendOpt

SpendOpt我没有在
R
中详细使用
！我本打算处理这个问题，但您使用的数据集不清楚。如果是本地的，请发布一个可复制的示例，以便其他人可以尝试提供帮助。例如，可以使用
mtcars
？而且，我发现发布你得到的和你想要的是很可取的。你的问题问的是颜色，但你最后问的是“更多的空间”。颜色之间有更多的区别吗？更多的距离分离？有视觉帮助会很有帮助。谢谢你，我已经用数据集更新了这个问题。酒吧将是当前支出和优化支出，我想为每个栏目有自己的定制颜色。我可以用marker在第一个条上完成，不幸的是，在第二个条上无法成功。1）我添加了一个
dput（）
版本（比在表视图中手动键入更容易），2）我只得到了一对蓝色条，我运行上面的操作。我应该看到一些不同的东西吗？我没有对
R
使用
plotly
，所以感谢您的间接提示！我本打算处理这个问题，但您使用的数据集不清楚。如果是本地的，请发布一个可复制的示例，以便其他人可以尝试提供帮助。例如，可以使用
mtcars
？而且，我发现发布你得到的和你想要的是很可取的。你的问题问的是颜色，但你最后问的是“更多的空间”。颜色之间有更多的区别吗？更多的距离分离？有视觉帮助会很有帮助。谢谢你，我已经用数据集更新了这个问题。酒吧将是当前支出和优化支出，我想为每个栏目有自己的定制颜色。我可以用marker在第一个条上完成，不幸的是，在第二个条上无法成功。1）我添加了一个
dput（）
版本（比在表视图中手动键入更容易），2）我只得到了一对蓝色条，我运行上面的操作。我应该看看不同的东西吗？