Łącząc nowe linie i kursywy w facet etykiet z ggplot2

Question

mam problem z dostaniem kilka słów używanych w etykietach facet kursywą. Używam następujący kod do tworzenia nowych linii dla etykiet:

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

Chcę jednak słowa „że” i „dla” kursywą. Próbowałem czegoś takiego, jak bit, który nie działa, bit taki jak

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

To właśnie działki wyglądać następująco:

produkowanej z następującego kodu:

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

Oto zmniejszona wariant danych:

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

Aby otrzymać kursywę, potrzebujesz formatowania opisanego w plotmath (a następnie do przeanalizowania jako wyrażenie). Jednak składnia plotmath nie ma operacji podziału linii. Możesz uzyskać coś podobnego z atop, jednak. Z podanym przykładzie, można ustawić etykiety do

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

a następnie dodając labeller=label_parsed na wezwanie 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)) 

daje

To nie jest idealne (odstęp między linie nie są takie same, a różnica byłaby tylko gorsza im więcej linii jest), ale to jedyny sposób Znaleziono połączenie dwóch znaków (nowe linie w wyrażeniach splotu).

Answer 2

Edit (2016)

Z nowego systemu znakowania aspekt, to rozwiązanie już nie działa. Sztuczka z dziedziczenie z element_blank dokonać niestandardowego Grob jest now explicitly disabled. Myślę, że lekcja jest zaakceptować, że niektóre rzeczy nie można zrobić w ggplot2, by design, a nie tracić zbyt wiele energii z obejścia, które mogą pęknąć w dowolnym momencie w przyszłości.

---

odpowiedź Original

Można spróbować stworzyć odpowiednią zwyczaj element umieścić w ustawieniach tematycznych. Konstrukcja motyw nie sprawiają, że bardzo łatwo niestety

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

W kilku szukałeś jak naprawić odstępy, znalazłem rozwiązanie. Dodaj linię z atop(scriptscriptstyle("") przed ostatnią linią od 3 wierszy (czyniąc to 4) lub jakichkolwiek następujących linii i nie zapomnij dodać ) potem