4

我对 R 真的很陌生,我想创建一个像我在这里添加的图像,但我需要将颜色范围从 0 到 1,现在它是自动设置的,在图像中它是从 0.2 到 0.6。

这是我使用的 R 代码。Mat.csv 是一个二维矩阵,其值在 [0,1] 中。

library(plot3D)
mydata <- read.csv("D:/output/Mat.csv")
mydata <- as.matrix(mydata)
pdf("D:/output/surfaceplot.pdf")
mycols <- colorRampPalette( c("#ff0000", "#00ff00") ) 
persp3D(z = mydata, theta = 120, zlim=c(0,1))
dev.off()

示例图: 示例图

4

1 回答 1

0

争论clim会解决你的问题。(persp3Dplot3D包的函数,但persp3d也是rgl包的函数。小心。)colorRampPalette返回function插入一组给定颜色以创建新函数的参数颜色数。function因此,您可以通过给出返回的 new的输出来设置 persp3D 的颜色向量colorRampPalette。例如,persp3D(..., col = mycols(256))或者,mycolv <- mycols(256); persp3D(..., col = mycolv)

library(plot3D)

## example data
x <- seq(-pi, pi, by = 0.1)
y <- seq(-pi, pi, by = 0.1)
mydata <- outer(x, y, function(x, y) cos(x) * sin(y))
range(mydata)   # about -1 ~ 1

## colour function
mycols <- colorRampPalette(c("blue", "red", "green", "yellow"))

## draw
persp3D(z = mydata, ticktype = "detailed", col = mycols(256))                  # left
persp3D(z = mydata, ticktype = "detailed", col = mycols(256), clim=c(-2, 2))   # right

在此处输入图像描述

于 2016-08-25T01:05:58.723 回答