「ぎょーむ日誌」目次に戻る | KuboWeb top に戻る | twilog | atom

ぎょーむ日誌 2007-07-30

苦情・お叱りは, たいへんお手数かけて恐縮ですが, 久保 (kubo@ees.hokudai.ac.jp) までお知らせください.

2007 年 07 月 30 日 (月)

ulattice30

library(lattice)
d <- read.csv("data.csv")
print(bwplot(
	total.leaf.area ~ I(as.factor(rppfd)) | sex,
	data = d,
	layout = c(3, 1),
	xlab = expression(bold("rppfd")),                         
	ylab = expression(bold("LA"[total]~~(mm^2/plant))),       
	par.settings = list(
		par.xlab.text = list(cex = 1.2),
		par.ylab.text = list(cex = 1.2),
		layout.widths = list(left.padding = 0, right.padding = 0),
		layout.heights = list(top.padding = 0, bottom.padding = 0)
	)
))
alldata


KuboLog | KuboWeb