Color bars in plotly

[Mohamed_Fergany]

Hi everyone,

I made a bar plot with Plotly which I'd like to give each bar a unique color automatically like when we set fill = col_name in ggplot. Now with plotly I have tried setting the marker = list(color = ~col_name) , but it gave all bars the same color.
Any ideas how could I overcome this issue

Thanks

[ismirsehregal]

Please note the color parameter:

library(plotly)

DF <- data.frame(Animals = c("giraffes", "orangutans", "monkeys"), SF_Zoo = c(20, 14, 23))

fig <- plot_ly(DF, x = ~Animals, y = ~SF_Zoo, color = ~Animals, type = 'bar')
fig <- fig %>% layout(yaxis = list(title = 'Count'))

fig

Mapping custom colors:

library(plotly)

DF <- data.frame(Animals = c("giraffes", "orangutans", "monkeys"), SF_Zoo = c(20, 14, 23))

fig <- plot_ly(DF, x = ~Animals, y = ~SF_Zoo, color = ~Animals, colors = c("red", "green", "blue"), type = 'bar')
fig <- fig %>% layout(yaxis = list(title = 'Count'))

fig

[Mohamed_Fergany]

Thanks @ismirsehregal for your help. Unfortunately when I do so the plot won't appear in the output. Thus I have to set the color using the marker list.

[ismirsehregal]

It's hard to tell what's going wrong without seeing your code.

[Mohamed_Fergany]

Sure here it's

restaurants_per_area <- air_store_info %>%
    group_by(air_area_name) %>%
    count() %>%
    arrange(-n)
restaurants_per_area %>%
    plot_ly(
        x = ~air_area_name, 
        y = ~n, type = 'bar', 
        marker = list(color = ~air_area_name, colorscale = list(c(1, 65), c("lawngreen", "red"))), 
        height = 1000) %>%
    layout(
        title = list(
            text = 'The number of restaurants at each location', 
            font = list(color = 'steelblue', size = 25),
            y = 0.97
        ),
        xaxis = list(title = "Air Area Name", categoryorder = 'total ascending', color = 'green'),
        yaxis = list(title = 'Number of Restaurants', color = 'green')
    )

[ismirsehregal]

Can you please add the output of dput(restaurants_per_area)?

[Mohamed_Fergany]

