Wie kann ich den Abstand zwischen meinem Plot und der Achse in ggplot2-Figuren entfernen?

Question

Ich benutze ggplot2, um einige einfache Figuren mit einer Reihe von Koordinaten zu machen, um Rechtecke entlang der x-Achse zu erstellen. Ich kann jedoch nicht herausfinden, wie die Auffüllung zwischen dem tatsächlichen Beginn des Plots (Position x = 1) und der äußersten linken Kante des Plots (0,0) entfernt werden soll. Zum Beispiel verwende ich den folgenden Code:

library(ggplot2) 
library(grid) 
png(filename="sample.png", width=5600, height=70) 
plot.data <- data.frame(start.points=c(1),end.points=c(10)) 
p <- ggplot(plot.data) 
p + geom_rect(aes(xmin=start.points, xmax=end.points, ymin=0, ymax=1), fill="red") + theme_bw() + ylab(paste(sprintf("%60s", ""), "\nSample_label\n")) + theme(axis.title.y = element_text(size = 30, colour = "black", angle = 0)) 
dev.off() 

Die Variablen my_start und my_stop sind nur Listen von Start- und Stopp-Koordinaten für Rechtecke zeichnen. Also, diese Handlung erstellt eine lange horizontale Figur, genau wie ich will.

Das Problem ist, sieht das Bild wie folgt aus:

axis_label | <-- white space --> <-----actual plot------> <-- white space--> | 

Actual Grundstück:

... und ich möchte diese Menge an white space manuell steuern. Ich habe versucht, plot.margin und panel.margin zu setzen, aber diese scheinen andere Aspekte der Handlung zu kontrollieren. Bitte beachten Sie, dass das Rot bei meinem Beispielbild wie erwartet am Punkt 1 beginnt. Ich möchte, dass dies die y-Achse begrenzt, und ich möchte kein nachstehendes Leerzeichen nach dem Ende des roten Balkens.

Jede Hilfe würde sehr geschätzt werden! Idealerweise würde ich einfach alle Leerraumpolster entfernen. Vielen Dank!

Answer 1

Versuchen Sie hinzuzufügen, um scale_x_continuous(expand = c(0, 0)) zu Ihrem Grundstückscode hinzuzufügen. Vom :

erweitern: ein numerischen Vektor der Länge zwei, eine multiplikative und additive Konstante geben verwendet, um den Bereich der Skalen zu erweitern, so dass es eine kleine Lücke zwischen den Daten und den Achsen ist.

ggplot(plot.data) + 
    geom_rect(aes(xmin = start.points, xmax = end.points, ymin = 0, ymax = 1), fill = "red") + 
    scale_x_continuous(expand = c(0, 0))