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 31
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
# 名刺の作製関数
meisi <- function(){
# 所属・氏名・住所などの設定
org1 <- "R振興協会"
org2 <- "名刺作成部"
post <- "部長"
name <- "R 太郎"
addr <- "〒000-0000 兵庫県○○市△△町"
tel <- "tel & FAX: 電話番号"
email <- "r@xxx.ac.jp"
web <- "http://xxx.ac.jp/"
# 出力位置の設定, 縦横とも0から10までの数値で印刷位置を指定
plot(1, 1, xlim=c(0,10), ylim=c(10,0), type="n", axes=F, xlab="", ylab="")
text(x=0.3, y=1.0, org1, adj=0, cex=1.1) # xyで位置調整,cexで文字の大きさ調整
text(x=0.7, y=2.0, org2, adj=0, cex=1.1)
text(x=1.8, y=4.3, post, adj=0, cex=1.1)
text(x=3.0, y=4.3, name, adj=0, cex=1.7)
text(x=3.5, y=6.4, addr, adj=0, cex=1)
text(x=4.0, y=7.2, tel, adj=0, cex=1)
text(x=4.0, y=8.0, email, adj=0, cex=1)
text(x=4.0, y=8.8, web, adj=0, cex=1)
text(x=6.0, y=9.8, "※この名刺はRで作成しました.", adj=0, cex=0.6, font=3) # fontで斜体に
}
# 実際の名刺作成
pdf("d:/card.pdf", width=8.267, height=11.693) # 出力場所とA4サイズの設定
par(omi=c(0.433,0.630,0.433,0.630)) # 全体の余白
par(mai=c(0,0,0,0)) # 個々の余白
par(mfcol=c(5,2)) # 2行5列
for(i in 1:10){
meisi() # 名刺を作成
}
dev.off()
[2007-10-22]に書いた学会と雑誌
日本生態学会
保全生態学研究
日本生態学会誌
植物生態学会報
社団法人日本造園学会
ランドスケープ研究
造園雑誌
造園学雑誌
造園技術報告集
日本草地学会
日本草地学会誌
日本植物分類学会
日本植物分類学会誌
植物分類・地理
Acta phytotaxonomica et geobotanica
[2007-10-22]と[2007-10-26]に書いた学会と雑誌
日本生態学会
保全生態学研究
日本生態学会誌
植物生態学会報
社団法人日本造園学会
ランドスケープ研究
造園雑誌
造園学雑誌
造園技術報告集
日本草地学会
日本草地学会誌
日本植物分類学会
日本植物分類学会誌
植物分類・地理
Acta phytotaxonomica et geobotanica
日本緑化工学会
日本緑化工学会誌
緑化工技術
種生物学会
種生物学研究
Plant species biology
農村計画学会
農村計画論文集
農村計画学会誌
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