凡例のテキストと記号をそのように切り替えたいと思います。最初に記号が表示され、次にテキストが右に表示されます。現時点では、最初に説明テキストが表示され、次に記号が表示されます。しかし、私のテキストは非常に長いので、逆にしたほうがよいでしょう。何か提案はありますか?これが私のコードです。残念ながら、このページの制約により、あらすじの写真を表示することはできません。
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)}
)