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

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

Theo nhận xét của tôi trong câu trả lời của Chase, bạn có thể xóa rất nhiều nội dung này bằng cách 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())

Có vẻ như vẫn còn một lề nhỏ xung quanh rìa của kết quả .png khi tôi lưu phần này. Có lẽ ai đó biết làm thế nào để loại bỏ ngay cả thành phần đó.

(Lưu ý lịch sử: Vì ggplot2 phiên bản 0.9.2, optsđã không được chấp nhận. Thay vào đó hãy sử dụng theme()và thay thế theme_blank()bằng element_blank().)

Re: thay đổi opts thành chủ đề vv (cho những 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())

Câu trả lời hiện tại là không đầy đủ hoặc không hiệu quả. Đây là (có lẽ) cách 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 việc loại bỏ các nhãn , hãy labs(x="", y="")thực hiện mẹo:

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

'opts' is deprecated.

đang ggplot2 >= 0.9.2sử dụng

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

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)

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

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