Làm thế nào để tạo đồ họa với nền trong suốt trong R bằng ggplot2?

Tôi cần xuất đồ họa ggplot2 từ tệp R sang PNG với nền trong suốt. Mọi thứ đều ổn với đồ họa R cơ bản, nhưng không rõ ràng với ggplot2:

d <- rnorm(100) #generating random data

#this returns transparent png
png('tr_tst1.png',width=300,height=300,units="px",bg = "transparent")
boxplot(d)
dev.off()

df <- data.frame(y=d,x=1)
p <- ggplot(df) + stat_boxplot(aes(x = x,y=y)) 
p <- p + opts(
    panel.background = theme_rect(fill = "transparent",colour = NA), # or theme_blank()
    panel.grid.minor = theme_blank(), 
    panel.grid.major = theme_blank()
)
#returns white background
png('tr_tst2.png',width=300,height=300,units="px",bg = "transparent")
p
dev.off()

Có cách nào để có được nền trong suốt với ggplot2 không?

Đã cập nhật theme()hàm ggsave()và mã cho nền chú giải:

df <- data.frame(y = d, x = 1, group = rep(c("gr1", "gr2"), 50))
p <- ggplot(df) +
  stat_boxplot(aes(x = x, y = y, color = group), 
               fill = "transparent" # for the inside of the boxplot
  ) 

Cách nhanh nhất là sử dụng bằng cách sử dụng rect, vì tất cả các phần tử hình chữ nhật kế thừa từ trực tràng:

p <- p +
  theme(
        rect = element_rect(fill = "transparent") # all rectangles
      )
    p

Cách kiểm soát nhiều hơn là sử dụng các tùy chọn của theme:

p <- p +
  theme(
    panel.background = element_rect(fill = "transparent"), # bg of the panel
    plot.background = element_rect(fill = "transparent", color = NA), # bg of the plot
    panel.grid.major = element_blank(), # get rid of major grid
    panel.grid.minor = element_blank(), # get rid of minor grid
    legend.background = element_rect(fill = "transparent"), # get rid of legend bg
    legend.box.background = element_rect(fill = "transparent") # get rid of legend panel bg
  )
p

Để lưu (bước cuối cùng này rất quan trọng):

ggsave(p, filename = "tr_tst2.png",  bg = "transparent")

Ngoài ra còn có một plot.backgroundtùy chọn ngoài panel.background:

df <- data.frame(y=d,x=1)
p <- ggplot(df) + stat_boxplot(aes(x = x,y=y)) 
p <- p + opts(
    panel.background = theme_rect(fill = "transparent",colour = NA), # or theme_blank()
    panel.grid.minor = theme_blank(), 
    panel.grid.major = theme_blank(),
    plot.background = theme_rect(fill = "transparent",colour = NA)
)
#returns white background
png('tr_tst2.png',width=300,height=300,units="px",bg = "transparent")
print(p)
dev.off()

Vì một số lý do, hình ảnh đã tải lên hiển thị khác với trên máy tính của tôi, vì vậy tôi đã bỏ qua nó. Nhưng đối với tôi, tôi nhận được một cốt truyện có nền hoàn toàn là màu xám, ngoại trừ phần hộp của hộp vẫn là màu trắng. Tôi tin rằng điều đó cũng có thể được thay đổi bằng cách sử dụng thẩm mỹ lấp đầy trong boxplot geom.

Biên tập

ggplot2 kể từ đó đã được cập nhật và opts()chức năng này không được dùng nữa. Hiện tại, bạn sẽ sử dụng theme()thay vì opts()và element_rect()thay vì theme_rect(), v.v.

Chỉ để cải thiện câu trả lời của YCR:

1) Tôi đã thêm các đường màu đen trên trục x và y. Nếu không, chúng cũng được làm trong suốt.

2) Tôi đã thêm một chủ đề trong suốt vào phím chú giải. Nếu không, bạn sẽ bị trám ở đó, trông sẽ không thẩm mỹ lắm.

Cuối cùng, lưu ý rằng tất cả những thứ đó chỉ hoạt động với định dạng pdf và png. jpeg không tạo được đồ thị minh bạch.

MyTheme_transparent <- theme(
    panel.background = element_rect(fill = "transparent"), # bg of the panel
    plot.background = element_rect(fill = "transparent", color = NA), # bg of the plot
    panel.grid.major = element_blank(), # get rid of major grid
    panel.grid.minor = element_blank(), # get rid of minor grid
    legend.background = element_rect(fill = "transparent"), # get rid of legend bg
    legend.box.background = element_rect(fill = "transparent"), # get rid of legend panel bg
    legend.key = element_rect(fill = "transparent", colour = NA), # get rid of key legend fill, and of the surrounding
    axis.line = element_line(colour = "black") # adding a black line for x and y axis
)