![[PukiWiki]](image/wadanyan.png "[PukiWiki]")
[[ろぎ/Pajek形式データいじりツール]] [[まつ本]]~ [[ろぎ/Pajek形式データいじりツール]]~ #contents **2つのmboxからメトリクスを収集，砂時計を書きたい人用 [#z13057de] +（必要であれば）mboxに記載されているメールアドレスに置換ルールを適用 --&attachref(replaceMAddressUsingRuleList.pl); ---[入力]~ 生mbox~ 整形ルール表~ ---[出力]~ 置換済みmbox~ ---[サンプル]~ > cat replaceRule.txt 置換対象 置換後 joshua@slive.com @gmail.com shinsuke-m@a.com matumoto-s@b.com > perl replaceMAddressUsingRuleList.pl dev_200111 replaceRule.txt > dev_200111~ +mboxから3ヶ月窓でnetを作成 --&attachref(getRelationWithCluster.pl); from まえし; ---[入力]~ mbox1~ mbox2~ mbox3~ ---[出力]~ net ---[サンプル]~ > perl getRelationWithCluster.pl dev_200110 dev_200111 dev_200112 > dev_200110.net +2つのnetを共通アドレスでマージ --&attachref(mergeNetworksByName_v2.pl); ---[入力]~ net1~ net2~ ---[出力]~ マージ済みpaj~ ---[サンプル]~ > perl mergeNetworksByName_v2.pl dev_200110.net user_200110.net > merge_200110.paj +pajファイルから媒介フロー次数を記したvecを作成（現在は使わないメトリクス） --&attachref(coordinator_metrics.pl); ---[入力]~ paj~ ---[出力]~ メトリクスを列挙したvec ---[サンプル]~ > perl coordinator_metrics.pl merge_200111.paj +中心性の収集（pajek マクロにて実装） --&attachref(batches.zip); ---[入力]~ paj~ ---[出力]~ vec~ ---[サンプル]~ pajekにマクロを食わせるだけ． ただしファイルの絶対パスを適切なものに書き換える必要あり +4,5で作成した各メトリクスをxlsにまとめる --&attachref(correctMetricsUniq.pl); ---[入力]~ 計算対象となったpaj~ メトリクスを記したvec~ メトリクスを記したvec~ メトリクスを記したvec~ ... ---[出力]~ xls ---[サンプル]~ perl correctMetricsUniq.pl merge_200111.paj degree_input_200111.vec degree_output_200111.vec degree_all_200111.vec ... > +プロット（Rにて実装） --ファイル読み込み時の絶対パスは決め打ちなので，適切なものに書き換える必要有り~ --&attachref(readfiles.r); データの取り込み~ --&attachref(plotAverage.r); メトリクスの上位10％の平均の推移を描画~ --&attachref(plotAverage_top5coordinator.r); トップの5コーディネータの順位グラフを描画~ --手順 +++readfiles.rの絶対パスの書き換え +++R起動 +++Rウィンドウにreadfiles.rをD&D +++RウィンドウにcorrectAverage.rをD&D +砂時計データ（TopNコーディネータを強調したpajファイル）の作成~~ --&attachref(makeSandglass.pl); ---[入力]~ paj~ 強調対象のtopNコーディネータを列挙したtxtファイル~ ---[出力]~ paj~ ---[サンプル]~ > cat top5.txt "jslive@gmail.com" "wrowe@rowe-clan.net" "nick@.." > perl makeSandglass.pl merge_200111.paj top5.txt > merge_200111_emp.paj
