ggplot2: Wie kann man Text von mehrzeiligen Facettenlabels linksbündig ausrichten?

Question

Ich verwende facet_grid(), um einige Daten anzuzeigen, und ich habe Facettenlabels, die sich über mehrere Textzeilen erstrecken (sie enthalten das "\ n" -Zeichen).

require(ggplot2) 

#Generate example data 
set.seed(3) 
df = data.frame(facet_label_text = rep(c("Label A", 
             "Label B\nvery long label", 
             "Label C\nshort", 
             "Label D"), 
             each = 5), 
       time = rep(c(0, 4, 8, 12, 16), times = 4), 
       value = runif(20, min=0, max=100)) 

#Plot test data 
ggplot(df, aes(x = time, y = value)) + 
    geom_line() + 
    facet_grid(facet_label_text ~ .) + 
    theme(strip.text.y = element_text(angle = 0, hjust = 0)) 

So durch die hjust = 0 Argument verwendet wird, kann ich links-align Facette Beschriftungstext als eine Einheit.

Was Ich mag würde, ist zu tun, linksbündig auszurichten jede einzelne Textzeile. So sind "Label B" und "sehr langes Label" beide auf der linken Seite ausgerichtet, anstatt zueinander zentriert zu sein (ebenso für "Label C" und "Short"). Ist das in ggplot2 möglich? Vielen Dank im Voraus für Ihre Hilfe.

Answer 1

Diese ist recht unkompliziert grid.gedit Funktion mit Gittern, die Streifen zu bearbeiten.

library(ggplot2) # v2.1.0 
library(grid) 

# Your data 
set.seed(3) 
df = data.frame(facet_label_text = rep(c("Label A", 
             "Label B\nvery long label", 
             "Label C\nshort", 
             "Label D"), 
             each = 5), 
       time = rep(c(0, 4, 8, 12, 16), times = 4), 
       value = runif(20, min=0, max=100)) 

# Your plot 
p = ggplot(df, aes(x = time, y = value)) + 
    geom_line() + 
    facet_grid(facet_label_text ~ .) + 
    theme(strip.text.y = element_text(angle = 0, hjust = 0)) 
p 

# Get a list of grobs in the plot 
grid.ls(grid.force()) 

# It looks like we need the GRID.text grobs. 
# But some care is needed: 
# There are GRID.text grobs that are children of the strips; 
# but also there are GRID.text grobs that are children of the axes. 
# Therefore, a gPath should be set up 
# to get to the GRID.text grobs in the strips 

# The edit 
grid.gedit(gPath("GRID.stripGrob", "GRID.text"), 
     just = "left", x = unit(0, "npc")) 

Oder noch ein paar Zeilen Code mit einem grob Objekt (anstelle der Bearbeitung auf dem Bildschirm wie oben) zu arbeiten:

# Get the ggplot grob 
gp = ggplotGrob(p) 
grid.ls(grid.force(gp)) 

# Edit the grob 
gp = editGrob(grid.force(gp), gPath("GRID.stripGrob", "GRID.text"), grep = TRUE, global = TRUE, 
      just = "left", x = unit(0, "npc")) 

# Draw it 
grid.newpage() 
grid.draw(gp) 

Answer 2

Bis jemand mit einer echten Lösung kommt, hier ist ein Hack: Fügen Sie Platz in den Etiketten, um die gewünschte Begründung zu erhalten.

require(ggplot2) 

#Generate example data 
set.seed(3) 
df = data.frame(facet_label_text = rep(c("Label A", 
             "Label B   \nvery long label", 
             "Label C\nshort  ", 
             "Label D"), 
             each = 5), 
       time = rep(c(0, 4, 8, 12, 16), times = 4), 
       value = runif(20, min=0, max=100)) 

#Plot test data 
ggplot(df, aes(x = time, y = value)) + 
    geom_line() + 
    facet_grid(facet_label_text ~ .) + 
    theme(strip.text.y = element_text(angle = 0, hjust = 0)) 

Answer 3

kann ein sauberer Weg, dies zu tun, aber ich habe nicht einen Weg, dies zu tun in ggplot2 finden. Die padwrap Funktion könnte generalisierter sein, da sie im Grunde genau das ist, was Sie angefordert haben. Um die Rechtfertigung richtig zu machen, musste ich eine mono-spaced Schriftart verwenden.

# Wrap text with embedded newlines: space padded and lef justified. 
# There may be a cleaner way to do this but this works on the one 
# example. If using for ggplot2 plots, make the font `family` 
# a monospaced font (e.g. 'Courier') 
padwrap <- function(x) { 
    # Operates on one string 
    padwrap_str <- function(s) { 
     sres <- strsplit(s, "\n") 
     max_len <- max(nchar(sres[[1]])) 
     paste(sprintf(paste0('%-', max_len, 's'), sres[[1]]), collapse = "\n") 
    } 
    # Applys 'padwrap' to a vector of strings 
    unlist(lapply(x, padwrap_str)) 
} 

require(ggplot2) 

facet_label_text = rep(c("Label A", 
         "Label B\nvery long label", 
         "Label C\nshort", 
         "Label D"), 5) 
new_facet_label_text <- padwrap(facet_label_text) 

#Generate example data 
set.seed(3) 
df = data.frame(facet_label_text = new_facet_label_text, 
       time = rep(c(0, 4, 8, 12, 16), times = 4), 
       value = runif(20, min=0, max=100)) 

#Plot test data 
ggplot(df, aes(x = time, y = value)) + 
    geom_line() + 
    facet_grid(facet_label_text ~ .) + 
    theme(strip.text.y = element_text(angle = 0, hjust = 0, family = 'Courier')) 

Der Streifen Text ist unter

im Bild linksbündig