structure(list(air_area_name = c("Fukuoka-ken Fukuoka-shi Daimyō", 
"Tōkyō-to Shibuya-ku Shibuya", "Tōkyō-to Minato-ku Shibakōen", 
"Tōkyō-to Shinjuku-ku Kabukichō", "Tōkyō-to Setagaya-ku Setagaya", 
"Tōkyō-to Chūō-ku Tsukiji", "Ōsaka-fu Ōsaka-shi Ōgimachi", 
"Hiroshima-ken Hiroshima-shi Kokutaijimachi", "Tōkyō-to Meguro-ku Kamimeguro", 
"Hokkaidō Sapporo-shi Minami 3 Jōnishi", "Tōkyō-to Suginami-ku Asagayaminami", 
"Tōkyō-to Chiyoda-ku Kudanminami", "Ōsaka-fu Ōsaka-shi Kyūtarōmachi", 
"Hyōgo-ken Kōbe-shi Kumoidōri", "Miyagi-ken Sendai-shi Kamisugi", 
"Fukuoka-ken Fukuoka-shi Hakata Ekimae", "Tōkyō-to Taitō-ku Higashiueno", 
"Tōkyō-to Chūō-ku Ginza", "Hokkaidō Asahikawa-shi 6 Jōdōri", 
"Shizuoka-ken Hamamatsu-shi Motoshirochō", "Tōkyō-to Toshima-ku Minamiikebukuro", 
"Hyōgo-ken Kakogawa-shi Kakogawachō Kitazaike", "Ōsaka-fu Ōsaka-shi Shinmachi", 
"Hyōgo-ken Himeji-shi Yasuda", "Tōkyō-to Kōtō-ku Tōyō", 
"Tōkyō-to Minato-ku Akasaka", "Fukuoka-ken Fukuoka-shi Shiobaru", 
"Fukuoka-ken Itoshima-shi Maebarunishi", "Hiroshima-ken Fukuyama-shi Higashisakuramachi", 
"Hyōgo-ken Nishinomiya-shi Rokutanjichō", "Niigata-ken Niigata-shi Gakkōchōdōri 1 Banchō", 
"Fukuoka-ken Fukuoka-shi Momochi", "Fukuoka-ken Kurume-shi Jōnanmachi", 
"Hyōgo-ken Kōbe-shi Sumiyoshi Higashimachi", "Tōkyō-to Itabashi-ku Itabashi", 
"Tōkyō-to Nakano-ku Nakano", "Tōkyō-to Tachikawa-shi Izumichō", 
"Tōkyō-to Bunkyō-ku Kasuga", "Tōkyō-to Setagaya-ku Okusawa", 
"Tōkyō-to Shinagawa-ku Hiromachi", "Tōkyō-to Toshima-ku Higashiikebukuro", 
"Fukuoka-ken Fukuoka-shi Torikai", "Fukuoka-ken Kitakyūshū-shi Ōtemachi", 
"Hokkaidō Sapporo-shi Kotoni 2 Jō", "Hyōgo-ken Takarazuka-shi Tōyōchō", 
"Ōsaka-fu Ōsaka-shi Ōhiraki", "Tōkyō-to Adachi-ku Chūōhonchō", 
"Tōkyō-to Edogawa-ku Chūō", "Tōkyō-to Machida-shi Morino", 
"Tōkyō-to Nerima-ku Toyotamakita", "Tōkyō-to Ōta-ku Kamiikedai", 
"Tōkyō-to Shinjuku-ku Nishishinjuku", "Tōkyō-to Taitō-ku Asakusa", 
"Fukuoka-ken Kitakyūshū-shi None", "Niigata-ken Niigata-shi Teraohigashi", 
"Shizuoka-ken Shizuoka-shi Ōtemachi", "Tōkyō-to Ōta-ku Kamata", 
"Fukuoka-ken Fukuoka-shi Imaizumi", "Fukuoka-ken Fukuoka-shi Takatori", 
"Fukuoka-ken Fukuoka-shi Tenjin", "Fukuoka-ken Kitakyūshū-shi Konyamachi", 
"Fukuoka-ken Yame-shi Motomachi", "Hiroshima-ken Hiroshima-shi Nagarekawachō", 
"Hokkaidō Abashiri-shi Minami 6 Jōhigashi", "Hokkaidō Katō-gun Motomachi", 
"Hokkaidō Sapporo-shi Atsubetsuchūō 1 Jō", "Hokkaidō Sapporo-shi Kita 24 Jōnishi", 
"Hyōgo-ken Amagasaki-shi Higashinanamatsuchō", "Hyōgo-ken Kōbe-shi Motomachidōri", 
"Niigata-ken Kashiwazaki-shi Chūōchō", "Niigata-ken Nagaoka-shi Ōtedōri", 
"Ōsaka-fu Higashiōsaka-shi Aramotokita", "Ōsaka-fu Neyagawa-shi Honmachi", 
"Ōsaka-fu Ōsaka-shi Fuminosato", "Ōsaka-fu Ōsaka-shi Kyōmachibori", 
"Ōsaka-fu Ōsaka-shi Nakanochō", "Ōsaka-fu Ōsaka-shi Nanbasennichimae", 
"Ōsaka-fu Sakai-shi Minamikawaramachi", "Ōsaka-fu Suita-shi Izumichō", 
"Shizuoka-ken Numazu-shi Miyukichō", "Tōkyō-to Bunkyō-ku Sendagi", 
"Tōkyō-to Chiyoda-ku Kanda Jinbōchō", "Tōkyō-to Fuchū-shi Miyanishichō", 
"Tōkyō-to Katsushika-ku Tateishi", "Tōkyō-to Kita-ku Ōjihonchō", 
"Tōkyō-to Koganei-shi Honchō", "Tōkyō-to Kōtō-ku Kameido", 
"Tōkyō-to Kōtō-ku Tomioka", "Tōkyō-to Meguro-ku Jiyūgaoka", 
"Tōkyō-to Meguro-ku Takaban", "Tōkyō-to Minato-ku Roppongi", 
"Tōkyō-to Musashino-shi Kichijōji Honchō", "Tōkyō-to Musashino-shi Midorichō", 
"Tōkyō-to Setagaya-ku Kitazawa", "Tōkyō-to Setagaya-ku Sangenjaya", 
"Tōkyō-to Shibuya-ku Dōgenzaka", "Tōkyō-to Shibuya-ku Higashi", 
"Tōkyō-to Shibuya-ku Jingūmae", "Tōkyō-to Shinagawa-ku Higashigotanda", 
"Tōkyō-to Taitō-ku Kuramae", "Tōkyō-to Toshima-ku Mejiro", 
"Tōkyō-to Toshima-ku Nishiikebukuro", "Tōkyō-to Toshima-ku Sugamo"
), n = c(64L, 58L, 51L, 39L, 30L, 29L, 25L, 23L, 22L, 21L, 21L, 
20L, 19L, 17L, 17L, 16L, 16L, 14L, 13L, 13L, 12L, 10L, 10L, 9L, 
9L, 8L, 7L, 7L, 7L, 7L, 7L, 6L, 6L, 6L, 6L, 6L, 6L, 5L, 5L, 5L, 
5L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 3L, 3L, 
3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L)), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -103L), groups = structure(list(
    air_area_name = c("Fukuoka-ken Fukuoka-shi Daimyō", "Fukuoka-ken Fukuoka-shi Hakata Ekimae", 
    "Fukuoka-ken Fukuoka-shi Imaizumi", "Fukuoka-ken Fukuoka-shi Momochi", 
    "Fukuoka-ken Fukuoka-shi Shiobaru", "Fukuoka-ken Fukuoka-shi Takatori", 
    "Fukuoka-ken Fukuoka-shi Tenjin", "Fukuoka-ken Fukuoka-shi Torikai", 
    "Fukuoka-ken Itoshima-shi Maebarunishi", "Fukuoka-ken Kitakyūshū-shi Konyamachi", 
    "Fukuoka-ken Kitakyūshū-shi None", "Fukuoka-ken Kitakyūshū-shi Ōtemachi", 
    "Fukuoka-ken Kurume-shi Jōnanmachi", "Fukuoka-ken Yame-shi Motomachi", 
    "Hiroshima-ken Fukuyama-shi Higashisakuramachi", "Hiroshima-ken Hiroshima-shi Kokutaijimachi", 
    "Hiroshima-ken Hiroshima-shi Nagarekawachō", "Hokkaidō Abashiri-shi Minami 6 Jōhigashi", 
    "Hokkaidō Asahikawa-shi 6 Jōdōri", "Hokkaidō Katō-gun Motomachi", 
    "Hokkaidō Sapporo-shi Atsubetsuchūō 1 Jō", "Hokkaidō Sapporo-shi Kita 24 Jōnishi", 
    "Hokkaidō Sapporo-shi Kotoni 2 Jō", "Hokkaidō Sapporo-shi Minami 3 Jōnishi", 
    "Hyōgo-ken Amagasaki-shi Higashinanamatsuchō", "Hyōgo-ken Himeji-shi Yasuda", 
    "Hyōgo-ken Kakogawa-shi Kakogawachō Kitazaike", "Hyōgo-ken Kōbe-shi Kumoidōri", 
    "Hyōgo-ken Kōbe-shi Motomachidōri", "Hyōgo-ken Kōbe-shi Sumiyoshi Higashimachi", 
    "Hyōgo-ken Nishinomiya-shi Rokutanjichō", "Hyōgo-ken Takarazuka-shi Tōyōchō", 
    "Miyagi-ken Sendai-shi Kamisugi", "Niigata-ken Kashiwazaki-shi Chūōchō", 
    "Niigata-ken Nagaoka-shi Ōtedōri", "Niigata-ken Niigata-shi Gakkōchōdōri 1 Banchō", 
    "Niigata-ken Niigata-shi Teraohigashi", "Ōsaka-fu Higashiōsaka-shi Aramotokita", 
    "Ōsaka-fu Neyagawa-shi Honmachi", "Ōsaka-fu Ōsaka-shi Fuminosato", 
    "Ōsaka-fu Ōsaka-shi Kyōmachibori", "Ōsaka-fu Ōsaka-shi Kyūtarōmachi", 
    "Ōsaka-fu Ōsaka-shi Nakanochō", "Ōsaka-fu Ōsaka-shi Nanbasennichimae", 
    "Ōsaka-fu Ōsaka-shi Ōgimachi", "Ōsaka-fu Ōsaka-shi Ōhiraki", 
    "Ōsaka-fu Ōsaka-shi Shinmachi", "Ōsaka-fu Sakai-shi Minamikawaramachi", 
    "Ōsaka-fu Suita-shi Izumichō", "Shizuoka-ken Hamamatsu-shi Motoshirochō", 
    "Shizuoka-ken Numazu-shi Miyukichō", "Shizuoka-ken Shizuoka-shi Ōtemachi", 
    "Tōkyō-to Adachi-ku Chūōhonchō", "Tōkyō-to Bunkyō-ku Kasuga", 
    "Tōkyō-to Bunkyō-ku Sendagi", "Tōkyō-to Chiyoda-ku Kanda Jinbōchō", 
    "Tōkyō-to Chiyoda-ku Kudanminami", "Tōkyō-to Chūō-ku Ginza", 
    "Tōkyō-to Chūō-ku Tsukiji", "Tōkyō-to Edogawa-ku Chūō", 
    "Tōkyō-to Fuchū-shi Miyanishichō", "Tōkyō-to Itabashi-ku Itabashi", 
    "Tōkyō-to Katsushika-ku Tateishi", "Tōkyō-to Kita-ku Ōjihonchō", 
    "Tōkyō-to Koganei-shi Honchō", "Tōkyō-to Kōtō-ku Kameido", 
    "Tōkyō-to Kōtō-ku Tomioka", "Tōkyō-to Kōtō-ku Tōyō", 
    "Tōkyō-to Machida-shi Morino", "Tōkyō-to Meguro-ku Jiyūgaoka", 
    "Tōkyō-to Meguro-ku Kamimeguro", "Tōkyō-to Meguro-ku Takaban", 
    "Tōkyō-to Minato-ku Akasaka", "Tōkyō-to Minato-ku Roppongi", 
    "Tōkyō-to Minato-ku Shibakōen", "Tōkyō-to Musashino-shi Kichijōji Honchō", 
    "Tōkyō-to Musashino-shi Midorichō", "Tōkyō-to Nakano-ku Nakano", 
    "Tōkyō-to Nerima-ku Toyotamakita", "Tōkyō-to Ōta-ku Kamata", 
    "Tōkyō-to Ōta-ku Kamiikedai", "Tōkyō-to Setagaya-ku Kitazawa", 
    "Tōkyō-to Setagaya-ku Okusawa", "Tōkyō-to Setagaya-ku Sangenjaya", 
    "Tōkyō-to Setagaya-ku Setagaya", "Tōkyō-to Shibuya-ku Dōgenzaka", 
    "Tōkyō-to Shibuya-ku Higashi", "Tōkyō-to Shibuya-ku Jingūmae", 
    "Tōkyō-to Shibuya-ku Shibuya", "Tōkyō-to Shinagawa-ku Higashigotanda", 
    "Tōkyō-to Shinagawa-ku Hiromachi", "Tōkyō-to Shinjuku-ku Kabukichō", 
    "Tōkyō-to Shinjuku-ku Nishishinjuku", "Tōkyō-to Suginami-ku Asagayaminami", 
    "Tōkyō-to Tachikawa-shi Izumichō", "Tōkyō-to Taitō-ku Asakusa", 
    "Tōkyō-to Taitō-ku Higashiueno", "Tōkyō-to Taitō-ku Kuramae", 
    "Tōkyō-to Toshima-ku Higashiikebukuro", "Tōkyō-to Toshima-ku Mejiro", 
    "Tōkyō-to Toshima-ku Minamiikebukuro", "Tōkyō-to Toshima-ku Nishiikebukuro", 
    "Tōkyō-to Toshima-ku Sugamo"), .rows = structure(list(1L, 
        16L, 58L, 32L, 27L, 59L, 60L, 42L, 28L, 61L, 54L, 43L, 
        33L, 62L, 29L, 8L, 63L, 64L, 19L, 65L, 66L, 67L, 44L, 
        10L, 68L, 24L, 22L, 14L, 69L, 34L, 30L, 45L, 15L, 70L, 
        71L, 31L, 55L, 72L, 73L, 74L, 75L, 13L, 76L, 77L, 7L, 
        46L, 23L, 78L, 79L, 20L, 80L, 56L, 47L, 38L, 81L, 82L, 
        12L, 18L, 6L, 48L, 83L, 35L, 84L, 85L, 86L, 87L, 88L, 
        25L, 49L, 89L, 9L, 90L, 26L, 91L, 3L, 92L, 93L, 36L, 
        50L, 57L, 51L, 94L, 39L, 95L, 5L, 96L, 97L, 98L, 2L, 
        99L, 40L, 4L, 52L, 11L, 37L, 53L, 17L, 100L, 41L, 101L, 
        21L, 102L, 103L), ptype = integer(0), class = c("vctrs_list_of", 
    "vctrs_vctr", "list"))), row.names = c(NA, -103L), class = c("tbl_df", 
"tbl", "data.frame"), .drop = TRUE))

