Я хотел бы раскрасить каждую полосу в соответствии со значением по красной шкале. Например, самым большим столбцом будет черный rgb (0,0,0), самым маленьким будет rgb (80,0,0), а промежуточные будут различаться по интенсивности.
Ссылка ниже имеет решение в python, я хотел бы сделать это заново и использовать график
Изменение цветовой шкалы на графике морского бара
library(plotly)
city <- c("Paris", "New York", "Rio", "Salvador", "Curitiba", "Natal")
value <- c(10,20,30,10,10,10)
data <- data.frame(city, value, stringsAsFactors = FALSE)
data <- data[order(-data$value, data$city),]
data$city <- factor(data$city, levels = unique(data$city)[order(data$value, decreasing = FALSE)])
fig <- plot_ly(y = reorder(data$city,-data$value), x = data$value, type = "bar", orientation = 'h') %>% layout(yaxis = list(autorange = "reversed"))
fig