Combinazione di nuove righe e corsivo nelle etichette sfaccettature con ggplot2

Question

Ho riscontrato un problema nell'ottenere alcune parole utilizzate nelle etichette delle facet in corsivo. Io uso il seguente codice per creare nuove linee per le etichette:

levels(length_subject$CONSTRUCTION) <- 
c("THAT \n Extraposed", "THAT \n Post-predicate", "TO \n Extraposed \n for-subject", "TO \n Post-predicate \n for-subject", "THAT \n Extraposed \n that-omission", "THAT \n Post-predicate \n that-omission") 

Tuttavia, voglio le parole "che" e "per" a comparire in corsivo. Ho provato qualcosa come

"TO \n Extraposed \n (italics(for))-subject" 

bit non funziona.

Questo è ciò che le trame assomigliano:

prodotto con il seguente codice:

ggplot(length_subject, aes(x = SUBJECT)) + 
    geom_histogram(binwidth=.6, colour="black", fill="grey") + 
    ylab("Frequency") + 
    xlab("Subject length") + 
    scale_x_discrete(breaks=c(2,4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30)) + # 
    facet_grid(SUBJECT_TYPE~CONSTRUCTION, scales="free_x", space="free") + 
    theme(strip.text.x = element_text(size = 8)) 

Qui è una variante ridotta dei dati:

structure(list(ID = structure(1:86, .Label = c("A05_122_01", 
"A05_253_01", "A05_277_07", "A05_400_01", "A05_99_01", "A06_1076_01", 
"A06_1261_01", "A06_1283_01", "A06_1283_02", "A06_1317_01", "A06_1326_01", 
"A06_1389_01", "A06_1390_01", "A06_1437_01", "A06_1441_02", "A06_1441_03", 
"A06_1442_03", "A06_1456_01", "A06_1461_01", "A06_830_01", "A06_868_01", 
"A06_884_01", "A06_884_03", "A0K_1057_02", "A0K_1144_07", "A0K_1177_01", 
"A0K_1190_03", "A0K_1214_03", "A0K_1216_01", "A0K_950_02", "A0K_986_01", 
"A1A_102_02", "A1A_163_01", "A1A_199_01", "A1A_45_01", "A1A_97_01", 
"A1B_1008_02", "A1B_1013_01", "A1B_1028_02", "A1B_1042_01", "A1B_1064_01", 
"A1B_1126_03", "A1B_1152_01", "A1B_1174_01", "A1B_1271_01", "A1B_997_01", 
"A1J_487_01", "A1J_544_02", "A1J_555_03", "A1J_569_01", "A1J_601_01", 
"A1N_422_04", "A1N_70_02", "A1S_191_01", "A1S_329_01", "A1S_330_01", 
"A1S_465_04", "A1Y_248_01", "A1Y_278_02", "A1Y_292_01", "A1Y_466_01", 
"A1Y_521_01", "A1Y_612_01", "A1Y_634_01", "A26_139_03", "A26_142_01", 
"A26_148_01", "A26_289_01", "A26_345_02", "A26_439_01", "A26_441_02", 
"A26_463_01", "A28_171_01", "A28_244_01", "A28_245_01", "A28_30_01", 
"A28_341_01", "A28_42_01", "A28_494_03", "A2A_301_01", "A2A_396_01", 
"A2A_599_01", "A2A_637_01", "A2A_676_01", "A2E_22_01", "A2E_25_03" 
), class = "factor"), SUBJECT = c(3L, 2L, 6L, 2L, 2L, 1L, 1L, 
1L, 1L, 2L, 4L, 1L, 4L, 2L, 3L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 7L, 1L, 3L, 2L, 2L, 1L, 6L, 7L, 4L, 1L, 5L, 4L, 2L, 9L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 5L, 3L, 4L, 1L, 1L, 1L, 1L, 5L, 
2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 5L, 2L, 1L, 2L, 2L, 1L, 7L, 1L, 
4L, 1L, 2L, 1L, 1L, 3L, 1L, 13L, 2L, 1L, 1L, 1L, 3L, 1L, 1L), 
    CONSTRUCTION = structure(c(1L, 3L, 1L, 1L, 1L, 4L, 4L, 1L, 
    1L, 5L, 5L, 1L, 1L, 5L, 1L, 3L, 5L, 1L, 5L, 4L, 3L, 3L, 1L, 
    5L, 3L, 5L, 1L, 1L, 2L, 3L, 1L, 1L, 3L, 1L, 1L, 1L, 3L, 1L, 
    4L, 3L, 1L, 3L, 1L, 1L, 1L, 1L, 4L, 2L, 4L, 1L, 1L, 3L, 2L, 
    5L, 1L, 1L, 1L, 3L, 1L, 1L, 4L, 4L, 3L, 1L, 2L, 3L, 3L, 1L, 
    3L, 1L, 1L, 1L, 6L, 1L, 1L, 2L, 4L, 4L, 3L, 5L, 3L, 3L, 3L, 
    3L, 5L, 1L), .Label = c("THAT_EXT", "THAT_EXT_NT", "THAT_POST", 
    "THAT_POST_NT", "TO_EXT_FOR", "TO_POST_FOR"), class = "factor"), 
    SUBJECT_TYPE = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 
    2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 
    1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 3L, 1L, 1L, 
    2L, 3L, 1L, 2L, 2L, 3L, 1L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 
    1L, 1L, 1L, 2L, 2L, 3L, 2L, 2L, 2L, 3L, 1L, 1L, 2L, 1L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 2L, 1L, 2L, 1L, 1L, 2L, 2L, 2L, 
    1L, 3L, 3L), .Label = c("NP", "PRO", "PROPER"), class = "factor")), .Names = c("ID", 
"SUBJECT", "CONSTRUCTION", "SUBJECT_TYPE"), class = "data.frame", row.names = c(NA, 
-86L)) 

