[程式] 關於R的3D繪圖問題
各位大大好,我卡了快一個星期,才厚著臉皮來到這項各位高手求救,因為我是統計軟體
新手,之前是英文系的同學,所以完全沒用過統計軟體,但我自己有摸索R軟體快三個月
,我還是不大懂如何畫3D立體圖形,拜託請各位大大教我如何解決我現在遇到的問題,
小弟感激不盡!
問題1.
請問X/Y在CSV檔案中,是表示X軸為1-~1,而Y軸為1-~1 ,請問我輸入指令之後,R軟體也
會是認為X軸為-1~1而Y軸為-1~1嗎?下圖的80表為X軸為-1,Y軸為-1時的值。
如下所示:
X/Y -1 -0.9 . . . . . 1
-1 80 . . . . . . .
. . . . . . . . .
. . . . . . . . .
. . . . . . . . .
1 . . . . . . . 90
問題2.
請問用這樣的檔案如何畫成3D圖檔呢?小弟已經卡了快一星期了...請問可以求助各位高手
幫我解答嗎?謝謝各位高手。
我想畫成X軸為-1~1,而Y軸為-1~1,Z軸為X跟Y軸的值。
這是我的指令,如下:
na.df<-read.table("fig3.csv", header=T, row.name=NULL, sep=",", dec=".")
attach(na.df)
x<-y<-seq(-1,1,length=202)
f<-function(x,y){(exp(-0.5*x^2-0.5*y^2))/(2*pi)}
z<-outer(x,y,f)
persp(na.df,
theta=35,phi=25,col='lightblue',ylab = expression(paste(phi[2])))
title(main = "Exchange rare volatility",
ylab = expression(paste(phi[2])),
xlab = expression(paste(phi[1])),
zlab = "Variance")
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 134.208.61.165
※ 編輯: carlos0987 來自: 134.208.61.165 (04/16 01:22)
→
04/16 01:48, , 1F
04/16 01:48, 1F
→
04/16 01:49, , 2F
04/16 01:49, 2F
→
04/16 01:56, , 3F
04/16 01:56, 3F
→
04/16 02:07, , 4F
04/16 02:07, 4F
→
04/16 02:33, , 5F
04/16 02:33, 5F
→
04/16 02:34, , 6F
04/16 02:34, 6F
→
04/16 08:56, , 7F
04/16 08:56, 7F
→
04/16 08:57, , 8F
04/16 08:57, 8F
→
04/17 21:06, , 9F
04/17 21:06, 9F
→
04/17 21:06, , 10F
04/17 21:06, 10F
→
04/17 21:11, , 11F
04/17 21:11, 11F
→
04/17 21:12, , 12F
04/17 21:12, 12F