ぎょーむ日誌 2008-06-19
2008 年 06 月 19 日 (木)
-
useOuterStrips(xyplot(...))
を使えばこういう作図も可能．
この関数は library(latticeExtra)
に含まれてる
(RGM の 作図 example())．
-
しかし，
これでもまだ偏執的にウルさい査読者の要求に答えていない．
というか図の描きかたを指示するのが査読者の仕事か?
xyplot(..., scales = list(x = list(..., draw = FALSE), ...), ...)
を指定するとこうなるんだけど，
-
……
これの
一番下とかだけに軸をいれる，
というのが何とも難題で．
R 作図魔術
library(lattice)
の限界，
か
……?
-
いや，
もちろん「どのパネルも同じ横軸・タテ軸の尺度をもつ」
状況なら何の問題もなく
scales = list(alternating = ...))
指定で何の問題もなく好きなように軸を設定できるんだけどね．
こんなふうに
……
d <- data.frame(
x = rnorm(900, rep(1:3, each = 100, times = 3), 0.2),
y = rnorm(900, rep(1:3, each = 300), 0.2),
tag = as.factor(rep(1:9, each = 100))
)
library(lattice)
xyp <- xyplot(
y ~ x | tag,
data = d,
scales = list(alternating = list(x = 1, y = 1))
)
plot(xyp)
-
ここで問題にしてるのは，
「パネルごとに異なる横軸・タテ軸の尺度をもつ」
状況なんだよね
……
R 作図黒魔術
library(grid)
をもちいれば作図できるかもしれないなぁ
……
という気になってきた．
うう，
どうしよう
……
-
けっきょく，
1 時間ちょっとじたばたして
library(grid)
を駆使して作図してしまった
(R code)．
さすがわ黒魔術
……
何でもかんでも
(しかもわりとすっきりとした coding で)
作図できちゃうわ
……
しかし，
なんともムナしい勝利，
査読者の阿呆らしい要求というか
意味不明な挑発にふりまわされただけ，
という気もするねえ．
-
うーむ作図プログラミングばてだなぁ，
と撤退
……
1930 研究室発．
雨なので北大構内走は無理そう．
電気代しはらう，
48 kWh で 1352 円．
1945 帰宅．
晩飯の準備．
晩飯．
ばてた．
-
[今日の運動]
-
[今日の食卓]
- 朝 (0840):
米麦 0.6 合．
ナスの味噌汁．
鶏レバのショウガ煮．
- 昼 (1330):
研究室お茶部屋．
納豆巻．
ダイコン・ニンジン・コンブのあえもの．
- 晩 (2200):
米麦 0.8 合．
ネギ・ピーマン・サバの電磁波酒蒸し．
ダイコン・ニンジン・コンブのあえもの．
