自定義顏色條形圖Plotly - R.

Question

我有一個分組的條形圖，我試圖自定義每個變量或列的顏色。 我能夠為第一個做到這一點，但是如果我厭倦了第二個第三個棒就會填充。

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

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

數據將是：

> dput(data)

structure(list(Channel = c("13th Street", "7 TWO Sydney", "7MATE Sydney", 
"Arena", "ATN-7 Sydney", "BBC Knowledge"), Current.spend = c(2782L, 
2075L, 990L, 1194L, 32534L, 356L), Optimized.Spend = c(3060.2, 
2282.5, 891, 1313.4, 33410.127, 391.344)), .Names = c("Channel", 
"Current.spend", "Optimized.Spend"), class = "data.frame", row.names = c(NA, 
-6L))

> data
        Channel Current.spend Optimized.Spend 
1   13th Street          2782        3060.200  
2  7 TWO Sydney          2075        2282.500   
3  7MATE Sydney           990         891.000  
4         Arena          1194        1313.400   
5  ATN-7 Sydney         32534       33410.127   
6 BBC Knowledge           356         391.344 

還有辦法在兩個分組之間創造更多空間嗎？ 謝謝

Answer 1

我想我會繼續並添加一個答案。 我有史以來第一次只使用了plotly ，所以我不確定你的代碼是如何工作的。 也就是說，如果我正確理解了這個問題，你需要的顏色是基於它的Optimized.spend還是Current.spend 。 我只是將你上面所做的擴展到了第二部分，我得到了這個：

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

我明白了：

如果這是您的預期，也許您的設置還會發生其他事情。 我沒有看到提到的“第三個酒吧”。 您可能想嘗試ls()來查看您創建的變量或仔細檢查其他變量。

如果這不是您想要實現的目標，請隨時評論/澄清。 這可以追溯到我在評論中的建議，即可重復的示例和視覺效果比單詞更響亮：例如，在您選擇的編輯器中截取您獲得的內容並使用標簽或手繪校正進行標記。