管理R中的顏色爲plot.ly

Question

我使用plot.ly庫在shiny應用程序中進行交互式製圖，但是我遇到了管理圖表中顏色的一些麻煩。

使用plotly 4.3.5（從github）重複的例子：

library(data.table) 
library(plotly) 

dt <- data.table(campaign_week = c(1,2,3,1,2,3), category = c(rep("income",3),rep("cost",3)), 
       amount = c(100,50,35,-500,-20,-15)) 
dt_net <- dt[, .(amount = sum(amount)), by = campaign_week][,.(campaign_week, amount = cumsum(amount))] 

y <- list(title = "Income", tickformat = "$,.0f",hoverformat = "$,.2f") 

plot_ly(dt_net, x = ~campaign_week, y = ~amount, type = "scatter", 
     mode= "lines+markers", 
     line = list(color = "#00AEFF"), name = "Net Income") %>% 
    add_trace(data = dt, x = ~campaign_week, y = ~amount, color = ~category, type = "bar", 
      colors = c("#00ff00", "#ff0000")) %>% 
    layout(yaxis = y, barmode = "relative") 

這產生了我想要的圖表，然而，顏色不被正確施加到trace。我期待其中一個酒吧是紅色的，另一個是綠色的，而這條線是藍色的。

編輯添加plotly圖表的截圖創建

Answer 1

根據https://plot.ly/r/bar-charts/#bar-chart-with-relative-barmode的示例，每個類別都有一個單獨的add_trace是要走的路。

plot_ly(dt_net, x = ~campaign_week, y = ~amount, type = "scatter", 
     mode= "lines+markers", 
     line = list(color = "#00AEFF"), name = "Net Income") %>% 
    add_trace(data = dt[category=="income",] , x = ~campaign_week, y = ~amount, type = "bar", name = "income", 
      marker=list(color = "#00ff00")) %>% 
    add_trace(data = dt[category=="cost",] , x = ~campaign_week, y = ~amount, type = "bar", name = "cost", 
      marker=list(color = "#ff0000")) %>% 
    layout(yaxis = y, barmode = "relative") 

注意，這給出了一個警告，因爲條形圖的痕跡繼承散點圖mode和line屬性，但這些屬性不支持吧。你可以忽略這些警告，或者你可以在分散之前調用條形圖以避免它們...像這樣：

plot_ly() %>% 
    add_trace(data = dt[category=="income",] , x = ~campaign_week, y = ~amount, type = "bar", name = "income", 
      marker=list(color = "#00ff00")) %>% 
    add_trace(data = dt[category=="cost",] , x = ~campaign_week, y = ~amount, type = "bar", name = "cost", 
      marker=list(color = "#ff0000")) %>% 
    add_trace(data = dt_net, x = ~campaign_week, y = ~amount, type = "scatter", mode= "lines+markers", 
      line = list(color = "#00AEFF"), name = "Net Income") %>% 
    layout(yaxis = y, barmode = "relative") 

Answer 2

我恢復了通話，並添加inherit=FALSE：

library(data.table) 
library(plotly) 

dt <- data.table(campaign_week = c(1,2,3,1,2,3), category = c(rep("income",3),rep("cost",3)), 
       amount = c(100,50,35,-500,-20,-15)) 
dt_net <- dt[, .(amount = sum(amount)), by = campaign_week][,.(campaign_week, amount = cumsum(amount))] 

y <- list(title = "Income", tickformat = "$,.0f",hoverformat = "$,.2f") 

plot_ly(data=dt, x = ~campaign_week, y = ~amount, color = ~category, type = "bar", 
      colors = c("#00ff00", "#ff0000")) %>% 
    add_trace(data=dt_net, x = ~campaign_week, y = dt_net$amount, type = "scatter", 
      mode= "lines+markers", 
      line = list(color = "#00AEFF"), name = "Net Income", inherit=FALSE) %>% 
    layout(yaxis = y, barmode = "relative") 

還有一個問題與傳說：