Holen Sie sich die Breite der Zeichnungsfläche in ggplot2

Gibt es eine Möglichkeit, um die Breite der Zeichnungsfläche in der grid-Fenster? Es wächst oder schrumpft, zum Beispiel, wenn plot.margin geändert wird oder wenn die y-Achse Label' font-size erhöht. Ist die irgendwo versteckt in str(p)?

Jeder Größe Messen funktionieren würde. Ich muss in der Lage sein zu Messen, die relative änderung in der Breite der Zeichnungsfläche in verschiedenen Szenarien wie das ändern der y-Achse Label' font-size.

df = data.frame(x = (1:3),One=c(12, 8, 13),Two=c(13, 7, 11),Three=c(11, 9, 11))
df.melt = melt(df, id.vars="x")

p = ggplot(df.melt, aes(x=x, y=value, color=variable)) + 
  geom_line() +
  coord_cartesian(xlim=c(min(df.melt$x),max(df.melt$x))) +
  theme(legend.position="none", plot.margin = unit(c(1, 4, 1, 1), "cm")) 
p

UPDATE – Zu klären: Bitte helfen Sie mir berechnen a/b.

Holen Sie sich die Breite der Zeichnungsfläche in ggplot2

p = ggplot(df.melt, aes(x=x, y=value, color=variable)) + 
  geom_line() + coord_cartesian(xlim=c(min(df.melt$x),max(df.melt$x))) +
  theme(legend.position="none")

p1 = p + theme(plot.margin=unit(c(1,1,1,1),"cm"), axis.text.y=element_text(size=10))
p2 = p + theme(plot.margin=unit(c(1,1,1,2),"cm"), axis.text.y=element_text(size=30))
grid.arrange(p1, p2, ncol=2)

Sie können es von der gtable
Ich bin ein wenig unscharf, was Sie brauchen diese info für die, die einen gewissen Einfluss haben auf die Antwort, die ich denke. Aber für den Anfang, Blick in die Ausgabe von ggplot_build(p). Ist das hilfreich?
das Ziel ist, um Platz geom_text Anmerkungen in einem festen Abstand von der linken und rechten Ende des plot-Bereichs auf einem festgelegten y-Wert. Meine überlegungen: Mit der absoluten Breite der Zeichnungsfläche bekannt, es ist leicht zu berechnen Sie die Entfernung zwischen zwei beliebigen Punkten auf der x-Achse und somit leicht zu positionieren geom_text bei einem x-Wert, der in einem festen Abstand von der y-Achse
ggplot_build(p) ist interessant, aber ich habe nicht gefunden es nützlich noch als die Werte scheinen noch angegeben werden, relativ zu den plot-Bereich. Sieht wieder später
Nun, der Grund, ich wollte eine Klarstellung ist, dass es immer mindestens zwei coord-Systeme Sie arbeiten könnte, dass Ihre Daten und die des Gerätes selbst ein. Wenn Ihr Ziel ist es, etwas in den plot-Bereich, sollten Sie nur Informationen brauchen, auf der coord-system mit Ihren Daten, die ggplot_build geben Sie. Wenn Sie brauchen, Positionierung unabhängig von Ihrem Grundstück, dann müssen Sie Tauchen Sie ein in die grobs selbst.
Ich bin mit einigen Schwierigkeiten eintauchen in grobs und Messung Konvertierungen (siehe mein Kommentar zu agstudy Antwort). Jede Hilfe würde geschätzt werden.
Ich kann nicht mehr helfen, vor allem, weil ich deutlich nicht das bekommen, was Sie zu tun versuchen, da ich immer noch nicht verstehe, warum können Sie nicht einfach das coord-system mit Ihren Daten.
Nur der coord-system schwierig werden würde, denke ich, als alles in meinem Diagramm ändern kann (x-Achsen-Bereich, Anzahl der Beobachtungen, y-Werte etc.) und die Anmerkungen sollten immer in einem festen Abstand (z.B. 0,3 cm) von der linken und rechten Seite der Zeichnungsfläche. Ich aktualisiert die Frage. Wenn niemand antwortet hier, ich könnte die post eine neue Frage, die sich mehr auf die Anmerkungen

InformationsquelleAutor Frank Seifert | 2012-12-13

ggplot2 r

9

