Wie kann man das Seitenverhältnis in ggplot festlegen?

Ich versuche, die Größe eines Diagramms so zu ändern, dass es in mein Dokument passt, aber ich habe Schwierigkeiten, das geplottete Diagramm als Quadrat darzustellen.

Beispiel:

pdf(file = "./out.pdf", width = 5, height = 5)
p <- ggplot(mydata, aes(x = col1, y = col2))
print(p)
aux <- dev.off()

Obwohl die Grenzen für x und y gleich sind, ist die Darstellung im Ergebnis nicht quadratisch. Ich denke, dass R das beiliegende Panel 5x5 "macht, sich aber nicht um die tatsächliche Diagrammgröße kümmert.

Wie kann ich meine Diagramme entfernen ?

Um ggplotdas Seitenverhältnis Ihres Diagramms coord_fixed()beizubehalten, müssen Sie dem Diagramm eine Ebene hinzufügen . Dadurch bleibt das Seitenverhältnis des Diagramms selbst erhalten, unabhängig von der Form des tatsächlichen Begrenzungsrahmens.

(Ich schlage auch vor, dass Sie ggsaveIhre resultierende Darstellung in pdf / png / etc und nicht in der pdf(); print(p); dev.off()Reihenfolge speichern .)

library(ggplot2)
df <- data.frame(
    x = runif(100, 0, 5),
    y = runif(100, 0, 5))

ggplot(df, aes(x=x, y=y)) + geom_point() + coord_fixed()

Verwenden Sie, um ein bestimmtes Seitenverhältnis sicherzustellen, z. B. für ein Quadrat theme(aspect.ratio=1).

Andries Antwort gibt nicht das vollständige Bild wieder, da das Beispiel möglicherweise unnatürliche Daten liefert, bei denen der Bereich von x dem Bereich von y entspricht. Wenn jedoch die Daten wären:

df <- data.frame(
  x = runif(100, 0, 50),
  y = runif(100, 0, 5))
ggplot(df, aes(x=x, y=y)) + geom_point() + coord_fixed()

dann würde die Handlung so aussehen:

Die Funktion coord_fixed () hat auch ein Argument zum Anpassen des Achsenverhältnisses:

ratio Seitenverhältnis, ausgedrückt als y / x

Damit die Handlung quadratisch gemacht werden kann mit:

ggplot(df, aes(x=x, y=y)) + geom_point() + coord_fixed(ratio=10)

Sie müssen dies jedoch an die Grenzen der Variablen oder des Plotbereichs anpassen (nicht alle Grenzen sind wie in diesen Beispielen durch ganze Zahlen teilbar).

Der Vollständigkeit halber: Wenn Sie sehr unterschiedliche Achsengrenzen berücksichtigen möchten:

df <- data.frame(
  x = runif(100, 0, 5000),
  y = runif(100, 0, 5))
ratio.display <- 4/3
ratio.values <- (max(df$x)-min(df$x))/(max(df$y)-min(df$y))
plot <- ggplot(df, aes(x=x, y=y)) + geom_point()
plot + coord_fixed(ratio.values / ratio.display)

Ergebend: