Plotly条形图颜色缩放问题：如何使用RBrewerPallet调色板

你已经走对了第一步——用marker = list(color = ~total)实现了按变量的颜色缩放！要换成RColorBrewer的专业调色板，只需要稍微调整代码，结合RColorBrewer包和Plotly的颜色轴（coloraxis）功能即可，具体步骤如下：

1. 加载必要的包 #

首先确保你安装并加载了RColorBrewer包，它提供了大量经过优化的调色板：

library(plotly)
library(dplyr)
library(RColorBrewer)

2. 预处理数据（和你的原有代码一致） #

先对airquality数据分组求和：

df <- airquality %>% 
  group_by(Month) %>% 
  summarise(total = sum(Wind))

3. 自定义调色板并绘制图表 #

这里提供两种常用方式，你可以根据需求选择：

方式一：直接使用RColorBrewer的离散调色板（Plotly自动插值为连续渐变） #

这种方式简单快捷，适合快速测试不同调色板：

plot_ly(df, x = ~Month, y = ~total, type = 'bar',
        marker = list(
          color = ~total,  # 绑定颜色到total变量
          coloraxis = "coloraxis"  # 指定使用自定义颜色轴
        )) %>%
  layout(
    coloraxis = list(
      colors = brewer.pal(9, "YlGnBu"),  # 选择RColorBrewer的调色板（这里是黄-绿-蓝渐变）
      colorbar = list(title = list(text = "Total Wind"))  # 添加颜色条标题
    )
  )

方式二：生成平滑的连续渐变调色板 #

如果你想要更细腻的颜色过渡，可以用colorRampPalette把离散的调色板扩展成连续的颜色向量：

# 生成包含100种颜色的平滑渐变（基于RColorBrewer的"RdYlBu"调色板）
my_palette <- colorRampPalette(brewer.pal(9, "RdYlBu"))(100)

plot_ly(df, x = ~Month, y = ~total, type = 'bar',
        marker = list(
          color = ~total,
          coloraxis = "coloraxis"
        )) %>%
  layout(
    coloraxis = list(
      colors = my_palette,
      colorbar = list(title = list(text = "Total Wind"))
    )
  )

额外提示 #

• 查看所有可用的RColorBrewer调色板：运行display.brewer.all()，你会看到不同类型的调色板（sequential连续渐变、diverging两极分化、qualitative定性分类），选择适合你数据类型的即可。
• 常用的连续调色板推荐："YlGnBu"、"RdYlGn"、"YlOrRd"；两极分化调色板推荐"RdBu"、"BrBG"。

内容的提问来源于stack exchange，提问作者NikitaBobukh