Diese fasziniert mich genug, um zu sehen, in es tiefer. Ich hatte gehofft, dass die grid.ls Funktion geben würde, die Informationen zu navigieren, um die richtigen Teile zu Holen Sie sich die Informationen, aber für dein Beispiel gibt es eine Reihe von Schritten, die ersetzt zu bekommen, die mit '...' und ich konnte nicht sehen, wie um das zu ändern, etwas zu geben, das leicht gearbeitet. Allerdings mit grid.ls oder anderen Werkzeugen können Sie die Namen der verschiedenen viewports. Die Ansichten, die von Interesse sind sowohl mit dem Namen 'panel.3-4-3-4' für dein Beispiel, unten ist etwas code, der die Navigation auf der 1., finden Sie die Breite in Zoll, navigieren Sie zu dem zweiten und finden Sie die Breite, dass man in Zoll.
```
grid.ls(view=TRUE,grob=FALSE)
current.vpTree()
seekViewport('panel.3-4-3-4')
a <- convertWidth(unit(1,'npc'), 'inch', TRUE)
popViewport(1)
seekViewport('panel.3-4-3-4')
b <- convertWidth(unit(1,'npc'), 'inch', TRUE)
a/b
```
Konnte ich nicht herausfinden, einen einfachen Weg, um auf die zweite Platte ohne poping die erste. Das funktioniert und gibt die Informationen, die Sie brauchen, leider, da es öffnet das 1. Element aus der Liste kann man nicht gehen, um es zurück und finden Sie zusätzliche Informationen zu ändern oder zu modifizieren. Aber dies geben die Informationen, die Sie gebeten, die verwendet werden könnte in zukünftigen plots.

Vielleicht jemand anderes weiß, wie man navigieren Sie zu dem zweiten panel ohne knallen die erste oder immer die volle vpPath jedes einzelnen von Ihnen direkt navigieren.
- Perfekt, dies wird auf die Antwort, vielen Dank!! Eine Letzte Sache: wissen Sie, wenn es möglich ist, um die Breite für ein einzelnes Diagramm (keine grid.arrange; z.B. p), ohne es zuerst?
- Ich hatte gehofft, jemand anderes könnte Ihnen den Weg zeigen. Mit meinem code werden die Ansichtsfenster, die mindestens angelegt werden muss und geschoben, bevor der code funktionieren (die gridPLT Funktion aus der gridBase-Paket ist eine weitere Möglichkeit, um die info). Es ist wahrscheinlich ein Weg, mit gridDebug oder ggplot_build, aber Sie sind entzieht sich meiner Kenntnis.
- Vielen Dank für den Ausgangspunkt. Ich werde versuchen, es herauszufinden, oder sonst schicken Sie es als eine neue Frage
InformationsquelleAutor Greg Snow

Den plot in ggplot2 verwendet, raster-Grafik. Eine grafische Szene, dass produziert wurde
mit dem raster-Grafik-Paket besteht aus grobs und viewports.

Können Sie gridDebug - Paket für die Inspektion von grobs.

showGrob zeigen die Standorte und Namen der grobs zum zeichnen der Szene
```
      showGrob()
```

Holen Sie sich die gpath der grob

  sceneListing <- grid.ls(viewports=T, print=FALSE)
  do.call("cbind", sceneListing)

   name                                gPath                                                      
[1,] "ROOT"                              ""                                                         
[2,] "GRID.gTableParent.45019"           ""                                                         
[3,] "background.1-5-6-1"                "GRID.gTableParent.45019"                                  
[4,] "spacer.4-3-4-3"                    "GRID.gTableParent.45019"                                  
[5,] "panel.3-4-3-4"                     "GRID.gTableParent.45019"                                  
[6,] "grill.gTree.44997"                 "GRID.gTableParent.45019::panel.3-4-3-4"

Abrufen der gorb

h <- grid.get(gPath="GRID.gTableParent.45019")

h zu bekommen Eigenschaften (e.g)
```
h$layoutvp$width
```

Anwendung:

grid.get('x',grep=TRUE,global=T)
(polyline[panel.grid.minor.x.polyline.21899], polyline[panel.grid.major.x.polyline.21903], gTableChild[axis-l.3-3-3-3], gTableChild[axis-b.4-4-4-4], gTableChild[xlab.5-4-5-4]) 
>  grid.get('x',grep=TRUE,global=T)[[3]]
gTableChild[axis-l.3-3-3-3] 
>  xx <- grid.get('x',grep=TRUE,global=T)[[3]]
> grobWidth(xx)
[1] sum(1grobwidth, 0.15cm+0.1cm)

Sieht vielversprechend aus! Ich könnte noch etwas mehr Hilfe: Bin ich im Recht, anzunehmen, dass das Ergebnis der h$layoutvp$width umgewandelt werden mit convertX? Ich kann nicht scheinen zu finden, die richtige Immobilie; h$layoutvp$width ändert sich nicht auf eine änderung der y-Achsen-labels' font-size. showGrob() einen Fehler zurück no applicable method for 'absolute.units' applied to an object of class "unit"
Ich habe nicht gesehen, Sie kommentieren vor. Hoffe, die Antwort ist nicht tt zu spät. Ich update meine Antwort, um Ihnen die richtige Breite.

InformationsquelleAutor agstudy

5

