运行如下语句后得到的数据，请教怎么把各结果（stage.vectors和pop.sizes）用图形表示（XY散点或线 形式，在同1张图上显示或者分开两张图）：
语句：
> stages <- c("s", "j", "a")
> A <- matrix(c(0, 0, 0.002, 0.005, 0.09, 0, 0, 0.81,0.99), nrow = 3, byrow = TRUE, dimnames = list(stages,stages))
> p <- pop.projection(A, n, 20)
> p
结果：
$lambda
[1] 0.990009
$stable.stage
s j a
2.016088e-03 1.120038e-05 9.979727e-01
$stage.vectors
0 1 2 3 4 5 6 7 8 9 10 11 12
s 0 10 9.90 9.801 9.703071 9.6061278 9.510154e+00 9.415139e+00 9.321073e+00 9.227947e+00 9.135751e+00 9.044477e+00 8.954114e+00
j 0 0 0.05 0.054 0.053865 0.0533632 5.283333e-02 5.230577e-02 5.178321e-02 5.126585e-02 5.075366e-02 5.024659e-02 4.974458e-02
a 5000 4950 4900.50 4851.535 4803.063885 4755.0768768 4.707569e+03 4.660536e+03 4.613973e+03 4.567876e+03 4.522238e+03 4.477057e+03 4.432327e+03
13 14 15 16 17 18 19
s 8.864655e+00 8.776089e+00 8.688407e+00 8.6016024 8.515665e+00 8.430585e+00 8.346356e+00
j 4.924758e-02 4.875556e-02 4.826844e-02 0.0477862 4.730877e-02 4.683611e-02 4.636818e-02
a 4.388044e+03 4.344204e+03 4.300801e+03 4257.8322789 4.215293e+03 4.173178e+03 4.131484e+03
$pop.sizes
[1] 5000.000 4960.000 4910.450 4861.390 4812.821 4764.736 4717.132 4670.004 4623.346 4577.155 4531.425 4486.152 4441.331 4396.958 4353.029 4309.538
[17] 4266.482 4223.856 4181.655 4139.877
$pop.changes
[1] 0.9920000 0.9900101 0.9900092 0.9900091 0.9900091 0.9900091 0.9900091 0.9900091 0.9900091 0.9900091 0.9900091 0.9900091 0.9900091 0.9900091 0.9900091
[16] 0.9900091 0.9900091 0.9900091 0.9900091
