R语言plot_ly散点图如何设置自定义颜色范围与阈值截断

你之前操作失效的原因是：colorbar(limits = ) 仅控制色条的显示范围，不会修改原始数据的颜色映射逻辑，超出该范围的数值会被判定为无效值，统一显示为默认灰色，因此出现所有点失色的问题。另外你原有代码中marker参数的colorbar = "Hot"属于参数误用，指定颜色梯度应该用colorscale参数。

以下是两种可实现「超出阈值的数值统一映射为端点颜色」的方案： #

方案1：直接通过plotly原生参数设置（推荐） #

在marker参数中添加cmin和cmax指定颜色映射的上下限即可，超出范围的数值会自动映射为对应端点的颜色，无需修改原始数据，代码最简洁：

data(mtcars)
library(plotly)

plot_tmp <- plot_ly(data = mtcars, 
                    marker = list(size=10, 
                                  colorscale = "Hot",
                                  cmin = 250, # 颜色映射最小值
                                  cmax = 350), # 颜色映射最大值
                    hovertext = ~mtcars[,3],
                    type = "scatter",
                    mode = "markers",
                    x = ~mtcars[,1], 
                    y = ~mtcars[,2], 
                    color = ~mtcars[,3]) 

plot_tmp

方案2：预处理数据实现自定义截断 #

如果需要保留原始数值在悬停文本中的展示，或者需要更复杂的截断逻辑，可以先对用来映射颜色的数值做截断处理，仅修改颜色映射的数据源，不影响其他展示逻辑：

data(mtcars)
library(plotly)

# 对颜色映射值做截断，超出250-350的数值统一设为端点值
color_val <- pmax(pmin(mtcars[,3], 350), 250)

plot_tmp <- plot_ly(data = mtcars, 
                    marker = list(size=10, 
                                  colorscale = "Hot"),
                    hovertext = ~mtcars[,3], # 悬停仍显示原始数值
                    type = "scatter",
                    mode = "markers",
                    x = ~mtcars[,1], 
                    y = ~mtcars[,2], 
                    color = ~color_val) %>%
  # 按需调整色条的刻度展示
  colorbar(title = "disp", tickvals = seq(250,350,20))

plot_tmp

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