R语言：如何修改Plotly 3D曲面图的配色方案？

我来帮你搞定这个配色调整的问题！你遇到报错的核心原因是：Plotly中surface类型的trace并不支持color参数，想要修改曲面配色，得用colorscale来指定配色方案，必要时还可以配合cmin/cmax来绑定颜色范围，或者用showscale控制颜色条的显示。

修正后的完整代码 #

下面是修改了曲面配色的可运行代码，我用了内置的"Blues"配色方案，同时保留了原始的散点层：

library(plotly); library(reshape2); library(tidyverse)
sleep <- read.table("http://www.statsci.org/data/general/sleep.txt", header=T)
sleep <- na.omit(sleep)
sleep <- mutate(sleep, logTotalSleep = log(TotalSleep))
sleep_mod <- lm(logTotalSleep ~ Gestation + Danger, data=sleep)
# Graph Resolution (more important for more complex shapes)
graph_reso <- 0.5 #0.05
# Setup Axis
axis_x <- seq(min(sleep$Gestation), max(sleep$Gestation), by = graph_reso)
axis_y <- seq(min(sleep$Danger), max(sleep$Danger), by = graph_reso)
# Sample points
sleep_surface <- expand.grid(Gestation = axis_x, Danger = axis_y, KEEP.OUT.ATTRS = F)
sleep_surface$TotalSleep <- exp(predict.lm(sleep_mod, newdata = sleep_surface)) # exp to remove ln() from y
sleep_surface <- acast(sleep_surface, Danger ~ Gestation, value.var = "TotalSleep") #y ~ x
# Plot
p <- plot_ly(data = sleep) %>% 
  add_trace(x = ~Gestation, y = ~Danger, z = ~TotalSleep, 
            type = "scatter3d", mode = "markers", opacity = .8) %>% 
  add_trace(z = sleep_surface, x = axis_x, y = axis_y, type = "surface",
            colorscale = "Blues", # 指定内置配色方案
            cmin = min(sleep$TotalSleep), # 绑定颜色范围到原始数据的TotalSleep区间
            cmax = max(sleep$TotalSleep),
            showscale = TRUE) %>% # 显示颜色条（可选，默认会显示）
  layout(scene = list(xaxis = list(title = 'Gestation Period (days)'), 
                      yaxis = list(title = 'Danger Index'), 
                      zaxis = list(title = 'Hours of Sleep')))
p

更多配色方案选择 #

1. 内置配色方案

Plotly提供了很多现成的colorscale，你可以直接替换colorscale的值，比如：

• "Viridis"（经典的科学配色）
• "YlGnBu"（黄绿到蓝渐变）
• "Reds"（红色系渐变）
• "Jet"（彩虹色，适合区分数值差异）
• "Hot"（暖色调渐变）

2. 自定义渐变配色

如果你想要完全自定义的配色，可以用列表格式定义颜色节点，比如创建一个从深蓝到橙红的渐变：

add_trace(z = sleep_surface, x = axis_x, y = axis_y, type = "surface",
          colorscale = list(
            list(0, "#1a237e"),    # 数值最小时的颜色
            list(0.5, "#bbdefb"),  # 中间值的颜色
            list(1, "#e53935")     # 数值最大时的颜色
          ),
          cmin = min(sleep$TotalSleep),
          cmax = max(sleep$TotalSleep))

关键注意点 #

• 散点层（scatter3d）可以用color参数调整点的颜色，但曲面层（surface）只能用colorscale
• cmin和cmax是可选的，但设置后可以让颜色映射和原始数据的数值范围对齐，避免曲面颜色和散点的数值脱节
• 如果不想显示右侧的颜色条，可以把showscale设为FALSE

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