Wyróżnianie poszczególnych etykiet osi pogrubioną za pomocą ggplot2

Question

Chcę wyróżnić pogrubione poszczególne etykiety osi. Jestem świadomy tego answer przez @MrFlick, ale nie mogę wymyślić, jak to zrobić a) dla więcej niż jednego przedmiotu, i b), czy możliwe jest użycie nazw etykiet zamiast liczby element na tej liście (lub wyrażenie).

Oto przykład zestawu danych:

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

to jestem sortowaniu moje etykiety według określonej kombinacji czynnika, który następnie miał być utrzymany w wielu panelach działce. Zobacz moje poprzednie pytanie here.

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) 

Teraz chcę pogrubienie CloneA, B i E. Jestem pewien, że to zadziała jakoś, ale nie wiem jak. Idealnie byłoby wiedzieć, jak to zrobić, używając a), używając numeru pozycji na liście/wyrażeniu, i b), używając etykiety, np. A, B i E.

Answer 1

Oto ogólny sposób, aby utworzyć wektor emboldening:

colorado <- function(src, boulder) { 
    if (!is.factor(src)) src <- factor(src)     # make sure it's a factor 
    src_levels <- levels(src)         # retrieve the levels in their order 
    brave <- boulder %in% src_levels       # make sure everything we want to make bold is actually in the factor levels 
    if (all(brave)) {           # if so 
    b_pos <- purrr::map_int(boulder, ~which(.==src_levels)) # then find out where they are 
    b_vec <- rep("plain", length(src_levels))    # make'm all plain first 
    b_vec[b_pos] <- "bold"         # make our targets bold 
    b_vec             # return the new vector 
    } else { 
    stop("All elements of 'boulder' must be in src") 
    } 
} 

ggplot(xx, aes(x=CLONE, y=VALUE, fill=YEAR)) + 
    geom_bar(stat="identity", position="dodge") + 
    facet_wrap(~TREAT) + 
    theme(axis.text.x=element_text(face=colorado(xx$CLONE, c("A", "B", "E")))) 

Answer 2

Nie jestem pewien, czy można odwzorować charakterystykę etykietę nazwy, ale na pewno można to zrobić przez położenie z wezwaniem do theme:

ggplot(xx, aes(x=CLONE, y=VALUE, fill=YEAR)) + 
    geom_bar(stat="identity", position="dodge") + 
    facet_wrap(~TREAT) + 
    theme(axis.text.x = element_text(face = c('bold', 'bold', 'plain', 'plain', 'bold'))) 

Podana czcionki stoi za axis.text.x są taką samą długość jak etykiety twojej osi X (pięć elementów). To daje:

Answer 3

Można utworzyć nazwie wektor ekspresji (to kolej tekstową pogrubieniem) w scale_x_discrete i używać parse=TRUE ocenić wyrażeń:

ggplot(xx, aes(x=CLONE, y=VALUE, fill=YEAR)) + 
    geom_bar(stat="identity", position="dodge") + 
    facet_wrap(~TREAT) + 
    scale_x_discrete(labels=c("A"=expression(bold(A)), "C"=expression(bold(C)), 
           "E"=expression(bold(E)), parse=TRUE)) 

Prawdopodobnie można utworzyć wektor programowo, zamiast go wypisać, ale droga do tego teraz ucieka.