※ 引述《[email protected] (= ="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海