RlatticeExtra DoubleYscale プロットで y 軸の範囲と目盛りを設定するにはどうすればよいですか? 両方の xyplot で、プライマリとセカンダリの y 軸の目盛りと目盛りを同じにします。以下は私のRコードです。現在、プロット 1 のプライマリ y スケールは -3 から 0 で、セカンダリ y スケールは -150 から 0 です。プロット 2 では、プライマリ y スケールは -2 から 0 で、セカンダリ y スケールは -150 から 0 です。スケールは-200から0
です。プライマリyスケールは-3から0、セカンダリyスケールは両方のプロットで-200から0で、両方のプロットの目盛り数を設定できます。ありがとう。
#load workspace stol and stoh
library(latticeExtra)
library(gridExtra)
plot1<-xyplot(percentloss*100 ~ time, groups=cap, pch=16,axis = axis.grid,
abline=c(list(h=c(0,-0.5,-1,-1.5,-2,-2.5,-3)),trellis.par.get("reference.line")),
main="Storage; 5 mL fill vol",
xlab="Time (hours)",
ylab="Evaporative loss (%)" ,
auto.key=list(border=TRUE),
par.settings = simpleTheme(pch=16), scales=list(x=list(relation='same'),
y=list(relation='same')),
data=stol)
plot2<-xyplot(absoluteloss*1000 ~ time, groups=cap, pch=16,
main=" ",
xlab="Time (hours)",
ylab="Absolute loss (uL)" ,
data=stol)
plota<-doubleYScale(plot1, plot2, style1 = 0, style2 = 0, add.ylab2 = T)
plot3<-xyplot(percentloss*100 ~ time, groups=cap, pch=16,axis = axis.grid,
abline=c(list(h=c(0,-0.5,-1,-1.5,-2,-2.5,-3)),trellis.par.get("reference.line")),
main="Storage; 10 mL fill vol",
xlab="Time (hours)",
ylab="Evaporative loss (%)" ,
auto.key=list(border=TRUE),
par.settings = simpleTheme(pch=16), scales=list(x=list(relation='same'),
y=list(relation='same')),
data=stoh)
plot4<-xyplot(absoluteloss*1000 ~ time, groups=cap, pch=16,
main=" ",
xlab="Time (hours)",
ylab="Absolute loss (uL)" ,
data=stoh)
plotb<-doubleYScale(plot3, plot4, style1 = 0, style2 = 0, add.ylab2 = T)
grid.arrange(plota,plotb, ncol=2)