「統計学関連なんでもあり」の過去ログ--- 046

No.20380　パス図を美しく書くコツ　　【コロン】　2013/10/26(Sat) 11:47

いつもお世話になっております。今回はパス図を美しく書くコツにつきましてご指導ください。
狩野裕・三浦麻子『グラフィカル多変量解析』現代数学社にある中古車価格のデータ(p.2)を用います。
使用コンピュータはMax OSXです。Rの最新版がインストールされています。

yen km year shaken
89 4.3 5 24
99 1.9 4 18
128 5.2 2 13
98 5.1 3 4
52 4 6 15
47 4.8 8 24
40 8.7 7 3
39 8.2 7 6
38 3.3 10 14
48 3.9 6 0
27 8.2 8 24
23 7.2 8 24

これをdatで読み込み，以下のような記述をして，グラフビズで表示させようとしています。

*********************************************
c<-cov(dat)

model<-specifyModel()
year->km, p1, NA
km->yen, p2, NA
year->yen, p3, NA
shaken->yen, p4, NA
km<->km, e1, NA
yen<->yen, e2, NA
year<->year, e3, NA
shaken<->shaken, e4, NA

ans<-sem(model, c, N=12)

summary(ans)

pathDiagram(ans, "model", ignore.double=FALSE, edge.labels="values", digits=3, min.rank=c("year", "shaken"), max.rank=c("km", "yen"), node.font=c("Osaka", 10))

*********************************************

これで作図すると，yenへ向かうパスの上にパス係数が表示されますし，同時に，yenの誤差も重なるように表示されてしまいます。 ignore.double=TRUEでもパス係数の位置はそのままです。こういう重なりをさせないような引数あるいは裏テクニックはあるでしょうか？

よろしくお願いいたします。

No.20381　Re: パス図を美しく書くコツ　　【コロン】　2013/10/26(Sat) 11:50

補足させてください。

min.rank や max.rank を使わなければ，数値が重なることはありません。が，できるだけ見やすいものを作成したいということで，先述の質問となったわけです。

追加の質問ですが，yearとkmがきちんと横に並ぶようなテクニックもありましたら，よろしくお願いいたします。