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.
如果這篇文章對你有幫助，那請留個訊息給我～