[英]3D surface plot in R
我正在嘗試在R-Project中創建一個3D圖。 我知道之前有這樣的問題,但我無法用那里的答案解決我的問題。
我有的是:
Vdot_L = c(0,1,2,3,4,5,6,7,8,9,10)
Qdot_verd = c(2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000)
zeta_ex = 0.4
T_U = 293.15 #K
T_verd = 273.15 #K
T_cond=Vdot_L*2+T_U
epsilon_k = zeta_ex * T_verd/(T_cond - T_verd)
Pfun <- function(a,b) {a/b}
P <- outer(Qdot_verd, epsilon_k, FUN="Pfun")
我想創建一個彩色表面情節與Vdot_L
在X軸, Qdot_verd
在Y軸和P
在Z軸。 我很滿意每一個幫助。
這樣的事情?
library(rgl)
zlim <- range(P,na.rm=T)
zlen <- zlim[2] - zlim[1] + 1
color.range <- rev(rainbow(zlen)) # height color lookup table
colors <- color.range[P-zlim[1]+1] # assign colors to heights for each point
persp3d(Vdot_L, Qdot_verd, P, col=colors)
你有沒有調查過Plot3D包? http://cran.r-project.org/web/packages/plot3D/plot3D.pdf這里有一個名為surf3d
的方法,看起來它可以做你想要的。 導入包后,將值轉換為矩陣並寫入:
surf3d(Vdot_L, Qdot_verd, P)
還有一個顏色參數,您可以調整。
或者,使用rgl,並避免矩陣問題:
rgl.surface(Vdot_L, Qdot_verd, P)
另請查看這些帖子以獲取更多信息: R:2D矩陣的3D曲面圖 如何創建3D - MATLAB風格 - R中的曲面圖
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.