ggplot2 plot sin ejes, leyendas, etc.

139

Quiero usar el hexbin del bioconductor (que puedo hacer) para generar un gráfico que llene toda la región de visualización (png): sin ejes, sin etiquetas, sin fondo, sin nada.

r ggplot2

— usuario1320487
fuente

1

¿No sería más fácil crear un diagrama hexbin y recortarlo en un editor de imágenes?

— joran

3

intentartheme_void()

— Brian D

182

Según mi comentario en la respuesta de Chase, puedes eliminar muchas de estas cosas usando 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())

Parece que todavía hay un pequeño margen alrededor del borde del .png resultante cuando guardo esto. Quizás alguien más sepa cómo eliminar incluso ese componente.

(Nota histórica: desde ggplot2 versión 0.9.2 , optsha quedado en desuso. En su lugar, use theme()y reemplace theme_blank()con element_blank()).

— joran
fuente

1

¡Muchas gracias! También encontré una solución similar en groups.google.com/group/ggplot2/browse_thread/thread/…

— user1320487

Comentario al pasar: en algunos casos, theme(axis.ticks=element_blank())no funciona tan bien theme(axis.ticks.x=element_blank()), probablemente sea un error temporal en alguna parte (tengo mi propio conjunto de temas, luego intento anular: solo axis.ticks.xy axis.ticks.yhacer el trabajo)

— PatrickT

106

Re: cambio de opciones a tema, etc. (para gente perezosa):

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
fuente

59

Las respuestas actuales son incompletas o ineficientes. Aquí está (quizás) la forma más corta de lograr el resultado (usando theme_void():

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

El resultado es:

Si está interesado en eliminar las etiquetas , ¿ labs(x="", y="")funciona?

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

— luchonacho
fuente

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"))

sugiere que no es 100% vacío

— baptiste

Los laboratorios (x = "", y = "") no parecen eliminar los ejes, solo las etiquetas.

— miratrix

@miratrix lo siento, mi error. Actualizado.

— luchonacho

55

@luchonacho Usa labs(x="",y="")hojas de espacio de títulos de eje porque en realidad hay títulos, simplemente no tienen signos. Para eliminar los títulos de los ejes y el espacio para ellos, es mejor usarlos+ theme(axis.title = element_blank())

— Didzis Elferts

66

labs(x = NULL)o xlab(NULL)son otras formas.

— PatrickT

42

'opts' is deprecated.

en ggplot2 >= 0.9.2uso

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

— Jonas Stein
fuente

66

Me doy cuenta de que todavía no tienes privilegios de edición, pero si ves otras respuestas mías de ggplot2 que necesitan ser actualizadas re: opts () no dudes en sugerir una edición. Recibiré una notificación y puedo incorporarla yo mismo.

— 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
fuente

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

— Roman Luštrik

grid.ls () muestra la lista de viewport y objetos

— grob

parece que en otra versión de ggplot que estoy usando el nombre del panel es diferente

— 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 (viewport (w = 1, h = 1, name =" layout ")) pushViewport (viewport (w = 1, h = 1, name =" panel-3- 4 ")) upViewport (1) upViewport (1) grid.draw (panel)

— amaurel

-1

¿Hace esto lo que quieres?

 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")

— Persecución
fuente

se deshace de la leyenda, pero los ejes xey, y la cuadrícula de fondo, todavía están allí

— user1320487