红色刻度条形图

Question

我想根据红色刻度上的值对每个条形进行着色。例如，最大的条将是黑色 rgb(0,0,0)，最小的将是 rgb(80,0,0)，而中间的则强度会有所不同。

下面的链接在python中有一个解决方案，我想用re和plotly来做

Changing color scale in seaborn bar plot

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

Answer 1

如果我是你，我会使用 R 中的 ggplot2 包。你可以将 ggplot 图直接输入 Plotly。

在此处查看备忘单：https://github.com/rstudio/cheatsheets/blob/master/data-visualization-2.1.pdf

有一个函数 scale_fill_gradient() 可以在其中设置低值和高值。它可以完美地满足您的目的。