Re: [問題] R圖
※ 引述《bcs.bbs@ptt.cc (= ="frailty..gggg XD)》之銘言：
> par(mfrow=c(1,2 ))
> poly1 <-function(x, y){x^2 + x * y + y^2}
> y <- x <- seq(-25, 25, length = 50)
> z<-outer(x,y,FUN=poly1)
> persp(x,y,z)
> contour(z)
> 繪圖的左方persp在加入contour後被壓縮，請問
圖左方由 persp() 所繪出之圖並不是因為"加入 contour() 的圖之後"被壓縮,
這是因為第一行之 par(mfrow=c(1, 2)) 所致.
因為 par(mfrow=c(1, 2)) 本就將繪圖的版面分割為兩個長方形,
所以本就是以一個'正方形'來繪圖的 persp(),
在長方形的空間裡所能夠'擁有'的'正方形'空間就只有繪出圖形的那麼大.
也因為繪圖版面被分割為長方形的關係, 使得 contour() 的圖成為長方形的模樣.
> 該在par裡面該加什麼指令，才能讓persp的圖不會
> 被壓縮或是把他拉長也行？
或許這兩張圖本就不是很適合擺在一起,
因為兩者都需要一個正方形夠大的版面來呈現其圖形.
> 謝謝
--
夫兵者不祥之器物或惡之故有道者不處君子居則貴左用兵則貴右兵者不祥之器非君子
之器不得已而用之恬淡為上勝而不美而美之者是樂殺人夫樂殺人者則不可得志於天下
矣吉事尚左凶事尚右偏將軍居左上將軍居右言以喪禮處之殺人之眾以哀悲泣之戰勝以
喪禮處之道常無名樸雖小天下莫能臣侯王若能守之萬物將自賓天地相合以降甘露民莫
之令而自均始制有名名亦既有夫亦將知止知止可以不殆譬道之在天下210.66.0.241海