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