01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
本文はLaTeXで作成し,PSを経由してPDFに変換
写真はVixで85%の1280*1024に変換し,AcrobatでPDFとして結合
図はRでPDFを作成
本文・写真・図をConcatPDFで結合
# 基礎的な設定をする関数たち
set.par <- function(){ # 色などの設定
bg <- "darkblue"
fg <- "white"
par(bg=bg, fg=fg, col.axis=fg, col.lab=fg, col.main=fg, col.sub=fg) # 色の設定
par(omi=c(0.3, 0.3, 0.3, 0)) # 全体の余白をインチ設定
par(cex=cex, cex.lab=cex, cex.main=cex, cex.sub=cex)
layout(matrix(c(1,2), nrow=1), width=c(2.2,1), TRUE) # 作図画面を分割
}
clear.plot <- function(n=10) plot(c(0,n), c(0,n), type="n", ann=F, axes=F) # 空(から)の散布図
# draw.mapの修正(線幅とその他の引数の追加)
# http://aoki2.si.gunma-u.ac.jp/R/src/all.R 参照
draw.map2 <- function(fn, lwd=1, ...){ # 境界線データのあるファイル名
data <- matrix(scan(fn, quiet=TRUE), ncol=2, byrow=TRUE) # x, y 座標が組みになっている
continue <- apply(data, 1, any) # x, y 座標が共に 0 であるのは,一連の境界線の終わりを意味する
plot(data, type = "n", axes=FALSE, bty="n", asp=1, ...) # 枠組みをとる
start <- 1
for (i in 2:nrow(data)) {
if (continue[i] == FALSE) { # 一区切り
lines(data[start:(i-1),], lwd=lwd) # (0, 0) の次から,(0, 0) の前までを折れ線で結ぶ
start <- i+1
}
}
}
# 位置図の描画
cex <- 1.8
pdf("d:/hoge/hoge.pdf", family="Japan1", width=11.69, height=8.26) # ファイル位置は適宜変更
set.par()
par(mai=c(4.5, 1, 1, 4.5)) # 個々の余白をインチ設定
draw.map2("D:/hoge/jpn.dat", ann=F, lwd=0.5) # ファイル位置は適宜変更
box()
par(new=T)
par(mai=c(1.2, 1, 1, 0)) # 個々の余白をインチ設定
draw.map2("D:/hoge/hyougo", ann=F, lwd=0.5) # ファイル位置は適宜変更
box()
par(mai=c(0, 0.2, 0, 0))
clear.plot()
text(x=-0.4, y=9.0, "ここに説明を追加", adj=0, cex=cex) #
dev.off()
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
最終更新時間: 2009-12-01 22:42