CODEWITHSUNDEEP
rplotlyr-plotly
DLo
DLo

Reputation: 221

custom colors in R Plotly

I'm currently a beginner in Plotly and have a problem I can't seem to solve. I have my plotly stacked bar chart but I don't know how to color each individual category. I am currently using R.

This is my current stacked bar chart: enter image description here

My current code is:

p = plot_ly(x, x = day, y = count, type = "bar", group = status) %>% layout(barmode = "stack", showlegend = T)

I've tried using the "color = " parameter and also markers, but nothing correctly colors my graph.

Upvotes: 12

Views: 34882

Answers (4)

Joe
Joe

Reputation: 369

Here are a few modifications (~,and ~factor())to the plot_ly statement to get the output to work with newer versions of plotly. 

require(dplyr)
require(plotly)

set.seed(42)

df <- data.frame(x = rep(LETTERS[1:5], 3), 
                 y = rexp(15, rate = 0.5),
                 z = c(rep("Adam", 5), rep("Arthur", 5), rep("Ford", 5)))
df <- arrange(df, desc(z))

plot_ly(df, 
        x = ~x, 
        y = ~y, 
        color = ~factor(z), 
        colors = c("grey50", "blue", "red"), 
        type = "bar") %>% 
  layout(barmode = "stack")

cheers

Upvotes: 3

bhive01
bhive01

Reputation: 251

I came across this question today because I was trying to define colors for every individual marker and struggling. The answer came from one of the other answers, but that answer said it didn't work for this question, but it did for mine.

Here is a gist with and MRE: https://gist.github.com/bhive01/d4821f6d73ea0f428767d9bb68fdd404

Essentially, rather than define colors with color and/or colors, you use marker = list(color = ~color). This assumes you have data like mine where every point has a color. This was critical for me because when I used color = ~Hex, colors = ~Hex the colors were used, but the data got sorted and the colors did not match their correct marker.

Upvotes: 2

mal
mal

Reputation: 1120

You need to specify a factor for the color parameters, and then a vector of colours for the colors parameter.

Here is a simple solution. Note the ordering required on the data frame before plotting.

require(dplyr)
require(plotly)

set.seed(42)

df <- data.frame(x = rep(LETTERS[1:5], 3), 
                 y = rexp(15, rate = 0.5),
                 z = c(rep("Adam", 5), rep("Arthur", 5), rep("Ford", 5)))
df <- arrange(df, desc(z))

plot_ly(df, 
        x = x, 
        y = y, 
        color = z, 
        colors = c("grey50", "blue", "red"), 
        type = "bar") %>% 
    layout(barmode = "stack")

The ordering on the data frame matters strangely. I would have thought plot_ly would use the order of the levels but it doesn't.

EDIT: This example uses plotly 3.x.x. If you use plotly 4.x.x or above, this code may not work as is. See here for more details: https://www.r-bloggers.com/upgrading-to-plotly-4-0-and-above/

Upvotes: 28

royr2
royr2

Reputation: 2289

Here's something that might help. Note that for some reason, Method 1 causes the legend entries to be black. So I am also suggesting a workaround. 

library(plotly)
library(dplyr)
library(data.table)

mtcars$color <- factor(mtcars$gear, labels = c("blue", "red", "green"))

# Method 1
# Legend entries are all black
plot_ly(mtcars, x = as.factor(cyl), y = mpg, group = gear, type = "bar", marker = list(color = color), name = "test") %>% 
  layout(barmode = "stack", showlegend = T)

# Method 2
# Workaround
dt <- data.table(mtcars)

p <- dt[gear == 3,] %>% 
  plot_ly(x = factor(cyl), y = mpg, name = "Gear = 3", type = "bar", marker = list(color = "blue"))

p <- dt[gear == 4,] %>% 
  add_trace(x = factor(cyl), y = mpg, name = "Gear = 4", type = "bar", marker = list(color = "red"))

p <- dt[gear == 5,] %>% 
  add_trace(x = factor(cyl), y = mpg, name = "Gear = 5", type = "bar", marker = list(color = "green"))

p <- layout(p, barmode = "stack")

p

Upvotes: 4

Related Questions