如何将1-5级告警与指定颜色绑定实现3D绘图统一配色？

当数据缺失部分告警等级时，直接使用colors向量会导致颜色与等级的对应关系错位——plot_ly会自动根据现有数据的等级分配颜色，而非按预设的1-5级顺序绑定。要实现固定等级-颜色映射，需做以下修改：

关键修改点 #

• 将告警等级字段转为因子类型，明确指定所有可能的等级（1到5），确保缺失等级也被纳入映射体系
• 使用命名颜色向量，直接将每个等级值与对应颜色绑定

修改后的完整代码 #

# 将告警等级转为因子，指定所有1-5级的水平
mile$TwSeverity <- factor(mile$TwSeverity, levels = c(1,2,3,4,5))

x <- mile$Locn
y <- mile$Twist3m
z <- mile$TwSeverity

axx <- list(
  title = "Location (mile)"
)
axy <- list(
  title = "Twist3m"
)
axz <- list(
  title = "TwSeverity" , nticks= 5,
  range = c(1,5)
)

Twfig <- plot_ly(mile, x = ~x,
                 y = ~y, 
                 z = ~as.numeric(z),  # 转为数值类型适配z轴刻度
                 type = 'scatter3d', 
                 mode = 'lines+markers', 
                 color = ~z,  # 使用因子类型的等级字段
                 colors = c("1"="green", "2"="yellow", "3"="coral", "4"="pink", "5"="blue")) %>%
  layout(title = 'Twist3m fault')

Twfig <- Twfig %>% layout(scene = list(xaxis=axx,yaxis=axy,zaxis=axz))
Twfig

代码说明 #

1. 因子转换：factor(mile$TwSeverity, levels = c(1,2,3,4,5))强制保留所有1-5级的分类，即使数据中缺失3级，这个等级也会在颜色映射中被保留
2. 命名颜色向量：c("1"="green", "2"="yellow", ...)直接指定每个等级对应的颜色，彻底避免因数据缺失导致的颜色错位
3. z轴适配：因为z轴需要数值类型，所以用as.numeric(z)将因子转回数值，保证轴刻度正常显示

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