Re: 共起ネットワークのedgeをきれいに描きたい (田村貴紀) KH Coder 旧掲示板

ありがとうございます！！！
いつも大変お世話になります。
一度はうまく言って大喜びしましたが、書き換えて単語を英語にしたら

------------

> load("E:\\Dropbox\\khcoderbak\\datatatanga\\tatagangajapaG.rEng")
エラー: ファイルのマジック・ナンバーが不正です (ファイルが壊れているかもしれません)。データはロードされませんでした
追加情報: 警告メッセージ:
file ‘tatagangajapaG.rEng’ has magic number 'd <- '
Use of save versions prior to 2 is deprecated
---------------
が出て動かなくなりました。
とりあえず、スクリプト自体をメールでもお送ります。

> こんにちは、樋口です。書き込みありがとうございます。
> ここではお久しぶりでしょうか。お気軽に掲示板お使いいただければ幸いです。
>
> さて、Rのコマンドを使ってSVG形式で保存していただくのが一手かと思います。
>
> #---------------------------------------
> library(Cairo)
> Cairo(
> width = 640,
> height = 640,
> file = "c:/khcoder/net.svg",
> type = "svg",
> onefile = TRUE,
> bg = "transparent",
> dpi = 72,
> units = "px",
> pointsize = 12
> )
> par(family="Meiryo UI")
>
> # ここで共起ネットワーク作成
>
> dev.off()
> #---------------------------------------
>
> 「ここで共起ネットワーク作成」より上のコマンドを実行してから、*.rファ
> イルをドラッグ＆ドロップして共起ネットワークを作成していただく形です。
> その後「dev.off()」を忘れずに実行して下さい。
>
> これで、Rの画面上に表示されるのではなく、かわりに「c:/khcoder/net.svg」
> というファイルに保存されるかと思います。