manipulation ggtitle ggplot change r ggplot2

ggtitle - Eliminar los márgenes de trazado en ggplot2



ggtitle position (1)

De acuerdo con el código fuente , también necesita establecer las etiquetas en NULL,

last_plot() + labs(x=NULL, y=NULL)

alternativamente, configure la unit(-0.5, "line") para los márgenes inferior e izquierdo.

Estoy tratando de producir un gráfico png usando ggplot2 y ggsave (con El Cairo) en R. Tengo un problema con la personalización del tema para eliminar los márgenes.

Actualmente estoy usando:

... + theme(plot.margin=unit(c(0,0,0,0),"mm"))

Esto parece funcionar en dos de los cuatro lados de mi trama, elimina por completo el margen superior y el margen derecho, pero todavía hay un margen bastante grande en los lados izquierdo e inferior. ¿Hay alguna manera de eliminar completamente estos? Imagen a continuación para ilustrar el problema:

Si un ejemplo reproducible sería útil, házmelo saber y lo armaré.

Editar:

library("ggplot2") library("scales") library("Cairo") library("grid") # Set chart values line.width = 0.45 axis.font.size = 2.9 # Generate some random data start.date <- as.Date("2011-07-01") x.month <-seq.Date(start.date, by = "month", length.out = 24) end.date <- max(x.month) period.a <- rnorm(12, mean=50, sd=2) period.b <- rnorm(12, mean=55, sd=2) x.value <- c(period.a,period.b) # Combine into dataframe x.data <- data.frame( "Month" = x.month, "Value" = x.value ) # Build chart p <- ggplot(data=x.data, aes(Month, Value)) + geom_line(size=line.width) p <- p + theme_bw() p <- p + scale_y_continuous() p <- p + scale_x_date(limits=c(start.date+20,end.date-20), breaks = "1 month",labels = date_format("%b-%y")) p <- p + theme(axis.text.x=element_text(angle=90, hjust=1, vjust=0.5, size=axis.font.size), axis.text.y=element_text(size=axis.font.size), axis.title.x=element_blank(), axis.title.y=element_blank(), plot.margin=unit(c(0,0,0,0),"mm"), plot.background = element_rect(fill = "grey"), panel.grid=element_blank(), panel.border=element_rect(size=line.width/2), axis.ticks=element_line(size=line.width/3), axis.ticks.length=unit(0.3, "mm"), axis.ticks.margin=unit(0.2, "mm")) ggsave(file="c://temp//test.png", plot=p, width=40, height=15, units="mm", type ="cairo-png")