Wie die Größe eines Graphen in ggplot2 unabhängig von Achse spezifizieren Etiketten

Question

sagen, dass ich einen Datenrahmen haben und wollen ein Grundstück

df <- melt(iris) 

p <- ggplot(data = df, aes(x = Species, y = value)) + 
     geom_boxplot() + theme(aspect.ratio = 1) 

Ich möchte machen dann ggsave() verwenden, um ein PDF des sparen

Stück

ggsave(plot = p, width = 3, height = 3, dpi = 300, filename = "not squished axis.pdf") 

das Problem ist, dass ich die Dimensionen des Grundstücks selbst, sondern unabhängig von den Achsenbezeichnungen angeben will, so dass der Plot unten angegebenen w Sie haben die gleiche Größe und Abmessung in Bezug auf die absolute Länge der Achsen.

q <- ggplot(data = df, aes(x = Species, y = (value)*10000000)) + 
     geom_boxplot() + theme(aspect.ratio = 1) 

ggsave(plot = q, width = 3, height = 3, dpi = 300, filename = "squished axis.pdf") 

Gibt es eine Möglichkeit, dies leicht zu tun? Hier

ist ein Beispiel eines Diagramms näher zu dem, was ich in Bezug auf den Achsenlängen möchte:

Das einzige Problem besteht darin, dass durch das Bildseitenverhältnis zu ändern, I squishing am Ende des y Achse, um die x-Achse näher an die Länge zu machen ...

Answer 1

Ich verstehe nicht wirklich, was Sie wollen, also ist das ein bisschen ein Stich in die Dunkelheit.

Sie können zwei Diagramme zeigen die gleiche Skala facet_wrap mit:

# Your sample data 
df <- list(
    one = melt(iris), 
    two = with(melt(iris), cbind.data.frame(Species, variable, value * 1000))); 
df <- melt(df); 

ggplot(df, aes(x = Species, y = value)) + 
    geom_boxplot() + theme(aspect.ratio = 1) + 
    facet_wrap(~ L1); 

Oder lassen die y-Skala für jede Facette frei variieren.

ggplot(df, aes(x = Species, y = value)) + 
    geom_boxplot() + theme(aspect.ratio = 1) + 
    facet_wrap(~ L1, scales = "free_y"); 

einzustellen, können Sie die Raster-Layout der Facetten, indem die Anzahl der Spalten oder Zeilen spezifiziert nrow und ncol verwenden.

So zum Beispiel, für die vertikale Anordnung der beiden Plots können Sie

ggplot(df, aes(x = Species, y = value)) + 
    geom_boxplot() + theme(aspect.ratio = 1) + 
    facet_wrap(~ L1, ncol = 1, scales = "free_y");