- 統計解析R たぶんpart3くらい
83 ：デフォルトの名無しさん[sage]：2014/07/15(火) 09:50:16.91 ID:zeQtrZTc - >>82
質問者じゃないけど、参考になった。
複雑な図にたくさんの数字ラベルをつけて、
横に数字とラベル名の対照表を簡単につけられないかと長年考えていたが、
これなら簡単そうだな。
op <- par(mfrow = c(1,2))
x <- data.frame(x = runif(10), y = runif(10))
plot(x, cex=2)
i <- 1:10
text(x, as.character(i))
grid.table(data.frame(Month = month.name[i]))
par(op)
だが、古典グラフィックとGridの共存がうまくいかないw
| - 統計解析R たぶんpart3くらい
84 ：83[sage]：2014/07/15(火) 10:02:10.30 ID:zeQtrZTc - 突っ込まれる前に追記。
もちろん、下記のようにすれば、ある程度実現することは分かっているけど、
ちゃんとレイアウトされた表にすることが難しい
x <- data.frame(x = runif(10), y = runif(10))
plot(x, xlim = c(0, 1.5), cex=2)
i <- 1:10
text(x, as.character(i))
legend("topright", paste(formatC(1:10, width=2),
month.name[i]), title = "Month", bty = "n")
|
|