在网上找了一个两个factor图形的例子，代码如下

variety=c(rep("soldur" , 40), rep("silur" , 40), rep("lloyd" , 40),
          rep("pescadou" , 40) , rep("X4582" , 40) ,
          rep("Dudur" , 40) , rep("Classic" , 40))

treatment= rep(c(rep("high" , 20) , rep("low" , 20)) , 7)

note=c( rep(c(sample(0:4, 20 , replace=T) , sample(1:6, 20 , replace=T)),2),
          rep(c(sample(5:7, 20 , replace=T), sample(5:9, 20 , replace=T)),2),
          c(sample(0:4, 20 , replace=T) , sample(2:5, 20 , replace=T),
          rep(c(sample(6:8, 20 , replace=T) , sample(7:10, 20 , replace=T)),2) ))

data=data.frame(variety, treatment ,  note)

myplot=boxplot(note ~ treatment*variety , data=data  , boxwex=0.4 , ylab="sickness",
        main="sickness of several wheat lines" , col=c("slateblue1" , "tomato") ,  xaxt="n")

效果图如下：

数据相当于一组紫色和橘色的图，但是7组数据做的boxplot不会从做到右依次排开，如果只画前40行数据的图时
data=data.frame(variety, treatment ,  note)

data <- data[1:40, ]如下图式，第一组的boxplot不是从最左边画起的。

问题，如何将数据的boxplot按照顺序从左到右排。