[ismirsehregal]

Not sure if this is what you are looking for?

library(plotly)

restaurants_per_area %>%
  plot_ly(
    x = ~air_area_name, 
    y = ~n, type = 'bar',
    color = ~n,
    colors = c("lawngreen", "red"),
    height = 1000) %>%
  layout(
    title = list(
      text = 'The number of restaurants at each location', 
      font = list(color = 'steelblue', size = 25),
      y = 0.97
    ),
    xaxis = list(title = "Air Area Name", categoryorder = 'total ascending', color = 'green'),
    yaxis = list(title = 'Number of Restaurants', color = 'green')
  )

Or categorical coloring:

library(plotly)

restaurants_per_area %>%
  plot_ly(
    x = ~air_area_name, 
    y = ~n, type = 'bar',
    color = ~air_area_name,
    height = 1000) %>%
  layout(
    title = list(
      text = 'The number of restaurants at each location', 
      font = list(color = 'steelblue', size = 25),
      y = 0.97
    ),
    xaxis = list(title = "Air Area Name", categoryorder = 'total ascending', color = 'green'),
    yaxis = list(title = 'Number of Restaurants', color = 'green')
  )

[Mohamed_Fergany]

The categorical coloring didn't work for me but the count one worked fine.
Many thanks for your help @ismirsehregal