美しい散布図の描き方

source("http://aoki2.si.gunma-u.ac.jp/R/src/dot_plot.R", encoding="euc-jp")

a <- rnorm(10, mean = 3)
b <- rnorm(10, mean = 9)

area <- c(a,b)

fac <- c(rep("control", 10), rep("treat", 10))

factor <- as.factor(fac)

png("area.png")
dot.plot(factor, area, accu=0.1, stp=0.5, xlab="Group", ylab="Area", main="Staining Area")
dev.off()