求R语言lattice包wireframe函数中该配色的色值代码

• 先获取目标色值：用系统自带取色工具（Windows取色器、Mac数码测色计）或专业图像工具（GIMP、Photoshop）提取图中颜色的十六进制色值（格式如#FF5733）。
• 在wireframe中应用配色：通过col（线条颜色）、col.regions（填充区域颜色）等参数直接指定色值或调色板。示例代码如下：

library(lattice)

# 生成模拟数据
x <- seq(-10, 10, length.out = 30)
y <- seq(-10, 10, length.out = 30)
z <- outer(x, y, function(x, y) sqrt(x^2 + y^2))

# 替换为你提取的实际色值
custom_cols <- c("#2E86AB", "#F2D388", "#C98474")

# 绘制带自定义配色的wireframe图
wireframe(z ~ x * y, 
          col = custom_cols,
          col.regions = colorRampPalette(custom_cols)(100),
          shade = TRUE,
          main = "自定义配色3D曲面图")

• 若目标是连续渐变配色：用colorRampPalette()将提取的关键色值转换为渐变调色板，再传入col.regions即可实现平滑过渡效果。

内容的提问来源于stack exchange，提问作者QUANG-TRUNG NGUYEN