【解決】【統計環境Ｒ】散布図での漢字ラベル描画がうまくいかない

Windows版日本語グラフパッチ

Rをインストールしてあるディレクトリの
etcRdevgaを以下のように変更してください。
引用元：http://www.okada.jp.org/RWiki/

原因は不明ですけど、win2000の場合は、「Rdevgr」で指定するフォントを、
漢字フォントに変えないとダメみたいです。
引用元のファイルと中身を入れ替えればｏｋでした。

（メモ）
・Ｒの2.51版で比較したところ、設定ファイル（Rdevgr）の項目は同じでした。
・フォントは「MS Mincho」から「MS Gothic」に置き換えしました。
　（これは趣味の問題でしょう）

【統計環境Ｒ】散布図での漢字ラベル描画

Ｒという統計環境をいま勉強してます。会社で動作が不安定だった
散布図の漢字ラベルですけど、自宅だと普通に上手く表示できる。
（会社では漢字が白い四角）
違いは、ＯＳの違い位と思うんだが、WIN2000（会社）でダメ
でＸＰ（自宅）でＯＫというだけなのかな？
もう少し調べてます。

#Book1.txt　の読み込み
data1<-read.table("Book1.txt",header=TRUE,row.names=1)
#表示
data1
##表示結果
# 数値１ 数値２
#東京 1 1.5
#大阪 2 2.5
#名古屋 3 3.5
#福岡 4 4.5
#札幌 5 5.5

#デフォルトの散布図
plot(data1[,1],data1[,2])
#漢字ラベルでの散布図描画
data1.label=c("東京","大阪","名古屋","福岡","札幌"）
plot(data1[,1],data1[,2],type="n")
text(data1[,1],data1[,2],data1.label)

#もし、漢字名でなくシーケンスを表示させるなら、
plot(data1[,1],data1[,2],type="n")
text(data1[,1],data1[,2])

景況感

新車販売、２４年ぶりの低水準　３年連続のマイナス

2008年01月07日20時08分
　日本自動車販売協会連合会と全国軽自動車協会連合会が
７日発表した０７年１～１２月の新車販売台数は、前年比
６．７％減の５３５万３６４５台で、３年連続で前年実績
を下回った。８３年以来、２４年ぶりの低水準だ。
朝日新聞

今の経済状態って、悪い方向に向かっている気がして、
「年金問題」「原油高」が消費者マインドをさげているのでは
ないかと思っている。そういう見方は間違いかな？

断筆宣言

週間エコノミストの敢闘言を書かれていた日垣隆氏が
殆どの連載を終了させた。
内田樹教授は、19回目だけど、断筆宣言をした。
「断筆宣言」・・・目からウロコが落ちました。

blogに書いておくというのは、
「その時、気になった事への見解」を書くもので、
あとから、そういえば・・・と思いひもとくこともあり、
業務上も有益だったりするので、結構気に入っている

ある意味、「はてなブックマーク」の、コメント書きまくり版
だろうか。
たぶん、さらさらと、15分位で書けるものならば、毎日書いているが、
実態はそのような美しいものではない。ノタノタなのである。
もちろん、関連資料をネットでアサル関係もあるんだけれど、
言いたいことがまだ喋れない赤子宜しく、「考えていると思っている
ことが、思うように書けない」（分かりやすく言えば、疑問だらけで
考えがまとまらないことも多いということかな）

その上、メタボの関係で、走ることも（これもノタノタだが）私に課せられた試練
であるので、なかなか両立が難しい。

この際、「断筆宣言」中にしておきます。一応（笑）
書かない時期は、そういう風に思ってください。（やー楽になった）