条形图（R晶格）中的开关图例文本和符号

我想以这种方式切换图例文本和符号，首先显示符号，然后右键显示文本。此时，您首先看到描述文字，然后是符号。但是我的文本太长了，最好换个方向。你有什么建议吗？这是我的密码。不幸的是，根据本页的限制，我无法显示绘图的图片

MyText<-c("Subbasin 1")

barchart(Sub1_AbflussMittel_cms ~ Aufforstungsart, data = Abfluss_Means_Sub1, groups = Waldanteil, 
     scales=list(x=list(rot=90,cex=0.6,alternating=1)),  #alternating bestimmt wo die x-Achse Beschriftet wird (2 wäre oberhalb)
     origin=0,
     ylab="Mittlerer Abfluss über die Simulationsdauer [m³/s]", xlab="Szenarien - Waldzusammensetzung",
     main="Abflussveränderung", 
     auto.key=list(space="top", 
                   #columns=1, 
                   title="Szenarien - Waldanteil im Einzugsgebiet [%]",
                   points=FALSE, rectangles=TRUE,
                   size=4,#Breite der Rechtecke
                   height=0.5, #Höhe der Rechtecke
                   background = "gray97",
                   cex=0.8, cex.title=0.9),  
     par.settings = my.settings,
     panel=function(x,y,...){   
            panel.grid(h=-1, v=0)     # macht die horizontalen Linien
            panel.barchart(x,y,...)
            panel.text(4.5,-1.5,labels=MyText[panel.number()],font=2)}
              )

---

MyTextHi..您可以在问题中附加绘图的图片。它将被调整大小。还将您的数据包括在问题中，以便可以重现您的问题。
键
参数应允许您排列列。例如，请参见图9.2和本书中的代码：