Balkenbeschriftung abhängig vom Wert eingefärbt

[Isegrimm]

Hallo zusammen ...

Mit ...

Code: Alles auswählen

  geom_text(aes(x = reorder(SHORT, -INHALT),             #notwendige Angabe x
                y = INHALT,                             #notwendige Angabe Y
           label = INHALT),                            #Zahlen in Balken kommen aus "INHALT"
            vjust=-0.5,                                  #vertikale Verschiebung der Zahlen
            hjust=0.4,
            color="black",                             #Farbe der Zahlen
            angle=0,
            size=2.5) +

... bekomme ich die Werte im Balkendiagramm oberhalb der Balken in schwarz eingefärbt.

Gibt es eine Möglichkeit, die Werte in rot darzustellen, wenn ihr Wert größer ist als 2.1?

Grüsse

Stefan

[Isegrimm]

Manchmal kann es so einfach sein ...

Code: Alles auswählen

  geom_text(aes(x = reorder(SHORT, -VERMITTLUNG),             #notwendige Angabe x
                y = VERMITTLUNG,                             #notwendige Angabe Y
                label = VERMITTLUNG),                            #Zahlen in Balken kommen aus "VERMITTLUNG"
            vjust=-0.5,                                  #vertikale Verschiebung der Zahlen
            hjust=0.4,
            color = ifelse(Ergebnis$VERMITTLUNG > 2.1, "red", "black"),   #Farbe der Zahlen
            fontface = ifelse(Ergebnis$VERMITTLUNG > 2.1, "bold", "plain"),
            angle=0,
            size=2.5) +

Ich hab damit nicht nur die Farbe, sondern auch das fontface im "Wenn-Fall" in bold geändert.

Und weil es so schön war, habe ich auch noch die Linie um die Balken werteabhängig eingefärbt und verbreitert:

Code: Alles auswählen

  geom_bar(stat = "identity",
           color = ifelse(Ergebnis$VERMITTLUNG > 2.1, "red", "black"),
           size = ifelse(Ergebnis$VERMITTLUNG > 2.1, 0.5, 0.1)
  ) +