Markieren Sie einzelne Achsenbeschriftungen mit ggplot2 in Fettdruck.

Ich möchte einzelne Achsenbeschriftungen fett hervorheben. Mir ist dieses @ bewusAntworte von @MrFlick, aber ich kann nicht herausfinden, wie das gehtein für mehr als einen Artikel undb) ob es möglich ist, die Namen der Beschriftungen anstelle der Nummer des Elements in dieser Liste (oder des Ausdrucks) zu verwenden.

Hier ist ein Beispieldatensatz:

require(ggplot2)
require(dplyr)
set.seed(36)
xx<-data.frame(YEAR=rep(c("X","Y"), each=20),
               CLONE=rep(c("A","B","C","D","E"), each=4, 2),
               TREAT=rep(c("T1","T2","T3","C"), 10),
               VALUE=sample(c(1:10), 40, replace=T))

Dann sortiere ich meine Beschriftungen nach einer bestimmten Faktorkombination, die dann über mehrere Bereiche eines Diagramms hinweg beibehalten werden soll. Siehe meine vorherige FrageHie.

clone_order <- xx %>% subset(TREAT == "C"  & YEAR == "X") %>%
  arrange(-VALUE) %>% select(CLONE) %>% unlist()    
xx <- xx %>% mutate(CLONE = factor(CLONE, levels = clone_order))

ggplot(xx, aes(x=CLONE, y=VALUE, fill=YEAR)) + 
  geom_bar(stat="identity", position="dodge") +
  facet_wrap(~TREAT)

Jetzt will ich fett werdenClone A, B undE. Ich bin mir sicher, dass dies irgendwie funktionieren wird, aber ich kann nicht herausfinden, wie. Im Idealfall wäre es großartig zu wissen, wie dies durch @ zu tun isein unter Verwendung der Nummer des Elements in der Liste / im Ausdruck undb) unter Verwendung des Etiketts, z.A, B undE.

Antworten auf die Frage(6)

Ihre Antwort auf die Frage