Jak mogę manipulować tekstem pasków wykresów facet_grid?

Zastanawiam się, jak mogę manipulować rozmiarem tekstu paskowego na wykresach fasetkowych. Moje pytanie jest podobne do pytania dotyczącego tytułów fabuły , ale szczególnie interesuje mnie manipulowanie nie tytułem fabuły, ale tekstem, który pojawia się w tytułach aspektów (strip_h).

Jako przykład rozważ zbiór danych mpg.

    library(ggplot2) 
    qplot(hwy, cty, data = mpg) + facet_grid( . ~ manufacturer)

Wynikowe dane wyjściowe tworzą tytuły aspektów, które nie mieszczą się na pasku.

Myślę, że musi istnieć sposób gridradzenia sobie z tekstem paskowym. Ale nadal jestem nowicjuszem i na podstawie gridzałącznika w książce Hadley nie byłem pewien , jak dokładnie to zrobić. Obawiałem się też, że jeśli zrobię to źle, zepsuje mi to pralkę, ponieważ uważam, że cała technologia jest połączona przez The Force :-(

Z góry bardzo dziękuję.

Możesz modyfikować strip.text.x(lub strip.text.y) theme_text()na przykład za pomocą

qplot(hwy, cty, data = mpg) + 
      facet_grid(. ~ manufacturer) + 
      opts(strip.text.x = theme_text(size = 8, colour = "red", angle = 90))

Aktualizacja: dla wersji ggplot2> 0.9.1

qplot(hwy, cty, data = mpg) + 
      facet_grid(. ~ manufacturer) + 
      theme(strip.text.x = element_text(size = 8, colour = "red", angle = 90))

Obecnie użycie optsi theme_textwydaje się być przestarzałe. R sugeruje użycie themei element_text. Rozwiązanie odpowiedzi można znaleźć tutaj: http://wiki.stdout.org/rcookbook/Graphs/Facets%20%28ggplot2%29/#modifying-facet-label-text

qplot(hwy, cty, data = mpg) + 
      facet_grid(. ~ manufacturer) + 
      theme(strip.text.x = element_text(size = 8, colour = "red", angle = 90))

Myślę, że w przykładzie mpgzmiany kąta obrotu i rozmiaru czcionki jest w porządku, ale w wielu przypadkach możesz znaleźć się ze zmiennymi, które mają dość długie etykiety, a czytanie obróconych długich etykiet może stać się utrapieniem (dosłownie) .

Zatem oprócz (lub uzupełnienia) zmiany kątów i rozmiarów, zwykle przeformatowuję etykiety czynników, które definiują, facet_gridkiedy można je podzielić w sensowny sposób.

Zwykle jeśli mam ciąg dataset$variableznaków, który wygląda jak

c("median_something", "aggregated_average_x","error","something_else")

Po prostu robię:

reformat <– function(x,lab="\n"){ sapply(x, function(c){ paste(unlist(strsplit(as.character(c) , split="_")),collapse=lab) }) }

[być może są lepsze definicje, reformatale przynajmniej ta działa dobrze.]

dataset$variable <- factor(dataset$variable, labels=reformat(dataset$variable, lab='\n')

Po fasetowaniu wszystkie etykiety będą bardzo czytelne:

ggplot(data=dataset, aes(x,y)) + geom_point() + facet_grid(. ~ variable)