plot ggplot2 sem eixos, legendas, etc

139

Eu quero usar o hexbin do biocondutor (o que eu posso fazer) para gerar um gráfico que preencha toda a região de exibição (png) - sem eixos, sem rótulos, sem fundo, sem nada.

r ggplot2 user1320487
fonte

1

Não seria mais fácil criar um gráfico de hexbin e cortá-lo em um editor de imagens?

precisa

3

tentetheme_void()

Brian D

182

Conforme meu comentário na resposta de Chase, você pode remover muitas dessas coisas 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 ainda há uma pequena margem em torno da borda do .png resultante quando eu salvo isso. Talvez alguém saiba como remover até esse componente.

(Nota histórica: Desde a versão 0.9.2 do ggplot2 , optsfoi preterido. Em vez disso, use theme()e substitua theme_blank()por element_blank().)

joran
fonte

1

Muito Obrigado! Também encontrei uma solução semelhante em groups.google.com/group/ggplot2/browse_thread/thread/…

user1320487

Comentário de passagem: Em alguns casos, theme(axis.ticks=element_blank())não funciona, bem como theme(axis.ticks.x=element_blank()), provavelmente, um lugar bug temporário (eu tenho o meu próprio conjunto tema, então eu tentar substituir: somente axis.ticks.xe axis.ticks.yfazer o trabalho.)

PatrickT

106

Re: mudar opta para o tema etc (para pessoas preguiçosas):

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
fonte

59

As respostas atuais são incompletas ou ineficientes. Aqui está (talvez) o caminho mais curto para alcançar o 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")

O resultado é:

Se você estiver interessado apenas em eliminar os rótulos , labs(x="", y="")faça o truque:

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

luchonacho
fonte

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

sugere que ele não é 100% nulo

baptiste

Os laboratórios (x = "", y = "") não parecem remover os eixos, apenas os rótulos.

miratrix

@miratrix desculpe, meu erro. Atualizada.

Luchonacho

5

@luchonacho O uso de labs(x="",y="")folhas no espaço dos títulos dos eixos, porque na verdade existem títulos, eles são apenas sem sinais. Para remover os títulos dos eixos e o espaço para eles, é melhor usá-los.+ theme(axis.title = element_blank())

Didzis Elferts

6

labs(x = NULL)ou xlab(NULL)são outras maneiras.

precisa saber é o seguinte

42

'opts' is deprecated.

em ggplot2 >= 0.9.2uso

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

Jonas Stein
fonte

6

Sei que você ainda não tem privilégios de edição, mas se encontrar outras respostas minhas do ggplot2 que precisam ser atualizadas, re: opts () fique à vontade para sugerir uma edição. Receberei uma notificação e posso incorporá-la.

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
fonte

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

Roman Luštrik

grid.ls () exibir a lista de janela de visualização e Grob objetos

amaurel

parece que em outra versão do ggplot que eu estou usando o nome do painel é diferente

amaurel

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

amaurel

-1

Isso faz o que você quer?

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

correr atrás
fonte

se livra da legenda, mas os eixos xey, e a grade de fundo, ainda estão lá.

User1320487

plot ggplot2 sem eixos, legendas, etc

Respostas: