您好我使用以下代码生成使用晶格的xyplot
xyplot(Rate~Weight|Temp, groups=Week, rate,
 pch=c(15,16,17,3), col=c("blue","red","green","purple"),
 as.table=TRUE,
 xlab="Weight (gr)", ylab="Rate (umol/L*gr)",
 main="All individuals and Treatments at all times",
 strip=strip.custom(strip.names=1),
 key=
 list(text=list(c("Week","1","2","6","8")),
 points=list(pch=c(NA,15,16,17,3),col=c(NA,"blue","red","green","purple")),
 space="right")
 )
Run Code Online (Sandbox Code Playgroud)
这给了我以下情节:

现在更改代码后按照建议包含面板顺序:
xyplot(Rate~Weight|Temp, groups=Week, rate,
 index.cond=list(c(4,1,2,3)),#this provides the order of the panels
 pch=c(15,16,17,3), col=c("blue","red","green","purple"),
 as.table=TRUE,
 xlab="Weight (gr)", ylab="Rate (umol/L*gr)",
 main="All individuals and Treatments at all times",
 strip=strip.custom(strip.names=1),
 key=
 list(text=list(c("Week","1","2","6","8")),
 points=list(pch=c(NA,15,16,17,3),col=c(NA,"blue","red","green","purple")),
 space="right")
 )
Run Code Online (Sandbox Code Playgroud)
我们得到了正确的订单

谢谢您的帮助
我转换Temp成因子得到了这个:

你可以像这样调整因子顺序:
levels(rate$Temp) <- c("12", "9", "18", "15") #custom factor order
Run Code Online (Sandbox Code Playgroud)