Question

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

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

在条形图中切换图例文本和符号（R点阵）

0 个答案: