※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

凡例の色、形を調整する
xyplot(chl ~year | factor(period2, labels=c("3月下旬","4月上旬","4月下旬","5月上旬","5月下旬")),
groups=depth,
xlab="Year", ylab="Chlorophyll a (μg/L)",
par.settings=list(
	superpose.symbol=list(
	col=c("black"),#線の色
	fill=c("yellow1", "green","green3","green4","deepskyblue"),#中の色
	pch=c(21),#凡例の形
	cex=1 #凡例の大きさ
	),
	superpose.line=list( #線のパラメーター
	col=c("orangered", "green","green3","green4","deepskyblue")
	)
),
auto.key=list(lines=TRUE, space="right", title="Depth (m)",cex.title=1.2, border=TRUE, padding.text=2),
#線も凡例に入れる, borderは枠線, padding.textは上下比的なもの
layout=c(1,5),
type=c("p","l"),
data=water_d,
as.table=TRUE,
cex=1)

library(lattice)
 xyplot(adductor~temp|factor(month, labels=c("4月","5月","6月","7月")), #ストリップに新名
data=d,xlab="水温(℃)", ylab="8~9月の平均貝柱重量(g)",
pch=19,col=4,cex=1.2,
scales = list(x = list(relation = "free")) #x軸のスケールをバラバラにする
)

xyplot(price~budomari|factor(month,labels=c("5月","6月","7月","8月")), 
data=d, 
xlab="貝柱歩留まり(%)",ylab="キロ単価(円)",type="p",
layout=c(2, 2),
pch=19,
cex=1.2,
col=1,
panel=function(...){
	panel.abline(a=0);
	panel.abline(a=2,lty=2);
	panel.abline(a=-2,lty=2);
	panel.xyplot(...)}
)

xyplot(m_temp-m_mean~month|factor(year), 
data=mtemp, 
xlab="月",ylab="",type="b",
layout=c(5, 3),
ylim=c(-4,4),
pch=19,
col=2,
scales=list(
	x=list(),
	y=list(at=c(-4,-2,0,2,4))
	),
panel=function(...){
	panel.abline(a=0);
	panel.abline(a=2,lty=2);
	panel.abline(a=-2,lty=2);
	panel.xyplot(...)}
)

xyplot(no3no2 ~zatsu , groups=month, auto.key=list(space="right") , type=c("p", "g"), data=dr, as.table=TRUE,      pch=19, cex=1)
#gはグリッド表示
。as.table=TUREで順番反対。groups=monthで月ごとに色を変える。auto.key=listで凡例を入れる

dotplot(chl_tri~station|factor(month),  
 data=d,
 layout=c(5,1),
 pch=19, cex=1.5,col="darkgreen",
 scales=list(x=list(rot=90)), #x軸のラベルを90度回転
 as.table=TRUE #ストリップの順序を反対に
 )

#種組成
barchart(station~thalassio.+cheato.+other_cent.+pnne.+dino.|factor(month),
 data=d,
 layout=c(5,1),
 stack=TRUE, #積み重ね
 as.table=TRUE, #ストリップの順序を反対に
 auto.key=list(columns=5) #凡例を各
 )
|