Wie werden bei der Facettierung von Daten in ggplot2 verschiedene Unterbrechungen und Beschriftungen auf den Skalen festgelegt?

Question

Betrachten Sie den folgenden Code ein:

library(ggplot2)  
data = data.frame(x = c(1, 2, 
         3, 4, 
         5, 6), 
        label = c("foo", "bar", 
          "bar", "baz", 
          "baz", "boo"), 
        type = c(1, 1, 
          2, 2, 
          3, 3)) 
ggplot(data, aes(x = x, y = c(1))) + 
    labs(x = "", y = "") + 
    theme_bw() + 
    facet_wrap(~ type, ncol = 1, scales = "free_x") + 
    scale_x_discrete(aes(breaks = x, labels=label), limits = 1:6) + 
    geom_point() 

es das Bild erzeugt:

Das Problem ist, dass mein scale_x_discrete() ignoriert. Ich möchte, dass die x-Skala jeder Facette die Beschriftungen in data$label zeigt, aber nur dort, wo Daten vorhanden sind. Mit anderen Worten, würde ich so etwas wie dieses mögen, aber auf einem einzigen Diagramm:

Wie kann ich es tun?

Answer 1

Unter Umständen müssen Sie die Plots separat konstruieren, so dass sie dann grid.arrange mit kombinieren:

library(ggplot2)  
data = data.frame(x = c(1, 2, 
         3, 4, 
         5, 6), 
        label = c("foo", "bar", 
          "bar", "baz", 
          "baz", "boo"), 
        type = c(1, 1, 
          2, 2, 
          3, 3)) 

library(gridExtra) # Using V 2.0.0 

p = list() 

for(i in 1:3) { 

df = subset(data, type == i) 

p[[i]] = ggplot(df, aes(x = x, y = c(1))) + 
    labs(x = "", y = "") + 
    theme_bw() + 
    expand_limits(x = c(1, 6)) + 
    facet_wrap(~ type, ncol = 1) + 
    scale_x_continuous(breaks = df$x, labels = df$label) + 
    geom_point() 
    } 

grid.arrange(grobs = p, ncol = 1) 

Answer 2

Ändern des Arguments in scales = "free". Ich habe das Beispiel geändert, indem ich 'y = type' anstelle der Konstante c (1) hinzugefügt habe, um verschiedene Maßstäbe zu erhalten.

ggplot(data, aes(x = x, y = type)) + 
    labs(x = "", y = "") + 
    theme_bw() + 
    facet_wrap(~ type, ncol = 1, scales = "free") + 
    scale_x_discrete(aes(breaks = x), labels = data$label, limits = 1:6) + 
    geom_point() 

Verwendung scales = "free_y"

ggplot(data, aes(x = x, y = type)) + 
    labs(x = "", y = "") + 
    theme_bw() + 
    facet_wrap(~ type, ncol = 1, scales = "free_y") + 
    scale_x_discrete(aes(breaks = x), labels = data$label, limits = 1:6) + 
    geom_point() 

ggplot(data, aes(x = label, y = type)) + 
    labs(x = "", y = "") + 
    theme_bw() + 
    facet_wrap(~ type, ncol = 1, scales = "free") + 
    geom_point()