ggplot2 cốt truyện không có trục, truyền thuyết, vv

Question

Tôi muốn sử dụng hexbin của bioconductor (mà tôi có thể làm) để tạo ra một âm mưu lấp đầy toàn bộ vùng hiển thị (png) - không có trục, không có nhãn, không nền, không có nuthin '.

Answer 1

Điều này có làm những gì bạn muốn không?

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

Theo nhận xét của tôi trong câu trả lời của Chase, bạn có thể loại bỏ rất nhiều công cụ này sử dụng 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()) 

Dường như vẫn có một biên độ nhỏ xung quanh các cạnh của .png kết quả khi Tôi đã cứu cái này. Có lẽ ai đó khác biết cách loại bỏ ngay cả thành phần đó.

(Lịch sử lưu ý:.. Kể từ ggplot2 phiên bản 0.9.2, opts đã bị phản Thay vì sử dụng theme() và thay thế theme_blank() với 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. 

trong ggplot2 >= 0.9.2 sử dụng

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

Answer 5

Re: thay đổi opts thành chủ đề vv (đối với người lười biếng):

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

Câu trả lời hiện tại không đầy đủ hoặc không hiệu quả. Dưới đây là (có lẽ) con đường ngắn nhất để đạt được kết quả (sử dụng theme_void():

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

Kết quả là:

---

Nếu bạn quan tâm đến chỉ loại bỏ sự nhãn , labs(x="", y="") thực hiện thủ thuật:

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