Answer 1

Per ottenere il corsivo, è necessaria la formattazione descritta in plotmath (e quindi per essere analizzato come espressione). Tuttavia, la sintassi plotmath non ha un'operazione di interruzione di riga. È possibile ottenere qualcosa di simile con atop, però. Con la vostra data ad esempio, è possibile impostare le etichette per

levels(length_subject$CONSTRUCTION) <- 
    c("atop(textstyle('THAT'),textstyle('Extraposed'))", 
    "atop(textstyle('THAT'),textstyle('Post-predicate'))", 
    "atop(atop(textstyle('TO'),textstyle('Extraposed')),italic('for')*textstyle('-subject'))", 
    "atop(atop(textstyle('TO'),textstyle('Post-predicate')),italic('for')*textstyle('-subject'))", 
    "atop(atop(textstyle('THAT'),textstyle('Extraposed')),italic('that')*textstyle('-omission'))", 
    "atop(atop(textstyle('THAT'),textstyle('Post-predicate')),italic('that')*textstyle('-omission'))") 

e quindi aggiungendo labeller=label_parsed alla chiamata facet_grid

ggplot(length_subject, aes(x = SUBJECT)) + 
    geom_histogram(binwidth=.6, colour="black", fill="grey") + 
    ylab("Frequency") + 
    xlab("Subject length") + 
    scale_x_discrete(breaks=c(2,4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30)) + # 
    facet_grid(SUBJECT_TYPE~CONSTRUCTION, scales="free_x", space="free", 
       labeller=label_parsed) + 
    theme(strip.text.x = element_text(size = 8)) 

dà

Non è perfetto (la distanza tra le linee non sono le stesse, e la disparità non farebbe che peggiorare quante più linee ci sono), ma questo è l'unico modo in cui io ho trovato di combinare i due (newline nelle espressioni plotmath).

Answer 2

Edit (2016)

Con il nuovo sistema di etichettatura sfaccettatura, questa soluzione non funziona più. Il trucco di ereditare da element_blank per creare un grob personalizzato è now explicitly disabled. Immagino che la lezione sia accettare che alcune cose non possono essere fatte in ggplot2, by design, e non sprecare troppa energia con soluzioni alternative che potrebbero rompersi in qualsiasi momento in futuro.

---

risposta originale

Si potrebbe provare a creare un adeguato personalizzato element di inserire nelle impostazioni del tema. Il design tema non rendono molto facile, purtroppo,

require(ggplot2) 
require(gridExtra) # tableGrob 

element_grob.element_custom <- function(element, label="", ...) { 

    mytheme <- ttheme_minimal(core = list(fg_params = list(parse=TRUE))) 
    disect <- strsplit(label, "\\n")[[1]] 

    g1 <- tableGrob(as.matrix(disect), theme=mytheme) 
    # wrapping into a gTree only because grobHeight.gtable would be too tight 
    # cf. absolute.units() squashing textGrobs 
    gTree(children=gList(g1), height=sum(g1$heights), 
     cl = "custom_strip") 
} 

# gTrees don't know their size and ggplot would squash it, so give it room 
grobHeight.custom_strip = heightDetails.custom_axis = function(x, ...) 
    x$height 
# silly wrapper to fool ggplot2's inheritance check... 
facet_custom <- function(...){ 
    structure(
    list(...), # this ... information is not used, btw 
    class = c("element_custom","element_blank", "element") # inheritance test workaround 
) 

} 


title <- c("First~line \n italic('wait, a second')", 
      "this~is~boring", 
      "integral(f(x)*dx, a, b)") 

iris2 <- iris 
iris2$Species <- factor(iris$Species, labels=title) 
ggplot(iris2, aes(Sepal.Length, Sepal.Width)) + 
    geom_line() + facet_grid(.~Species) + 
    theme(strip.text.x = facet_custom()) 

Answer 3

Come molti di voi stavano cercando come risolvere la spaziatura, ho trovato una soluzione. Aggiungere una linea con atop(scriptscriptstyle("") prima dell'ultima riga da 3 linee (rendendo questo 4) o tutti i seguenti righe e non dimenticate di aggiungere in seguito )