działka ggplot2 bez osi, legend, itp.

Question

Chcę użyć hexboksu bioprzewodnika (co mogę zrobić), aby wygenerować wykres wypełniający cały obszar wyświetlania (png) - bez osi, bez etykiet, bez tła, bez nutki.

Answer 1

Czy robi to, co chcesz?

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

Answer 2

Jak na mój komentarz w odpowiedzi Chase'a, można usunąć wiele z tych rzeczy za pomocą 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()) 

Wygląda na to jest jeszcze mały margines wokół krawędzi powstałej .png Kiedy Oszczędzam to. Być może ktoś inny wie, jak usunąć nawet ten składnik.

(nota historyczna:.. Od ggplot2 wersja 0.9.2, opts została zaniechana Zamiast używać theme() i zastąpić theme_blank() z element_blank())

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

Answer 4

'opts' is deprecated. 

w ggplot2 >= 0.9.2 użytku

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

Answer 5

Re: zmiana opcji na temat itp. (Dla leniwych):

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

Answer 6

Aktualne odpowiedzi są niekompletne lub nieskuteczne. Oto (być może) najkrótsza droga do osiągnięcia rezultatu (za pomocą theme_void():

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

Wynikiem jest:

---

Jeśli jesteś zainteresowany po prostu wyeliminowanie etykiety , labs(x="", y="") obsługuje:

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