R 格子包装中水平条形图上y轴的重排序

我对R比较陌生，我想知道是否有人能帮我用lattice软件包创建一个条形图。由于我是新用户，我已成功创建下面的绘图，无法发布。每个面板代表一个单独物种的丰度，而条形图代表每个物种在特定深度的幼虫阶段的堆积丰度。问题是，我想以更直观的方式呈现深度，每个面板顶部为0 m，底部为90 m，这意味着沿条“翻转”轴。我使用以下代码创建了此绘图：

    # create a new column for Species and Depth as factors
    stn8_9$Depth_mF<-as.factor(stn8_9$Depth_m)
    stn8_9$SpeciesF<-as.factor(stn8_9$Species)

    # log root transform data
    stn8_9$logAbundance_per_m3<-(stn8_9$Abundance_per_m3)^(1/4) 

    # now create chart
    barchart(Depth_mF~logAbundance_per_m3 | SpeciesF,
    data=stn8_9[stn8_9$SpeciesF!="CYP" & stn8_9$Stn==9,],
    horiz=TRUE, ylab="depth (m)",xlab="Abundance (#/m3)", 
    main="Station 9", origin=0,
    col=c("red","orange","yellow","green","blue","purple"),
    stack=TRUE, groups=stn8_9$Stage,
    key=
    list(title="Stage", cex.title=1,text=list(c("1","2","3","4","5","6")),
    space="right", rectangles=list(size=2,border="white",
    col=c("red","orange","yellow","green","blue","purple"))))

---

我希望我读对了，因为我只看到从5米到90米，没有一个是0米。但如果你简单地把这个变量变成一个有序因子，其值的顺序是相反的，你会得到我认为你所描述的：

d$Depth_mF <- factor(d$Depth_m,
                     levels = rev(sort(unique(d$Depth_m))),
                     ordered = TRUE)

---

非常感谢！你是对的，没有任何深度=0的值，所以这是理想的。再次感谢！

d$Depth_mF <- factor(d$Depth_m,
                     levels = rev(sort(unique(d$Depth_m))),
                     ordered = TRUE)