0

我想以这种方式切换图例文本和符号，首先出现符号，然后出现文本。目前，您首先看到的是描述文本，然后是符号。但是我的文字太长了，最好是反过来。你有什么建议吗？这是我的代码。不幸的是，根据此页面的限制，我无法显示情节的图片。

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)}
              )
4

0 回答 0