如何在R语言Plotly 3D散点图中将NA值设为半透明灰色？

要实现将NA值显示为半透明灰色、数值型数据使用蓝红配色的需求，你可以通过拆分数据为含NA/不含NA两组并分别添加trace的方式实现——因为Plotly默认无法直接通过color参数单独控制NA的样式。

具体实现代码如下：

library("plotly")

# 定义蓝红配色方案
blue_red <- rev(c("#A50026", "#D73027", "#F46443", "#FDAE61", "#FEE090"
                , "#E0F3F8", "#ABD9E9", "#74ADD1", "#4575B4", "#313695"))

# 构造示例数据，给Merc的mpg设为NA
mtcars$brand <- sapply(strsplit(rownames(mtcars), " "), "[[", 1)
mtcars[mtcars$brand=="Merc","mpg"] <- NA

# 拆分数据：非NA组和NA组
mtcars_non_na <- mtcars[!is.na(mtcars$mpg), ]
mtcars_na <- mtcars[is.na(mtcars$mpg), ]

# 初始化图表，先添加非NA数据的散点（使用蓝红配色）
fig <- plot_ly(mtcars_non_na, x = ~wt, y = ~hp, z = ~qsec, 
               marker = list(size = 6),
               color = ~mpg,
               colors = blue_red,
               type = "scatter3d", 
               mode = "markers",
               name = "有mpg值数据")

# 添加NA数据的散点，设置为半透明灰色
fig <- fig %>% add_trace(data = mtcars_na,
                         x = ~wt, y = ~hp, z = ~qsec,
                         marker = list(size = 6, color = "gray", opacity = 0.5),
                         type = "scatter3d",
                         mode = "markers",
                         name = "mpg为NA的数据",
                         showlegend = TRUE) # 可选：控制NA组是否在图例显示

fig

关键说明： #

• 用is.na()拆分数据后，将NA值单独作为一个trace添加，可完全自定义其颜色、透明度、大小等样式。
• 非NA数据保留原蓝红配色逻辑，不会被NA组干扰。
• 可通过showlegend参数按需控制NA组是否在图例中显示。

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