共起ネットワークの中心性の値をCSVファイルに出力

[N-Kentaro]

OS

Mac OS 10.13.6

KH Coderのバージョン

2.Alpha.14b[Perl5.16.3, Perl/Tk804.032]

エラーメッセージ

KH Coderで作成した共起ネットワークの中心性の値を知ることが目的です。
2019年3月のワークショップで質問させていただいた者です。あの折にいただいたご助言にしたがい、以下のように進めました。
１）自身で作成した共起ネットワークを「R Source」形式で保存しました（A1.r）。
２）「Rgui.bat」はフォルダ内になかったため、Rをインストールしました。
３）コンソール上にファイル「A1.r」をドロップした際に出現したエラーメッセージに従い、いくつかのパッケージを追加しました。（Rを使用するのは、今回が初めてです）。RStudioをインストールして、そこで作業をしています。
４）最終的に、上記エラーメッセージが表示され、この解決方法がわからなかったため質問させていただきました。

旧掲示板のNo.898も参照したのですが、コードに入る前までいけませんでした。
Rについても全くの素人のため、基本的なことを伺っているのかもしれません。
大変お忙し中恐縮なのですが、ご助言いただけましたら幸いです。
よろしくお願いいたします。

[ko-ichi-h]

Macの有償サポート版でKH Coder付属のRを起動するために

これまでのところMacでは，KH Coderに付属のRを起動するための簡単な方法を準備していませんでした。このためご自身でRと必要なRパッケージをインストールしていただいたのですが，バージョンがKH Coder付属のものと異なるため，エラーになっています。

※Rのパッケージは仕様がころころと変わり，従来のプログラムがすぐに動かなくなるのが辛いところです。

ともあれ，KH Coderに付属のRを起動する方法を考えてみました。このZipファイルをダウンロードして，中の「r.command」と「rstudio.command」を，「kh_coder」と同じ場所（khcoder3フォルダ内）にコピーしてください。
exec_R.zip

RStudio起動

そして（いったんRstudio）を終了してから，「rstudio.command」をダブルクリックしてください。Rstudioが起動して，Consoleの一行目に「R version 3.1.0」と表示されれば成功です。このように表示されれば，KH Coderに付属のRが，RStudioの中で起動しています。

なお，RStudioが「アプリケーション」フォルダの直下に置いてあることを想定していますので，これ以外の場所では動かないと思います。また「プロセスが完了しました」と書かれたターミナル画面が残りますので，これを閉じておいてください。※自動的に閉じるようにするには，こちらのページが参考になりそうです。
https://inter.work/programming_auto_exit_mac_terminal/

中心性を保存するRコマンド

RStudioで「A1.r」を開き，実行（Sourceをクリック）してください。そして，旧掲示板のNo.898に似たコードをConsoleに貼り付けて実行してください。ホームフォルダに「cnt.csv」というファイルが作成され，その中に中心性の値が保存されます。同名のファイルは問答無用で上書きされるので注意してください。

cnt <- data.frame(
	words = colnames(d)[ as.numeric( get.vertex.attribute(n2,"name") ) ],
	degree = igraph::degree(n2),
	betweenness = igraph::betweenness(n2),
	evcent = igraph::evcent(n2)$vector
)
write.table(cnt, "~/cnt.csv", sep=",", row.names=F)

RStudioを使わない場合

「r.command」をダブルクリックすると，ターミナル内でRが起動します。プロットの文字化けを防ぐために，最初に「quartz()」コマンドを実行してから，保存したA1.rを実行してください。あとは同じです。ですから，以下のようになるでしょう。

quartz() # Macでのみ必要な，文字化けを避けるためのコマンド
source("~/Downloads/khcoder3/A1.r") # フォルダ名を実際のものにあわせて変更してください

# 以下は上のものと同じ
cnt <- data.frame(
	words = colnames(d)[ as.numeric( get.vertex.attribute(n2,"name") ) ],
	degree = igraph::degree(n2),
	betweenness = igraph::betweenness(n2),
	evcent = igraph::evcent(n2)$vector
)
write.table(cnt, "~/cnt.csv", sep=",", row.names=F)

[N-Kentaro]

ko-ichi-h 様

できました・・・。
ここ数日のRとの作業が嘘のように問題なく解決されました。
感謝申し上げます。

これからもKH Coderを活用した分析をしていきたいと思っております。
どうぞよろしくお願いいたします。

Kentaro.N