
data=Table[RandomReal[BinormalDistribution[{-1,1},{1,2},r],100], {r,0.1,0.9,0.1}]; GraphicsGrid[ Partition[Labeled[ListPlot@data[[#]],"data-"<>ToString@#]&/@ Range[Length@data],3] ] n=4; myplot=Labeled[ListPlot@data[[#]],"data-"<>ToString@#]&/@ Range[Length@data[[1;;n]]]; GraphicsGrid[ Reverse[DiagonalMatrix[Range[n]]]/. Flatten@{0->"",Rule@@@Transpose@{Range[n],myplot}} ]


讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助,那請留個訊息給我~