統計解析するためのRで名刺作ったよ!!

完全に86s用のネタです、本当にありがとうございました。

meisi <- function(){
  org <- "Hatena::Group::generation1986"
  post <- "開発合宿幹事"
  name <- "吉田 康久(id:syou6162)"
  tel <- "TEL:0123456789"
  email <- "Mail:syou6162@gmail.com"
  web <- "Web:http://d.hatena.ne.jp/syou6162"

  plot(1, 1, xlim=c(0,10), ylim=c(10,0), type="n", axes=F, xlab="", ylab="")
  my.logo <- read.pnm("/home/yasuhisa/syou6162.ppm")
  r <- read.pnm("/home/yasuhisa/r.ppm")

  text(x=0, y=1.0, org, adj=0, cex=1.7, font=4, pos=4)
  text(x=3.5, y=3, post, adj=0, cex=1.4)
  text(x=3.5, y=4.5, name, adj=0, cex=1.7)
  text(x=4, y=6.4, web, adj=0, font=4, cex=1)
  text(x=4, y=7.2, email, adj=0, font=4, cex=1)
  text(x=4, y=8, tel, adj=0, font=4, cex=1)
  text(x=4, y=9.5, "この名刺は", adj=0, cex=1)
  text(x=7, y=9.5, "で作りました", adj=0, cex=1)
  addlogo(my.logo,px=c(0,3),py=c(2.5,8.5))
  addlogo(r,px=c(5.8,6.8),py=c(9,10))
}
 
pdf("~/fuga.pdf", width=8.267, height=11.693)
par(omi=c(0.433,0.630,0.433,0.630))
par(mai=c(0,0,0,0))
par(mfcol=c(5,2))
for(i in 1:10){
  meisi()
}
dev.off()