ggplot2-Plot ohne Achsen, Legenden usw.

138

Ich möchte das Hexbin des Bioleiters verwenden (was ich tun kann), um ein Diagramm zu erstellen, das den gesamten (PNG-) Anzeigebereich ausfüllt - keine Achsen, keine Beschriftungen, kein Hintergrund, kein Nuthin.

r ggplot2

— user1320487
quelle

1

Wäre es nicht einfacher, ein Hexbin-Diagramm zu erstellen und es in einem Bildeditor zuzuschneiden?

— Joran

3

versuchentheme_void()

— Brian D

182

Gemäß meinem Kommentar in Chases Antwort können Sie viele dieser Dinge entfernen, indem Sie element_blank:

dat <- data.frame(x=runif(10),y=runif(10))

p <- ggplot(dat, aes(x=x, y=y)) + 
        geom_point() +
        scale_x_continuous(expand=c(0,0)) + 
        scale_y_continuous(expand=c(0,0))   

p + theme(axis.line=element_blank(),axis.text.x=element_blank(),
          axis.text.y=element_blank(),axis.ticks=element_blank(),
          axis.title.x=element_blank(),
          axis.title.y=element_blank(),legend.position="none",
          panel.background=element_blank(),panel.border=element_blank(),panel.grid.major=element_blank(),
          panel.grid.minor=element_blank(),plot.background=element_blank())

Es sieht so aus, als ob sich am Rand der resultierenden .png noch ein kleiner Rand befindet, wenn ich dies speichere. Vielleicht weiß jemand anderes, wie man sogar diese Komponente entfernt.

(Historische Anmerkung: Seit ggplot2 Version 0.9.2, optsist veraltet Stattdessen verwenden. theme()Und ersetzen theme_blank()mit element_blank().)

— Joran
quelle

1

Danke vielmals! Ich habe auch eine ähnliche Lösung unter groups.google.com/group/ggplot2/browse_thread/thread/… gefunden

— user1320487

Kommentar im Vorbeigehen: In einigen Fällen theme(axis.ticks=element_blank())funktioniert es nicht so gut wie theme(axis.ticks.x=element_blank())wahrscheinlich ein vorübergehender Fehler irgendwo (ich habe mein eigenes Themenset, dann versuche ich zu überschreiben: nur axis.ticks.xund axis.ticks.ymache den Job.)

— PatrickT

106

Betreff: Ändern der Optionen zum Thema usw. (für faule Leute):

theme(axis.line=element_blank(),
      axis.text.x=element_blank(),
      axis.text.y=element_blank(),
      axis.ticks=element_blank(),
      axis.title.x=element_blank(),
      axis.title.y=element_blank(),
      legend.position="none",
      panel.background=element_blank(),
      panel.border=element_blank(),
      panel.grid.major=element_blank(),
      panel.grid.minor=element_blank(),
      plot.background=element_blank())

— mbjoseph
quelle

59

Aktuelle Antworten sind entweder unvollständig oder ineffizient. Hier ist (vielleicht) der kürzeste Weg, um das Ergebnis zu erzielen (mit theme_void():

data(diamonds) # Data example
ggplot(data = diamonds, mapping = aes(x = clarity)) + geom_bar(aes(fill = cut)) +
      theme_void() + theme(legend.position="none")

Das Ergebnis ist:

Wenn Sie nur die Etiketten entfernen möchten , gehen Sie wie labs(x="", y="")folgt vor:

ggplot(data = diamonds, mapping = aes(x = clarity)) + geom_bar(aes(fill = cut)) + 
      labs(x="", y="")

— Luchonacho
quelle

ggplot(data = diamonds, mapping = aes(x = clarity)) + geom_bar(aes(fill = cut)) +   theme_void() +    theme(legend.position="none",          panel.background = element_rect(fill="grey80"),          plot.background = element_rect(fill="red"))

schlägt vor, dass es nicht 100% nichtig ist

— baptiste

Die Labore (x = "", y = "") scheinen nicht die Achsen zu entfernen, sondern nur die Beschriftungen.

— Miratrix

@miratrix sorry, mein fehler. Aktualisiert.

— Luchonacho

5

@luchonacho Bei Verwendung von labs(x="",y="")lässt Leerzeichen von Achsentiteln, da es tatsächlich Titel gibt, die nur ohne Vorzeichen sind. Um + theme(axis.title = element_blank())

— Achsentitel

6

labs(x = NULL)oder xlab(NULL)sind andere Wege.

— PatrickT

42

'opts' is deprecated.

in ggplot2 >= 0.9.2Gebrauch

p + theme(legend.position = "none")

— Jonas Stein
quelle

6

Mir ist klar, dass Sie noch keine Bearbeitungsrechte haben, aber wenn Sie andere ggplot2-Antworten von mir finden, die aktualisiert werden müssen, können Sie eine Änderung vorschlagen. Ich werde eine Benachrichtigung erhalten und kann sie selbst einbinden.

— Joran

3

xy <- data.frame(x=1:10, y=10:1)
plot <- ggplot(data = xy)+geom_point(aes(x = x, y = y))
plot
panel = grid.get("panel-3-3")

grid.newpage()
pushViewport(viewport(w=1, h=1, name="layout"))
pushViewport(viewport(w=1, h=1, name="panel-3-3"))
upViewport(1)
upViewport(1)
grid.draw(panel)

— Amaurel
quelle

Error in UseMethod("grid.draw") : no applicable method for 'grid.draw' applied to an object of class "NULL"

— Roman Luštrik

grid.ls () zeigt die Liste der Ansichtsfenster- und Grobobjekte an

— amaurel

Es scheint, dass in anderen Versionen von ggplot, dass ich den Panel-Namen verwende, anders ist

— Amaurel

xy <- data.frame (x = 1: 10, y = 10: 1) plot <- ggplot (data = xy) + geom_point (aes (x = x, y = y)) plot panel = grid.get (" panel-3-4 ") grid.newpage () pushViewport (Ansichtsfenster (w = 1, h = 1, name =" layout ")) pushViewport (Ansichtsfenster (w = 1, h = 1, name =" panel-3- 4 ")) upViewport (1) upViewport (1) grid.draw (panel)

— amaurel

-1

Macht das was du willst?

 p <- ggplot(myData, aes(foo, bar)) + geom_whateverGeomYouWant(more = options) +
 p + scale_x_continuous(expand=c(0,0)) + 
 scale_y_continuous(expand=c(0,0)) +
 opts(legend.position = "none")

— Verfolgungsjagd
quelle

Die Legende wird entfernt, aber die x- und y-Achse und das Hintergrundgitter sind noch vorhanden.

— user1320487