Diese Antwort ist vor allem in Antworten auf Kommentare von @java_xof. Die Antwort ist zu lang und enthält code, so passt es nicht in einen Kommentar. Sie kann aber helfen, mit der ursprünglichen Frage, wie gut (oder zumindest eine Basis).

Hier ist eine Funktion und einige code mit (es erfordert tcltk und tkrplot Pakete):
```
library(ggplot2)
library(tkrplot)
TkPlotLocations <- function(FUN) {
    require(tkrplot)

    cl <- substitute(FUN)
    replot <- function() eval(cl)

    tt <- tktoplevel()
    img <- tkrplot(tt, replot, vscale=1.5, hscale=1.5)
    tkpack(img)

    tkpack(xfr <- tkframe(tt), side='left')
    tkpack(yfr <- tkframe(tt), side='left')

    xndc <- tclVar()
    yndc <- tclVar()
    xin <- tclVar()
    yin <- tclVar()

    tkgrid(tklabel(xfr, text='x ndc'), tklabel(xfr, textvariable=xndc))
    tkgrid(tklabel(yfr, text='y ndc'), tklabel(yfr, textvariable=yndc))
    tkgrid(tklabel(xfr, text='x inch'), tklabel(xfr, textvariable=xin))
    tkgrid(tklabel(yfr, text='y inch'), tklabel(yfr, textvariable=yin))

    iw <- as.numeric(tcl("image","width", tkcget(img, "-image")))
    ih <- as.numeric(tcl("image","height",tkcget(img, "-image")))

    cc <- function(x,y) {
        x <- (as.real(x)-1)/iw
        y <- 1-(as.real(y)-1)/ih
        c(x,y)
    }

    mm <- function(x, y) {
        xy <- cc(x,y)
        tclvalue(xndc) <- xy[1]
        tclvalue(yndc) <- xy[2]
        tclvalue(xin) <- grconvertX(xy[1], from='ndc', to='inches')
        tclvalue(yin) <- grconvertY(xy[2], from='ndc', to='inches')
    }

    tkbind( img, "<Motion>", mm)

    invisible()
}


x <- runif(25)
y <- rnorm(25, x, 0.25)
plot(x,y)
par()$pin
par()$plt
TkPlotLocations(plot(x,y))
qplot(x,y)
par()$pin
par()$plt
TkPlotLocations(print(qplot(x,y)))
qplot(x,y) + xlab('Multi\nline\nx\nlabel')
par()$pin
par()$plt
TkPlotLocations(print(qplot(x,y) + xlab('Multi\nline\nx\nlabel')))
```
Definition der oben genannten Funktion, dann läuft die folgende Zeilen erzeugen 3 Parzellen der gleichen zufälligen Daten. Sie können sehen, dass die Ergebnisse der par()$pin und par()$plt (und anderer Parameter) sind genau die gleichen für die 3 Grundstücke, obwohl der Plot-Regionen unterscheiden sich in den Parzellen.

Wird es auch 3 neue Fenster aufgetaucht, in der windows Sie können bewegen Sie den Mauszeiger über das Diagramm und im unteren Teil des Fensters sehen Sie die aktuelle Position des Zeigers in normalisierten device-Koordinaten und in Zoll (beide aus der unteren linken Ecke des Geräts region). Sie können bewegen Sie den Mauszeiger über die Ecken des Graphen (oder andere Teile) zu sehen, die Werte und vergleichen zwischen den 3 Grafiken.

