Unabhängige Streifenthemen für ggplot2 facet_wrap, die mehr als eine Variable verwenden

Question

Ist es möglich, unabhängige Streifenthemen für jede in ggplot2 facet_wrap verwendete Variable zu verwenden?

Nehmen Sie dieses Stück Code als Beispiel:

p1 <- ggplot(mpg, aes(displ, hwy)) + 
    geom_point() + 
    facet_wrap(c("cyl", "drv"), labeller = "label_both") 
plot(p1) 

Ich möchte obere Streifen haben ('Zyl') mit einem anderen Thema - sagen wir, fett gedruckt. Außerdem möchte ich "drv" kursiv und mit einer anderen Schriftart und -größe gestalten. Wie könnte ich das tun?

Ich dachte etwas in den Zeilen:

p1 <- p1 + theme(strip.text.variable1 = element_text(face = 'bold'), 
        strip.text.variable2 = element_text(face = 'italic', size = 8) 
       ) 

Leider konnte ich nicht so etwas wie dies in der Dokumentation oder vorherigen Fragen.

Prost

Edit: habe ich die Frage etwas allgemeiner zu der Gemeinde weiterer Hilfe zu sein.

Answer 1

Vordergründig sollten Sie in der Lage sein, eine neue Funktion auf label_both Basis zu machen fett Etiketten zurückzukehren, aber bisher habe meine Versuche mit den gefürchteten Error in variable[[i]] : subscript out of bounds beendet.

Eine Alternative dazu ist, eine Funktion zu erstellen, um das gewünschte Label zu erstellen. Dies ist ähnlich wie this answer. In dieser Funktion fügen Sie den Werten der Variablen das Präfix hinzu und machen sie fett.

make_labels = function(string, prefix = "cyl: ") { 
    x = paste0(prefix, as.character(string)) 
    do.call(expression, lapply(x, function(y) bquote(bold(.(y))))) 
} 

Nun, diese Funktion innerhalb as_labeller für die in facet_wrap "cyl" Variable. Sie möchten den Standard-Bezeichner innerhalb von as_labeller zu label_parsed ändern, damit der Ausdruck korrekt analysiert wird. Verwenden Sie label_both für die andere Variable.

ggplot(mpg, aes(displ, hwy)) + 
    geom_point() + 
    facet_wrap(c("cyl", "drv"), 
       labeller = labeller(cyl = as_labeller(make_labels, default = label_parsed), 
            drv = label_both))