ぎょーむ日誌 2007-01-18

2007 年 01 月 18 日 (木)

• 0700 起床． 朝飯． コーヒー． 0910 自宅発． 曇． 0925 研究室着．
• 牛原さん屋久島データ教材化作業のつづき． ひたすら R プログラミング． えーい， なんだかぢりぢりたる進捗だな．
• 窓の外はまた雪．
• A707 で配線工事せねばならぬことに．
• 午前中ついやしてまた屋久島 library(grid) graphics なぷろぐらみんぐ …… 22 樹種のシュート伸長休眠 (D) と二度伸び (L)， その明るさ依存性， と．

• まぬけなことに， 今回よーやく「わく (viewport) の中に図をとじこめる方法」 がわかった (cf. help(viewport))． pushViewport(viewport(..., clip = "on")) と指示すればよい 上の図では左右ははみだしてないけど， 上下には貫通してもよいようにしている．

pushViewport(viewport(
	x = 0.5, y = 0.5, h = 1, w = 1,
	layout = grid.layout(1, 2)
))
	pushViewport(viewport(
		layout.pos.row = 1, layout.pos.col = 1,
		clip = "on" # ここが重要!
	))
		# ... 左側作図関数よびだし ...
	popViewport()
	pushViewport(viewport(
		layout.pos.row = 1, layout.pos.col = 2,
		clip = "on" # ここが重要!
	))
		# ... 右側作図関数よびだし ...
	popViewport()
popViewport()

• 昼飯．
• 2 時間ほど費して， library(grid) 作表プログラミング， 牛原さんのシュート伸長に関する 562 シュート / 105 個体 / 22 樹種 全データ視覚化． 休眠 (D), 通常 (N), 二度伸び (L) シュートを樹種ごと & 個体ごとに． 樹種ごとの標本個体数， そして樹木個体ごとの標本シュート数が異なるので下のようになる． 樹種によっては明暗両環境がそろっていない． 参考のため休眠パラメーター図も再掲しとこう．

• ふーむ， library(grid) の使いかたの勉強にはなったが …… (来週の授業にしろ 3 月の生態学会ポスター発表にしろ) LaTeX でモノを作るわけだから， こんなふうに「図な表」にしちまうとまずかったかしらん? ネット上に掲載するには png() 出力が便利なわけだが ……
• あ， ぼけてた． LaTeX に取りこむ場合は png() ではなく postscript(..., paper = "special") で EPS ファイルと出力すればいいや． この「図な表」ならそんなにかさばらないし …… それに対して nested 事後分布図なんかは EPS にすると ちょー巨大ファイルになるだろうから PNG 出力せざるをえない．
• EPS ファイル出力 (29KB) した場合には， こんなかんぢで．



• ばててきたのでお茶部屋でひとやすみ． 本日のお茶部屋語録． 「松山は何もないって? 瀬戸内があるじゃないですか． 春の瀬戸内はいいですよー …… 瀬戸内は日本のオアシスだ」 …… たしかに調べてみると 伊予灘はいちおー瀬戸内海の一部だとわかった．
• 事務からメイル． 北大 女性研究者支援室 website ができました， というもの．
• さてさて授業準備のほうだが …… 新規追加すべき材料 (屋久島べいづまわり) の半分以上はそろってきたのでそろそろ 投影資料のほうもひねくってみるか． 今までの使いまわしがどれだけできるかよくわからんけど．
• はかばかしくないまま撤退． 1900 研究室発． 買いもの． 1920 帰宅． 体重 69.6kg． 晩飯の準備． 晩飯．
• アカマツ原稿よみをぢりぢりと．
• [今日の運動]
  • 腹筋運動 30 × 3 回． 腕立ふせ 10 × 3 回．
• [今日の食卓]
  • 朝 (0810): 米麦 0.6 合． チンゲンサイ・ショウガ・マイタケのカレー．
  • 昼 (1310): 研究室お茶部屋． 食パン．
  • 晩 (2100): 米麦 0.7 合． ニラ・キムチ卵炒飯． 海藻スープ．