Mag das genug sein, Sie zu beantworten, zumindest einen Teil der ursprünglichen Frage (nicht nur programmatisch, das wäre nützlicher). Die functon geändert werden kann, drucken Sie andere Messungen als gut. Ich kann erweitern Sie dieses und fügen Sie es in ein Paket in der Zukunft, wenn andere interessieren würde.
- Sorry, aber nicht reproduzieren können, den code an meine R, weil qplot ist nicht verfügbar für R 2.15.2; dennoch Aufruf von par()$pin jedes mal, wenn ich die Größe meiner Handlung gibt mir, was ich will, ist die Größe der Zeichnungsfläche (Höhe x Breite), und wieder meiner Meinung nach - die Lösung, die ich gegeben habe, ist einfach und genau, so dass immer noch ich verstehe nicht, warum u geben, meine Antwort Minuspunkte - es ist nur die Frage der aufrufenden Funktion Plotten und par()$pin in das partikelfilter bestellen, die Sie anrufen müssen, dev.aus (), und wieder Plotten Sie die Funktion par()$pin
- Ähm...qplot ist eine Funktion in dem Paket ggplot2, die ist definitiv verfügbar für R 2.15.2. Sie könnten versuchen, installieren Sie das Paket, da es ist, was die OP ist gefragt.
- Wie bereits erwähnt die qplot Funktion ist aus dem ggplot2-Paket, das ich dachte, war implizit geladen werden, von der ursprünglichen Frage. Ich habe bearbeitet den code explizit laden Sie es jetzt. Könnte man auch ersetzen Sie die Aufrufe von qplot mit dem code aus der ursprünglichen Frage, und Sie würden das gleiche sehen. Selbst wenn man nur eine Basis-Handlung und die original ggplot im Grafik-Geräte side-by-side können Sie sehen, dass die Handlung Regionen sind nicht die gleichen, aber par() meldet die gleichen Dinge seit dem grid-Grafik-Funktionen aktualisieren sich nicht, die Informationen, die par-abhängig ist.
- Sorry, es war tkrplot-Paket, das den Fehler verursacht; aber ich bin weit davon entfernt, es zu installieren, weil das Studium Ihrer Antworten - ganz einfach - Sie alle hat mich nicht überzeugen - und ich denke, das entfernen meine Antwort war nur, dass - @GregSnow calling paar Kumpels ihm helfen, mit einigen "greenhorn" (Ihrer Meinung nach) - glaube nicht, dass es gut für Ihre geistige Gesundheit, aber sicher, warum nicht - wir können tormuent Kerl, er ist nur ein ... es ist eine Verschwendung von Zeit streiten Sie; cheers und Gott mit dir - Wer auch immer Er Ist - mit Ausnahme Ihres atheist - in diesem Fall können Sie ersetzen Sie "Gott" mit "Neuronen" oder "psyche"
- führen Sie die original-Plakate-code, einschließlich der Aktualisierung, und halten Sie ein Lineal bis zu Ihrem Bildschirm nach jeder graph. Vergleichen Sie dazu die Ergebnisse aus par()$pin.
- würde es davon abhängen, Bildschirm, pixel-Größe von meinem pc und wäre es in der richtigen Größe-Verhältnis? zum Beispiel, wenn ich hätte graph 400 px und par()$pin würde mir 3.75 - dann würde ich die Größe Diagramm auf 800 px und dann wäre es 2*3.75=7.5 - wenn nicht würde es als ein bug?
- Bildschirm und pixel-Größe kann Einfluss auf die Dinge, aber auch wenn der par()$pin Ergebnisse sind nicht exakt, können Sie immer noch halten Sie ein Lineal auf den Bildschirm, um zu sehen, dass die Zeichnungsfläche ist der Unterschied zwischen einer Basis-plot der Originaldaten und die verschiedenen Beispiel-plots in der bearbeiteten version von der Frage, während par()$pin gibt die gleichen Werte für jedes Grundstück und nicht wieder auf die richtige Größe (evtl. skaliert) für raster-Grafiken.
- Wie für bearbeitete Teil der Frage, es war aus meiner Antwort - scope- als Antwort wurde geschrieben, bevor die Frage wurde aktualisiert, und als ich erinnere mich, Sie stimmten meine Antwort unten vor obwohl es richtig war, die als OP war nicht klar genug - nur prüfen (Sie können material Herrscher, wenn Sie benötigen) - 1) - copy/paste-code aus Frage vor update, 2) mit par()$pin, 3) notieren Sie das Ergebnis, 4) ändern Sie die Größe plot-Fenster (maximiert?) - ziehen Sie einfach rechts unten in die Ecke, 5) - Aufruf par()$pin erneut ein, 6) notieren Sie das Ergebnis, 7) vergleichen Sie die Ergebnisse,
- Sie scheinen sich auf 2 wichtigsten Argumente, das erste "meine Methode gibt eine Antwort also muss es richtig sein", könnte das gleiche gesagt werden, für die Magie 8-ball, sitzen auf meinem Regal. Die zweite "Greg Schnee führt eine Verschwörung, um mich zum schweigen zu bringen, also was ich sagen muss etwas Wert", dieser basiert auf vielen falschen Annahmen, ich war nicht der erste, der downvote Sie (ich habe keine Ahnung, wer das war), wenn ich nicht downvote war es nach den änderungen an den original-Beitrag und Sie zeigt Haltung. Ich hatte nichts zu tun mit deinem Beitrag gelöscht, ich würde gestimmt haben, gegen das löschen.
- Wie gesagt (/geschrieben), bevor - der Grund, warum ich diese Frage beantwortet wurde, die OP fragte nach Größe des Grundstücks und ich dachte, meine Antwort war geeignet für den OP-den Zweck, die erwies sich als die schlechteste Antwort aller Zeiten - (nicht die Menschen selbst Lesen und überprüfen Sie die Antworten, bevor Sie downvote es?) - und schließlich gelöscht wurde; mein einziger Fehler ist, dass (und Schande über mich) ich fehlinterpretiert dein Kommentar unter meiner Antwort, also ... tut mir Leid, ich hatte Ihnen an diesem Geplänkel.
InformationsquelleAutor Greg Snow

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.